home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
06
/
06266.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1998-06-29
|
13KB
|
309 lines
m_param
06266x
M_PARAM
W_PODNIK
FIRMA
v1_str
x1_str
m6_typ
m6_odmj
m6_zam
m_str
mod6_lib
r a kumulace mezd ...
06201
Kumulovan
mzdy a hodiny st
edisek
RIIS 6.6
f4_prg
Detail
det_str
06266
' '+str(poc_zam,4)
poc_zam
str(zaklad,9,2)
zaklad
Os.ohod.
str(pohyb_sl,9,2)
pohyb_sl
str(prescas,9,2)
prescas
Pr
str(premie,9,2)
premie
Odm
str(odmeny,9,2)
odmeny
hrady
str(nahrady,9,2)
nahrady
hr60%
str(nahr60,9,2)
nahr60
Dovolen
str(dovolena,9,2)
dovolena
Sv
str(svatek,9,2)
svatek
Ostatn
str(ostatni,9,2)
ostatni
Celkem
str(celkem,9,2)
celkem
H odpr.
' '+str(hod_odp,6,2)
hod_odp
' '+str(hod_pres,6,2)
hod_pres
H celkem
' '+str(hod_odp+hod_pres,6,2)
hod_odp+hod_pres
V1_STR
X1_STR
M6_TYP
' TYP
jM6_ODMJ
stOSC
eny,9,M6_ZAM
n(iM_STR
)=' ZAKLAD
jPOHYB_SL
tPRESCAS
,9PREMIE
dn(ODMENY
adyNAHRADY
*NAHR60
)='DOVOLENA
SVATEK
)="OSTATNI
0,CELKEM
odnHOD_ODP
60HOD_PRES
*POC_ZAM
='STR
W_UCETNI
"STAN_UC
enMOD6_LIB
_ODMJ
voPOCET
i=i+POCETC
hl(ST_OSC
tUCETNI
o(PROCENTA
aTYP_MZDY
KOD_GEN
svHOSTR
i+STR_PREV
(W_STRN
tatSTR_ZAM
(CASTKA
tHODINY
oZ_HODINY
hPOLEX
eRAMECEK
enNAZEVT
r(cRIIS
9,2)"RTOP
(i)="RBOT
i=CLEFT
zahCRIGHT
odpFREEZE
no(F1
' '+strF2
_odp,6,F3
hodn(iF4
od_odp"F4PRG
l(i)='HF9
jmDETAIL
' 'DET_JM
_prENTER
hPROCX
"hodZAHL
i=iJMENO
zahlHODN
celkI
eno(MOD_PSV
colora
set color to &color
COLOR
colora
set color to &color
COLOR
POCET
POCETC
Sestava kumulovan
ch mezd
Tisk p
ehledu
Konec
mod_psv
mod_lib
mod_lib
Prob
tisk ...
mod_lib
mod66h
mod66h
W_TISK
' TISK
jMOD_PSV
stP_SETUP
9,P_RESET
(iP_6LPI
P_8LPI
P_10CPI
P_12CPI
jP_16CPI
tP_20CPI
,9P_BOLDON
(P_BOLDOFF
P_ULINEON
P_ULINEOFFP_ITALON
P_ITALOFF
P_SUPERON
P_SUPEROFFP_SUBON
60P_SUBOFF
*P_DBST_ON
P_DBST_OFFP_LETRQUALP_DRAFT
enP_COMP_OFFP_WIDT_ON
P_WIDT_OFFP_HEIG_ON
P_HEIG_OFFP_NEWPAGE
P_KODY
aMOD_LIB
NASTAV_PRNMESS
i+NASTAV_REPMOD66H
m_strdet
Nebyla nelezena
mzdov
r druh
mezd ...
06201
ehled mezd st
ediska
06266
druh_pomer
druh_pomer
str(zaklad,9,2)
zaklad
Os.ohod.
str(pohyb_sl,9,2)
pohyb_sl
str(prescas,9,2)
prescas
Pr
str(premie,9,2)
premie
Odm
str(odmeny,9,2)
odmeny
hrady
str(nahrady,9,2)
nahrady
hr60%
str(nahr60,9,2)
nahr60
Dovolen
str(dovolena,9,2)
dovolena
Sv
str(svatek,9,2)
svatek
Ostatn
str(ostatni,9,2)
ostatni
Celkem
str(celkem,9,2)
celkem
H odpr.
' '+str(hod_odp,6,2)
hod_odp
' '+str(hod_pres,6,2)
hod_pres
H celkem
' '+str(hod_odp+hod_pres,6,2)
hod_odp+hod_pres
DET_STR
MOD_SYS
M_STRDET
stDRUH_POMERZAKLAD
(iPOHYB_SL
PRESCAS
PREMIE
ODMENY
jNAHRADY
tNAHR60
,9DOVOLENA
(SVATEK
OSTATNI
CELKEM
OFFHOD_ODP
HOD_PRES
M6_ODMJ
ERHLASKA
SUBON
60POCET
*POCETC
M6_ZAM
OFFUCETNI
ALW_UCETNI
nPROCENTA
FSTR_PREV
W_STRN
OFFSTR_ZAM
M_STR
OFFSTRP
M6_TYP
aTYP_MZDY
KOD_GEN
RNCASTKA
RHODINY
tZ_HODINY
tPS_LINE
POLEX
oPROCX
=RTOP
hRBOT
eCLEFT
enCRIGHT
r(cFREEZE
2)"ORDER
i)="ZAHL
i=JMENO
zahHODN
odpTITLE
no(TITLECOLORF1
_odp,6,F2
hodn(iF3
od_odp"F4
l(i)='HF7
' 'F10
_prDETAIL
hF1PRG
"hodF4_JM
i=iF4PRG
zahlF7_JM
celkF7PRG
eno(F9KEY
stF10_JM
p+hF10PRG
6,2DET_JM
(i)DETPRG
p+hRAMECEK
*NAZEVT
---RIIS
steniTISKPRG
mPS_RETURN
doMOD_PSV
*06266x
HLASKA
ca
PROCENTA
F4_PRG
DET_STR
X:\OBEC\06\
06266.FXP
X:\OBEC\06\06266.PRG