home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
06
/
MOD67D.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1999-02-04
|
12KB
|
320 lines
RIIS 6.7
MOD67DX
m_param
RIIS 6.7
FF$FF$%
FF$FF$%
Zadejte st
edisko :
Zadejte obdob
c, rok) : -
@!XXXX
Chybn
roku
Chybn
r dat ...
Rekapitulace vyplacen
ch mezd, obdob
Rekapitulace vyplacen
ch mezd, st
, obdob
RIIS 6.7
Detail
mod67dd
mod67d
Zadejte druh mzdy :
c6_rekap
a6_mzdy
a6_mzdy
m6_zam
a6_zam
m6_dm
dm+' '
druh_pomer+' '
druh_pomer
zev druhu mzdy
m6_dm.nazev
m6_dm.nazev
str(pocet,5)
pocet
righ(tran(castka,'@Z'),11)
castka
Z
righ(tran(zaklad-odpocet,'@Z'),10)
zaklad-odpocet
Z
righ(tran(zaklad,'@Z'),10)
zaklad
Kusy
righ(tran(kusy,'@Z'),14)
Hodiny
righ(tran(hodiny,'@Z'),9)
hodiny
Pr.dny
righ(tran(pr_dny,'@Z'),8)
pr_dny
Kal.dny
righ(tran(ka_dny,'@Z'),8)
ka_dny
Dny kr.
' '+righ(tran(kr_dny,'@Z'),7)
kr_dny
Dny NN
' '+righ(tran(nn_dny,'@Z'),7)
nn_dny
Nhod
righ(tran(nhod,'@Z'),16)
M_PARAM
P609
&POLE6
edavANSI
t.'.fSTRED
etaiW_MES
W_ROK
&& HLASKA
EnMOD_SYS
laPOLEX
enteRAMECEK
f.NAZEVT
m='RIIS
RTOP
jmeRBOT
ailu CLEFT
ede CRIGHT
misFREEZE
r='F1
7dd' F2
&& obF3
je nazeF4
oceduryF6
'mod67dF9
&DETAIL
prDET_JM
f9ENTER
adejPROCX
mzdF9KEY
* --OBRREK
otC6_REKAP
cSTR_PREV
_PREV
-DRUH_POMERSKUP_PRAC
screeHODINY
rekCASTKA
ectPR_DNY
te KA_DNY
ekaKR_DNY
revNN_DNY
m cNHOD
ruh_pZAKLAD
), ODPOCET
p_POCET
1), TUP
n(11,2A6_MZDY
ERROK
n(9,2)MESIC
a n(W_STRN
STR_ZAM
n(ODP_DAN
ERM6_MZDY
,M6_ZAM
n(1OSC
nn_dnA6_ZAM
), M6_DM
hod ZAHL
MERJMENO
11,2HODN
cet I
, poID_ORG
), MOD_PSV
c6_mzdy
c6_mzdy
c6_mzdy
xc6_mzdy
RIIS 6.7
Rekapitulace vyplacen
ch mezd, obdob
Rekapitulace vyplacen
ch mezd, st
, obdob
Pocet
Castka
RIIS 6.7
mod67d
Zadejte osobn
iif(eof('m6_zam'),a6_zam.prijmeni,m6_zam.prijmeni)
iif(eof('m6_zam'),a6_zam.prijmeni,m6_zam.prijmeni)
iif(eof('m6_zam'),a6_zam.jmeno,m6_zam.jmeno)
iif(eof('m6_zam'),a6_zam.jmeno,m6_zam.jmeno)
iif(eof('m6_zam'),a6_zam.ucetni,m6_zam.ucetni)
iif(eof('m6_zam'),a6_zam.ucetni,m6_zam.ucetni)
righ(tran(castka,'@Z'),9)
castka
rucni_zm
rucni_zm
Hodiny
righ(tran(hodiny,'@Z'),6)
hodiny
Pr.dny
righ(tran(pr_dny,'@Z'),6)
pr_dny
Kal.dny
righ(tran(ka_dny,'@Z'),7)
ka_dny
righ(tran(mes_f,'@Z'),6)
mes_f
righ(tran(zaklad,'@Z'),9)
zaklad
Dluh sr
righ(tran(dluh_sraz,'@Z'),9)
dluh_sraz
righ(tran(poc_deti,'@Z'),5)
poc_deti
Odpo
righ(tran(odp_dan,'@Z'),9)
odp_dan
Datum od
tran(od,'@E')
Datum do
tran(do,'@E')
Dny NN
' '+righ(tran(nn_dny,'@Z'),5)
nn_dny
Sazba
righ(tran(sazba,'@Z'),7)
sazba
zakazka
zakazka
Postup
postup
postup
operace+' '
operace
Pracov
pracov
pracov
Doklad
doklad
doklad
str_op
str_op
str_prev
str_prev
trida
trida
stupen
stupen
' '+pp
Nhod
righ(tran(nhod,'@Z'),13)
Kusy
righ(tran(kusy,'@Z'),12)
Ident. dokladu
ident_dokl
ident_dokl
Dny kr.
' '+righ(tran(kr_dny,'@Z'),5)
kr_dny
' '+righ(tran(rd_zustat,'@Z'),6)
rd_zustat
no
jmeno
jmeno
DET_MZDY
MOD_SYS
&M6_MZDY
avC6_REKAP
etaiDRUH_POMERSTRED
&& C6_MZDY
EnMESIC
laW_MES
enteROK
f.W_ROK
m='STR_PREV
RSTR_ZAM
ERXC6_MZDY
M6_ZAM
misA6_ZAM
r='PS_LINE
POLEX
obPROCX
nazeRTOP
eduryRBOT
prCLEFT
d67dCRIGHT
&FREEZE
prORDER
f9HOR
adejDOL
mzdLEVA
* --PRAVA
otNADPIS
cZAHL
JMENO
-HODN
POMERSOUC
PSOUC
creeTITLE
rekTITLECOLORPOC0
te F0
ekaF1
revF2
m cF3
ruh_pF4
), F6
1), F9
n(11,2F10
ERF0PRG
9,2)F1ON
a n(F1PRG
F4_JM
n(F4PRG
ERTISKPRG
,F7_JM
n(1F7PRG
n_dnF9PRG
), F9KEY
hod F9KEY1
MERF10_JM
1,2F10PRG
et RAMECEK
poRIIS
), NAZEVT
KLICO
n dmKLNAZ
omerSPACEBAR
TR_HL1
uTR_HL2
dy TR_HL3
TR_HL4
(w_TR_HL5
tr(TR_HL6
sTR_HL7
e rTR_HL8
anTR_HL9
w_mDET_JM
ENTER
r_prDETAIL
(4)DETPRG
w_sPS_RETURN
PS_ZAZN
seP609
w_sM6_DM
pNAZEV
endPOCET
CASTKA
aceMOD_PSV
colora
set color to &color
COLOR
&OBR
colora
set color to &color
COLOR
&MOD67DX
MOD67DD
HLASKA
W:\06\
MOD67D.FXP
W:\06\MOD67D.PRG