home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
06
/
MOD612M2.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1998-08-28
|
18KB
|
477 lines
m6_pripl
m6_zam
m_dat
x_dat
m_cis1
x_cis1
m6_arc
m6_muo
m6_dm
RIIS 6.1
Pravideln
vky, druh mzdy :
mod_proc
Druh mzdy neexistuje
M6_PRIPL
zaklad,M6_ZAM
odnOSC
zakladM_DAT
=i+1X_DAT
i)='M_CIS1
X_CIS1
="pM6_ARC
hM6_MUO
pozUZIV
M6_DM
zahlW_HODN
astANSI
eno(iW_DM
+pozaW_PICT_OSCW_DRUH_POMZOBR_DM
_pMOD_PROC
+HLASKA
POMMOD612FX
Pravideln
vky, druh mzdy :
RIIS 6.1
zmena_pr
mod612m2
Zadejte osobn
slo:
c6_pripl+
c6_pripl
m6_zam.prijmeni
m6_zam.prijmeni
m6_zam.jmeno
m6_zam.jmeno
druh_pomer
druh_pomer
dr_prip+' '
dr_prip
' '+typ_prip+' '
typ_prip
Ident. p
platku
ident_prip
ident_prip
trans(dat_zah,'@E')+' '
dat_zah
trans(dat_ukon,'@E')+' '
dat_ukon
prava
uprav_pr+' '
uprav_pr
prem_skup+' '
prem_skup
' '+str(vyse_prip,7,0)
vyse_prip
Sazba
str(sazba,6,2)
sazba
str(zaklad,9,2)
zaklad
poznamka
poznamka
Pozast.
' '+pozast_pr+' '
pozast_pr
Autor
autor
autor
Aktual.
aktual
aktual
Dat.akt.
trans(dat_akt,'@E')
dat_akt
POLEX
"RAMECEK
d,NAZEVT
odnM6_DM
kladDM
=i+1RIIS
i)='RTOP
="pCLEFT
hCRIGHT
pozFREEZE
zahlF2
astF3
eno(iF4
+pozaF6
ICT_OSCF9
RUH_POMDETAIL
_pDET_JM
+ENTER
POMPROCX
mF9KEY
"autM6_PRIPL
iW_DM
C6_PRIPL
tDRUH_POMERM6_ZAM
tuaZAHL
(i)JMENO
'DatMOD_PSV
meOBSAH
colora
set color to &col
d,OBR
ident_pr
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
&barvau
"OBRAZ
d,ZAZ_M6
odnNOVY_Z
ladC6_PRIPL
1PRIDEJ_ZAZM6_PRIPL
IDENT_PR
hDRUH_POMERIDENT_PRIPDM
ahlS_OSC
tS_DRUH_POMS_DM
+pozaS_DR_PR
SCS_TYP_PR
MS_IDENT_PRS_DAT_ZAH
S_DAT_UKONS_SAZBA
mS_ZAKLAD
tS_VYSE_PR
S_POZNAM
S_POZAST
zS_UPRAV_PRS_PREM_SK
S_DAT_AKT
S_AUTOR
i)S_AKTUAL
NAPLN_POL
ZMENA
'DatP_ZOB
meJMENO_C
anWJMENO_C
'RADEK_C
dnSLOUPEC_C
do mQ1
relQ2
zahl, Q3
o, obsaQ4
*****Q6
*******Q7
*******Q8
*******Q9
*******Q10
******Q11
proQ12
e hlaQ13
parCISELNIK
= sys(DOL
"colorPOCET
e scDOP1
o obrDOP2
colorPOR
@COUNT
-lenZAKAZNIK
POMOC
o 15Y
9+len(txRAD
79-len(POC
4)/2 tKONTROLA
eBARVAS
)/2BARVAR
@ BARVAZ
en(BARVAU
sayBARVAN
inkBARVAH
estBARVA
een KS
sMENU
oPORADI
etuKONEC
****I
******X
********R
******Z
******U
********T
proceQ
e zmena_A
set ZMENY
n 6 PS_RETURN
&barva
Aktualizace, F
Identifikace
Pozastaven
pravy p
platku
Proc. sazba
"M6_DM
d,NAZEV
&barvau
9999999
999.99
999999.99
S_OSC
"M6_ZAM
d,C6_PRIPL
nPRIJMENI
dJMENO
1S_DRUH_POMS_DR_PR
S_TYP_PR
pS_IDENT_PRS_DAT_ZAH
S_DAT_UKONS_POZNAM
lS_POZAST
tS_UPRAV_PRS_VYSE_PR
S_SAZBA
SCS_ZAKLAD
s_osc
@ 8,23 &vloz s_osc pict w_pict_osc
s_druh_pom
@ 8,66 &vloz s_druh_pom picture '@!X'
s_dr_pr
@ 10,12 &vloz s_dr_pr picture '@!X'
s_typ_pr
@ 10,18 &vloz s_typ_pr picture '@!X'
@ 10,23 &vloz s_ident_pr picture '@X'
@ 10,46 &vloz s_dat_zah picture '@E'
@ 10,57 &vloz s_dat_ukon picture '@E'
@ 11,22 &vloz s_poznam
@ 11,67 &vloz s_pozast pict '!X'
s_uprav_pr
@ 13,39 &vloz s_uprav_pr picture '@!X'
@ 14,34 &vloz s_vyse_pr picture '9999999'
@ 15,35 &vloz s_sazba picture '999.99'
&barvau
"NASTAV_Q
_PRIPL
JMENI
dP_ZOB
1M6_ZAM
POMS_OSC
S_DRUH_POMDRUH_POMERC6_PRIPL
PRIPL
V_PRQ6
YSE_PR
AKLAD
PRIPL
T_ZAH
UKONQ12
mPROC1
S_DAT_AKT
S_AKTUAL
zMM_AUTOR
RZMENA
do proc&y
do zmen&y with 'get'
do zmen&y with 'say'
Skute
znam? (a/N)
ident_pr
it pr
ci beze zm
n? (a/N)
KONEC
STAV_Q
_PRIPL
JMENI
POMHOR
UH_POMR
UH_POMERZ
PRIPL
lNAP_HOD
tP_ZOB
V_PRY
YSE_PR
ID_ORG
SCPOM
MNOVY_Z
RM6_PRIPL
ZAZ_M6
NC6_PRIPL
mMOD612M2
tIDENT_PR
DRUH_POMERIDENT_PRIPDM
NAPLN_POL
PORADI
i)PROC1
PLN_POL
K_UDAJU
atOK_C
meULOZ
anPRIDEJ_ZAZZMENA
PLN_POL
o mPOCET
C6_PRIPL
"W_ROD_CIS
M6_ZAM
nRODNE_CIS
ZMENA
MS_OSC
DRUH_POMERS_DRUH_POMDM
NDR_PRIP
lS_DR_PR
tTYP_PRIP
RS_TYP_PR
IDENT_PRIPS_IDENT_PRDAT_ZAH
RS_DAT_ZAH
DAT_UKON
NS_DAT_UKONSAZBA
tS_SAZBA
ZAKLAD
S_ZAKLAD
RVYSE_PRIP
S_VYSE_PR
POZNAMKA
S_POZNAM
)POZAST_PR
S_POZAST
UPRAV_PR
tS_UPRAV_PRPREM_SKUP
S_PREM_SK
DAT_AKT
dnAKTUAL
MM_AUTOR
mM6_PRIPL
lZAZ_M6
Osobn
slo nen
uvedeno
Osobn
slo neexistuje
DR_PRIP
s_dr_pr
TYP_PRIP
s_typ_pr
Datum zah
vku mus
t vypln
Datum ukon
vku nesm
t men
datum zah
Chybn
hodnota pozastaven
vku (mezera, A)
UPRAV_PR
s_uprav_pr
Procento pr
t uvedeno
platku nebo p
vku mus
t uvedena
ident_pr
Nejednozna
identifikace sr
"S_OSC
HLASKA
DNE_CIS
MM6_ZAM
C6_PRIPL
RJMENO_C
MWJMENO_C
MOD_C2
NMOD_C3
lZMENA
_PRIP
S_DAT_ZAH
_PRS_DAT_UKONQ7
S_POZAST
KONQ10
tS_DR_PR
S_SAZBA
RS_VYSE_PR
W_POC
X_DUPL
M6_PRIPL
)IDENT_PR
NOVY_Z
S_DRUH_POMS_IDENT_PROSC
ENT_PRDRUH_POMERIDENT_PRIPDM
_PRZAZ_M6
S_OSC
S_DRUH_POMDRUH_POMERS_DM
MS_DR_PR
DR_PRIP
RS_TYP_PR
MTYP_PRIP
S_IDENT_PRIDENT_PRIPS_DAT_ZAH
DAT_ZAH
RS_DAT_UKONDAT_UKON
S_SAZBA
PRSAZBA
UKONS_ZAKLAD
ZAKLAD
NS_VYSE_PR
VYSE_PRIP
S_POZNAM
POZNAMKA
S_POZAST
RPOZAST_PR
S_UPRAV_PRUPRAV_PR
S_PREM_SK
PREM_SKUP
S_DAT_AKT
DAT_AKT
OMS_AUTOR
PRAUTOR
T_PRS_AKTUAL
RAKTUAL
-
- ^PgDn
- ^Home
- ^End,Esc
Pohyb
znamu
znamu
Konec
q&si = pocet
q&si = 0
NOVY_Z
POMS_DR_PR
ERPOCET
mod_proc
s_dr_pr
DR_PRIP
s_dr_pr
s_typ_pr
TYP_PRIP
s_typ_pr
s_uprav_pr
UPRAV_PR
s_uprav_pr
Pro toto pole neexistuje pomocn
ehled hodnot
P_ZOB
"P_DM
POMS_DRUH_POMW_DRUH_POMZOBR_DM
MMOD_PROC
ZMENA
_POMMOD_C3
MHLASKA
NOVY_Z
"C6_PRIPL
PRIPL
MW_DM
H_POMTYP_PRIP
MAUTOR
MMM_AUTOR
AKTUAL
POMDAT_AKT
MDAT_ZAH
W_ZAC_MES
M6_PRIPL
PZAZ_M6
MOD612FX
HLASKA
ZMENA_PR
PORADI
PROC1
ZMEN1
ZMENY
K_UDAJU
NAPLN_POL
NASTAV_Q
NAP_HOD
PRIDEJ_ZAZ
X:\OBEC\06\
MOD612M2.FXP
X:\OBEC\06\MOD612M2.PRG