home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
09
/
MOD92F.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1998-11-03
|
12KB
|
301 lines
ahl(iMOD612LX
m_param
m6_fzar
m6_zam
m6_mzd
c6_rd
Prob
r dat ...
.12.31
mod6_lib
Lednov
ty dovolen
RIIS 6.1
hledej1 in mod612d
proc_prep
Aktual
akt_rd
mod92f
m6_zam.prijmeni
m6_zam.prijmeni
m6_zam.jmeno
m6_zam.jmeno
druh_pomer
druh_pomer
m6_fzar.str
m6_fzar.str
m6_zam.evid_stav
m6_zam.evid_stav
Zap.roky
' '+str(roky_zapoc,4)
roky_zapoc
Zap.dny
' '+str(dny_zapoc,4)
dny_zapoc
' '+str(rd_zakl,5,2)
rd_zakl
' '+str(rd_zakl_n,5,2)
rd_zakl_n
D-min
' '+str(rd_minrok,5,2)
rd_minrok
' '+str(rd_krac,5,2)
rd_krac
' '+str(rd_narok,6,2)
rd_narok
' '+str(rd_cerpani,6,2)
rd_cerpani
D-propl
' '+str(rd_propl,6,2)
rd_propl
W_DOTAZ
(iM_PARAM
eW_ROK
druhPAM_ROK
hoM6_FZAR
uhOSC
M6_ZAM
zM6_MZD
C6_RD
no(iDRUH_POMERRD_ZAKL_N
RD_NAROK
rRD_MINROK
RD_ZAKL
ahRD_KRAC
RD_CERPANIRD_PROPL
_RD_VYPOC
nROKY_ZAPOCDNY_ZAPOC
OBR92F
ERMOD_SYS
POCET
i)="POCETC
tr(W_ROK_ZAP
W_DNY_ZAP
W_DAT1
zapDAT_NAST
=W_DAT2
hl(DAT_VYST
yZAPOC_DNYCMOD6_LIB
PROCENTA
ID_ORG
n(iPOLEX
zapoRAMECEK
= NAZEVT
l(iRIIS
kl'RTOP
o(i)=RBOT
str(rCLEFT
5,2)CRIGHT
i)=FREEZE
f id_orF2
= i+1
ahl(i)=F6
kl-n'F9
jmeno(F9PRG
'+F10
d_zaklF10_JM
F10PRG
)="DETAIL
DET_JM
ENTER
PROCX
) ='ZAHL
jmJMENO
"' 'HODN
_minI
MOD_PSV
"rOBSAH
ULOZ_RD
et aktu
...
ST_ZAZ
(iPREP
druhPOCET
hoPOCETC
uhRD_MINROK
RD_NAROK
zRD_ZAKL
RD_CERPANIRD_PROPL
RRD_KRAC
RD_VYPOC
rPROCENTA
W_DOTAZ
colora
set color to &color
(iCOLOR
druh}
POCET
(iPOCETC
roky na dovolenou? (a/N)
pis n
na dovolenou ...
(iC6_RD
ruhPOCET
hoPOCETC
uhM6_MZD
zDRUH_POMERRD_NAROK
IRD_MINROK
RD_ZAKL
RD_ZAKL_N
RD_KRAC
RD_CERPANIRD_PROPL
IRD_VYPOC
IDAT_AKT
_AKTUAL
nMM_AUTOR
CPROCENTA
OBR61
(iOPRAVA
set color to b/w
set color to bg/n
set color to w+/bg
set color to b/bg,w+/rb
set color to w+/b
set color to w/n
set color to w+/w
&barvau
C6_RD
(iM_RD_NAROKRD_NAROK
hM_RD_MINR
RD_MINROK
M_RD_ZAKL
RD_ZAKL
zM_RD_ZAKLNRD_ZAKL_N
M_RD_KRAC
RD_KRAC
M_RD_CERP
RD_CERPANIM_RD_PROPLRD_PROPL
IM_RD_VYPOCRD_VYPOC
_CISELNIK
POCET
ERDOP1
)=DOP2
i)="COUNT
tr(ZAKAZNIK
ZMENA
POMOC
T_NAST
hl(SL
_VYST
C_DNYCBARVAS
BARVAR
BARVAZ
n(iBARVAU
apoBARVAN
= BARVAH
l(iBARVAD
kl'BARVA
(i)=BARVA1
r(rBARVA2
,2)PORADI
i)=KONEC
id_orX
hl(i)=U
kl-n'T
jmeno(Q
'+A
d_zaklZMENY
&barva
&barva1
Aktualizace, F
&barva2
kladn
kladn
rok-n
no z min. roku
m roce
Proplacen
dovolen
vodu absence
statek dovolen
celkem
aktu
WTEXT
(iM6_ZAM
ROKPRIJMENI
hJMENO
&barvau
99.99
99.99
99.99
99.99
99.99
99.99
99.99
99.99
M_RD_ZAKL
M_RD_ZAKLNM_RD_MINR
M_RD_CERP
M_RD_PROPLM_RD_KRAC
M_RD_NAROKM_RD_VYPOC
&barvau
@ 11,53 &vloz m_rd_zakl pict '99.99'
@ 12,53 &vloz m_rd_zakln pict '99.99'
@ 13,53 &vloz m_rd_minr pict '99.99'
@ 14,53 &vloz m_rd_cerp pict '99.99'
@ 15,53 &vloz m_rd_propl pict '99.99'
@ 16,53 &vloz m_rd_krac pict '99.99'
@ 17,53 &vloz m_rd_narok pict '99.99'
P_ZOB
AKLNQ
RD_MINR
M_RD_NAROKM_RD_ZAKL
M_RD_MINR
M_RD_KRAC
C6_RD
YPOCRD_CERPANIRD_PROPL
PROC1
IZMENA
do proc&y
do zmen&y with 'get'
do zmen&y with 'say'
it pr
ci beze zm
n? (a/N)
KONEC
AKLNA
RD_MINR
RD_NAROKDOL
_ZAKL
_MINR
_KRAC
YPOCR
_CERPANIZ
_CERPANIPOCET
ROPLPOMOC
_VYPOCPROC1
_MENU1
nZMENA
ZMENA
C6_RD
AKLNRD_ZAKL
M_RD_ZAKL
RD_MINROK
M_RD_MINR
RD_ZAKL_N
M_RD_ZAKLNRD_KRAC
NIM_RD_KRAC
RD_CERPANIM_RD_CERP
RD_PROPL
IM_RD_PROPLRD_NAROK
IM_RD_NAROKKONEC
_W_DOTAZ
nMOD612LX
PROC_PREP
HLASKA
PROCENTA
ULOZ_RD
AKT_RD
****(
OPRAVA
****`
PORADI
PROC1
*****k
ZMEN1
dure
ZMENY
X:\OBEC\09\
MOD92F.FXP
X:\OBEC\09\MOD92F.PRG