home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
06
/
MOD64A.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1999-04-06
|
62KB
|
1,166 lines
W_PODNIK
PODNIK
MOD64AX
m_param
m6_mzd
m6_byd
m6_rod
m6_typ
m6_ml
m6_mlt
cislo
m6_pruk
a6_mzd
a6_mzdy
m6_prnes
m6_prum
m6_duch
m6_evid
m_cis1
x_cis1
m6_zam
M z d o v
l i s t y zam
stnanc
RIIS 6.2
tisk_proc
hledej1 in mod612d
Detail
det_ml
mod64a
prijmeni
prijmeni
jmeno
jmeno
m6_zam.ucetni
m6_zam.ucetni
evid_stav
evid_stav
m6_mzd.kategorie+' '
m6_mzd.kategorie
m6_mzd.forma_mzd+' '
m6_mzd.forma_mzd
' '+m6_mzd.plat_stup
m6_mzd.plat_stup
m6_mzd.ta_tr
m6_mzd.ta_tr
m6_mzd.ta_kr
m6_mzd.ta_kr
Plat
str(m6_mzd.plat,8,2)
m6_mzd.plat
Os.ohod.
str(m6_mzd.osob_ohod,8,2)
m6_mzd.osob_ohod
M_PARAM
POLE6
M6_MZD
M6_BYD
M6_ROD
M6_TYP
M6_ML
M6_MLT
CISLO
M6_PRUK
A6_MZD
A6_MZDY
M6_PRNES
M6_PRUM
M6_DUCH
M6_EVID
M_CIS1
X_CIS1
M6_ZAM
DRUH_POMERW_ROK
POLEX
RAMECEK
NAZEVT
CLEFT
CRIGHT
---FREEZE
---SPACEBAR
* F2
mzdovF3
sty zamF4
*F4PRG
----F6
-------F7
-------F9
set daF9PRG
w_DETAIL
riDET_JM
e(3ENTER
m(poPROCX
JMENO
dataHODN
****PS_RETURN
MOD_PSV
c_oznac
Rodinn
Arch
Historie pr
Mzdov
list
Mzdov
list - kvart
Nemocnost
Volba roku : F
Konec
mod6_lib
mod6_lib
mod6_lib
mod6_lib
mod6_lib
mod6_lib
Chybn
zadan
C_OZNAC
W_ROK
PS_LINE
ZOBR_PRIB
MOD6_LIB
M6_ZAM
ZOBR_MZD2
ZOBR_SOC1
ZOBR_PRUM
M6_MZD
DRUH_POMERZOBR_ML
ZOBR_MLQ
ZOBR_NEM
ST_ROK
HLASKA
mod_lib
Mzdov
list
Mzdov
list - kvart
Potvrzen
pro soci
vky kvart
- detail
Potvrzen
pro soci
vky kvart
- souhrn
Potvrzen
pro soci
vky ro
Potvrzen
jmu zam
stnance
Tisk p
ehledu
Konec
mod_psv
ST_ZAZ
P_SETUP
P_RESET
P_6LPI
P_8LPI
P_10CPI
P_12CPI
P_16CPI
P_20CPI
P_BOLDON
P_BOLDOFF
P_ULINEON
P_ULINEOFFP_ITALON
RP_ITALOFF
P_SUPERON
P_SUPEROFFP_SUBON
P_SUBOFF
P_DBST_ON
P_DBST_OFFP_LETRQUALP_DRAFT
P_COMP_OFFP_WIDT_ON
P_WIDT_OFFP_HEIG_ON
P_HEIG_OFFP_NEWPAGE
P_KODY
MOD_LIB
W_TISK
---TISK_MLISTTISK_QLISTPOT_SDQD
POT_SDQS
vPOT_SDR
amTISK_PRIJ
---MOD_PSV
Mzdov
list pro kvart
l/rok :
Chybn
zadan
kvart
Mzdov
list pro zadan
rok neexistuje
mod_lib
Prob
tisk ...
c_oznac
c_oznac,
W_KVARTAL
W_ROK
HLASKA
T_SIRKA
W_TISK
NASTAV_PRNMOD_LIB
POC_RAD
LDOFF
LINEON
STRANA
OFFP_RESET
RST_ZAM
TISK_ML3
M6_ZAM
TISK_HL
TISK_ROD
TISK_ES
TISK_MZD
TISK_PRUM
TISK_NEM
NTISK_EVL
TISK_MLQ
POC_RAD
TISK_NOZ
Mzdov
list pro rok :
Mzdov
list pro zadan
rok neexistuje
ka tisku (1-
Nespr
zadan
hodnota
ky tisku
mod_lib
Prob
tisk ...
c_oznac
c_oznac,
W_ROK
HLASKA
T_SIRKA
ID_ORG
W_TISK
NASTAV_PRNMOD_LIB
POC_RAD
LINEON
STRANA
OFFP_RESET
RST_ZAM
TISK_ML2
M6_ZAM
TISK_HL
TISK_ROD
TISK_ES
TISK_MZD
TISK_PRUM
TISK_NEM
NTISK_EVL
TISK_ML
POC_RAD
TISK_NOZ
Mzdov
list zam
stnance pro rok F
Mzdov
list zam
stnance pro rok F
kladn
daje :
@R 999999/9999
stup:
stup:
sto nar.:
ROD_STAV
Stav:
chod:
mod6_lib
Bydli
.12.31
mod6_lib
Odpracov
Dovolen
Odpracov
999.99
Min.rok:
999.99
999.99
ceno:
999.99
P_SETUP
P_SUBON
P_10CPI
W_PODNIK
PODNIK
NT_SIRKA
P_SUBOFF
NAZEVT
W_ROK
OFFP_DBST_ON
P_DBST_OFFP_12CPI
FFP_BOLDON
FM6_ZAM
PRIJMENI
JMENO
P_BOLDOFF
RODNE_PRIJRODNE_CIS
DAT_NAST
FDAT_VYST
MISTO_NAR
M_CIS1
ROD_STAV
W_DUCH
W_DUCHC
--STAN_DUCH
MOD6_LIB
TM6_BYD
DRUH_BYDL
ULICE
POM_RAD
---BYDL
--CIS_DOMU
-M6_PRUK
aCISLO
w_DATUM_VYD
W_ROK_ZAP
W_DNY_ZAP
W_DAT1
W_DAT2
ZAPOC_DNYCM6_MZD
DRUH_POMERID_ORG
W_RR_N
A6_MZD
***W_NAROK
ERRD_NAROK
*W_MINROK
eRD_MINROK
W_CERPANI
RD_CERPANIRD_PROPL
hW_KRACENO
RD_KRAC
2. Rodinn
--------------- Man
el(ka) ---------------
---------------- D
t i -----------------
@R XXXXXX/XXXX
@R XXXXXX/XXXX
P_10CPI
P_DBST_ON
P_DBST_OFFM6_ROD
M6_ZAM
T_SIRKA
P_12CPI
ROD_VZTAH
PRIJMENI
JMENO
RODNE_CIS
3. Eviden
stav :
O D
D O
P_10CPI
P_DBST_ON
P_DBST_OFFM6_EVID
NM6_ZAM
P_BOLDON
P_BOLDOFF
EVID_STAV
DATUM_OD
DATUM_DO
POZNAMKA
4. Za
c6_mzd
c6_mzd
Plat
Os.ohod.
999999.99
999999.99
P_10CPI
P_DBST_ON
P_DBST_OFFA6_MZD
M6_ZAM
C6_MZD
W_ROK
DRUH_POMERMESIC
MERP_BOLDON
P_BOLDOFF
KATEGORIE
FORMA_MZD
OSOB_OHOD
ST_PP
ST_KAT
MERST_FORMA
ST_PLAT
ST_OS
5. Pr
c6_prum
c6_prum
Mzda
Odm
Hodiny
VZ-soc.
Kal.dny
9999.99
999999.99
999999.99
999999.99
9999.99
999999.99
9999.99
P_10CPI
P_DBST_ON
P_DBST_OFFM6_PRUM
M6_ZAM
C6_PRUM
W_ROK
DRUH_POMERKVARTAL
MERP_BOLDON
P_BOLDOFF
PRUM_HOD
RMZDA1
MZDA2
MZDA3
HODINY1
ERHODINY2
HODINY3
PRUM_DEN
MZDA_ND1
MZDA_ND2
MZDA_ND3
KAL_DNY1
KAL_DNY2
KAL_DNY3
vky nemocensk
ho poji
c6_mzdy
c6_mzdy
c6_mzdy
Identifikace
Doklad
Nem.od
Nem.do
1.den
Pl.od
Pl.do
Kal.dny
Denn
D50%
D69%
99.99
99.99
999999.99
99.99
99.99
999999.99
Celkov
et :
999.99
9999999.99
P_10CPI
P_DBST_ON
P_DBST_OFFA6_MZDY
M6_ZAM
ID_ORG
C6_MZDY
W_ROK
OMERTYP_MZDY
CASTKA
MERDRUH_POMERMESIC
IDENT_DOKLDOKLAD
MERM6_PRNES
T_SIRKA
P_16CPI
ERP_BOLDON
P_BOLDOFF
S_KA_DNY
S_CASTKA
DRUH_DNP
LDAT_ZAH
DAT_UKON
HOD_ODP
W_KA_DNY
-KA_DNY
ZAKLAD
TNN_DNY
7. Podklady pro eviden
listy :
Sou
Leden
B
Duben
Kv
erven
ervenec
Srpen
Z
Listopad
Prosinec
klad SP
9999999.99
9999999.99
9999999.99
9999999.99
9999999.99
9999999.99
9999999.99
9999999.99
9999999.99
9999999.99
9999999.99
9999999.99
9999999.99
Dny neschopenek
999.9
999.9
999.9
999.9
999.9
999.9
999.9
999.9
999.9
999.9
999.9
999.9
999.9
Vylou
doby
999.9
999.9
999.9
999.9
999.9
999.9
999.9
999.9
999.9
999.9
999.9
999.9
999.9
P_10CPI
P_DBST_ON
P_DBST_OFFA6_MZDY
M6_ZAM
W_ROK
TYP_MZDY
RMESIC
ZAKLAD
MERCASTKA
RHODINY
_MZDY
MERKA_DNY
W_RR_N
POC_MES
W_MM_N
ERPOCIT
POM_R
POM_M
POM_DAT1
POM_DAT2
LDAT_NAST
W_DAT1
DAT_VYST
W_DAT2
M6_PRNES
DAT_ZAH
-DAT_UKON
W6_ZAH
TW6_KON
DRUH_DNP
OSAM_OSOBAHOD_ODP
X_MES
---POC_DNU_MEW_D1
-W_D2
aPOM_ZAC
w_POM_KON
W_DNY
T_SIRKA
P_20CPI
P_12CPI
YCP_BOLDON
P_BOLDOFF
8. Mzdov
list :
mod6_lib
Sou
Leden
B
Duben
Kv
erven
ervenec
Srpen
Z
Listopad
Prosinec
zev druhu mzdy
Sou
Leden
B
Duben
Kv
erven
ervenec
Srpen
Z
Listopad
Prosinec
Sou
Leden
B
Duben
Kv
erven
ervenec
Srpen
Z
Listopad
Prosinec
POC_RAD
TISK_NOZ
TISK_HL
ST_OFFP_10CPI
P_DBST_ON
P_DBST_OFFID_ORG
W_DETAIL
TVOR_ML
M6_ZAM
W_ROK
MERMOD6_LIB
RC6_ML
RADEK
LCISLO
MERMLT
P_BOLDOFF
T_SIRKA
ERP_20CPI
P_BOLDON
P_16CPI
P_12CPI
DRUH_POMERHODNOTA
SOUCET
_OSOBAM7
---M9
DNU_MEM10
NAZEV
RADKOVANI
8. Mzdov
list - kvart
c6_ml+
c6_ml
Sou
Leden
B
Duben
Kv
erven
ervenec
Srpen
Z
Listopad
Prosinec
POC_RAD
TISK_NOZ
TISK_HL
ST_OFFP_10CPI
P_DBST_ON
P_DBST_OFFM6_ML
M6_ZAM
W_ROK
RC6_ML
MERCISLO
RADEK
MERP_BOLDOFF
P_BOLDON
W_KVARTAL
DRUH_POMERHODNOTA
SOUCET
VARTAL
H_POMERDEL
VARTAL
VARTAL
ARTAL
_OSOBAM10
RADKOVANI
POC_RAD
P_10CPI
T_SIRKA
FFP_SUPERON
STRANA
P_SUPEROFFP_NEWPAGE
FFFZ^D
select &st_sel
POC_RAD
ST_SEL
TISK_NOZ
TISK_HL
FFF$K
FFF$K
FFF$K
FFF$K
Potvrzen
za kvart
l , rok
Mzdov
list pro zadan
rok neexistuje
Chybn
zadan
kvart
Leden - B
ezen
Duben -
erven
ervenec - Z
jen - Prosinec
m_param
m_param
m6_byd
m6_byd
mod_lib
Prob
tisk ...
mod64a1
ST_ML
KVARTAL
W_DNP
FFW_QQ
W_ROK
ROFFHLASKA
W_OBDOBI
W_ICO
M_PARAM
M6_BYD
ERZAV_BYD
M6_ZAM
LW_RZUC
MERM6_ML
CISLO
H_POMERM3
VARTAL
MERM8
-W_TISK
NASTAV_PRNMOD_LIB
MESS
MOD64A1
Potvrzen
za rok
Mzdov
list pro zadan
rok neexistuje
m_param
m_param
m6_byd
m6_byd
mod_lib
Prob
tisk ...
mod64a3
ST_ML
KVARTAL
W_DNP
FFW_ROK
HLASKA
OFFW_OBDOBI
W_ICO
M_PARAM
RM6_BYD
ZAV_BYD
EROSC
RM6_ZAM
W_RZUC_MINW_RZUC
MERM6_ML
CISLO
SOUCET
W_TISK
MINNASTAV_PRNMOD_LIB
MOD64A3
Potvrzen
pro rok :
Mzdov
list pro zadan
rok neexistuje
mod_lib
Prob
tisk ...
c_oznac
c_oznac,
W_ROK
HLASKA
M6_ZAM
W_TISK
FFNASTAV_PRNMOD_LIB
OFFMESS
ST_ZAM
RSTRANA
TISK_PRIJZ
m_param
m_param
m4_adr
m4_organ
P O T V R Z E N
o zdaniteln
jmech ze z
innosti a funk
ch po
a o sra
ch na da
za zda
obdob
no a p
@R 999999/9999
bydli
Poplatn
k podepsal - nepodepsal prohl
- na zda
obdob
- na tyto m
ce zda
. obdob
hrn p
ze z
innosti
99999999.99
a funk
ch po
no v m
ve stavu od-do
3. Od toho se ode
te dle z
kona o dan
ch z p
pojistn
6 odst. 13 p
sm. a)
99999999.99
klad dan
(
.1 -
99999999.99
5. Sra
loha na da
99999999.99
ti uplatn
jako Od - do Jm
no - rodn
vy
ivovan
pro sr
loh na da
.01.01
.12.31
@R 999999/9999
7. Invalidita (ZTP-P) Od - do Stupe
invalidity (ZTP-P)
poplatn
ka uplatn
pro sr
loh na da
invalidn
invalidn
itel pr
kazky ZTP-P
8. Poplatn
k uplatnil pro sr
ku Od - do
loh na da
e je
nebo studentem soustavn
se p
ipravuj
m na budouc
povol
9. Poplatn
k uplatnil pro sr
ku Od - do Uplatn
ru /
celkem
loh na da
roky z
v p
edpokl
/skute
999999.99
10. Ro
loh bylo - nebylo provedeno s t
mto v
sledkem:
p
eplatek ve v
i K
cen poplatn
kovi dne
nedoplatek ve v
i K
vybr
n od poplatn
ka dne
Vyhotovil:
Dne: FF$
slo telefonu:
no a adresa pl
. identifika
slo pl
podpis a raz
pl
tce
M6_ML
M6_ZAM
W_ROK
W_UHRNP
FFSOUCET
PRNW_ZUC_MES
SPOCTI_OBDW_POJ
W_ZAK_DAN
W_ZAL_DAN
W_OBDCID
W_OBDPID
DW_OBDZTP
DW_OBDSTUD
W_UROK
W_OBDUROK
W_ICO
M_PARAM
W_ZAV
ZAVOD
M4_ADR
INW_ADR1
PRNNAZEV_ORG
W_ADR2
ULICE
W_ADR3
ERPSC
MESTO
M4_ORGAN
W_DICP
-POC_RAD
AV_PRNSTRANA
P_RESET
BAP_SETUP
P_10CPI
P_BOLDON
EP_BOLDOFF
P_16CPI
aP_12CPI
ID_ORG
PRIJMENI
JMENO
RODNE_CIS
M6_BYD
CCIS_DOMU
DAT_NAST
DAT_VYST
POCET
M6_ROD
***ROD_VZTAH
DAT_OD_ODPDAT_DO_ODPW_DAT_ODO
W_DAT_ODD
W_ZAC_ROK
W_KON_ROK
P_NEWPAGE
if m&si#0
W_CISLO
W_OBD
M6_ML
M6_ZAM
FFOSC
PRNW_ROK
a6_mzdy
c6_nem
cdokl
znam neexistuje
Nemocnost, O
R pro rok F
RIIS 6.4
mod64a
Zadejte: Osob.
Doklad
doklad
doklad
Neschopenka
m6_prnes.cis_nesch+' '
m6_prnes.cis_nesch
Od
tran(od,'@E')
Do
tran(do,'@E')
KD celkem
iif(od#{} and do#{}, str(do-od+1,9), space(9))
iif(od#{} and do#{}, str(do-od+1,9), space(9))
righ(tran(nn_dny,'@Z'),5)
nn_dny
righ(tran(ka_dny-nn_dny,'@Z'),5)
ka_dny-nn_dny
Dny
righ(tran(ka_dny,'@Z'),5)
ka_dny
righ(tran(zaklad,'@Z'),8)
zaklad
righ(tran(nn_dny*round(zaklad*0.5,0),'@Z'),9)
nn_dny*round(zaklad*0.5,0)
righ(tran((ka_dny-nn_dny)*round(zaklad*0.69,0),'@Z'),9)
(ka_dny-nn_dny)*round(zaklad*0.69,0)
nemoc
righ(tran(castka,'@Z'),9)
castka
OBR_NEM
MOD_SYS
W_OSC
M6_ZAM
FFROK
PRNMESIC
KA_DNY
BDNN_DNY
DOKLAD
ZAKLAD
BDCID
BDPID
DCASTKA
DA6_MZDY
W_ROK
TYP_MZDY
C6_NEM
OBDOBI
M6_PRNES
CDOKL
HLASKA
NPS_LINE
RNPOLEX
PROCX
ERCLEFT
CRIGHT
FREEZE
ORDER
-JMENO
V_PRNTITLE
TITLECOLORF1
OLDON
OLDOFF
DETAIL
F1PRG
F4_JM
F4PRG
F7_JM
CF7PRG
F9KEY
F10_JM
F10PRG
DET_JM
***DETPRG
RAMECEK
DPNAZEVT
ODPRIIS
MOD_PSV
PS_RETURN
colora
set color to &color
COLOR
colora
set color to &color
COLOR
FFF$K
FFF$K
FFF$K
FFF$K
Potvrzen
za kvart
l , rok
Mzdov
list pro zadan
rok neexistuje
Chybn
zadan
kvart
Leden - B
ezen
Duben -
erven
ervenec - Z
jen - Prosinec
c6_mlqs
Prob
r dat ...
w_m1 = w_m1 + m&sm1
w_m2 = w_m2 + m&sm2
w_m3 = w_m3 + m&sm3
w_m1 = w_m1 + m&sm1
w_m2 = w_m2 + m&sm2
w_m3 = w_m3 + m&sm3
w_m1 = w_m1 + m&sm1
w_m2 = w_m2 + m&sm2
w_m3 = w_m3 + m&sm3
w_dnp = w_dnp + m&sm1 + m&sm2 + m&sm3
w_dnp = w_dnp + m&sm1 + m&sm2 + m&sm3
w_dnp = w_dnp + m&sm1 + m&sm2 + m&sm3
w_dnp = w_dnp + m&sm1 + m&sm2 + m&sm3
w_dnp = w_dnp + m&sm1 + m&sm2 + m&sm3
w_dnp = w_dnp + m&sm1 + m&sm2 + m&sm3
c6_mlqs
mod_lib
Prob
tisk ...
mod_lib
mod64a2
mod64a2
ST_ML
KVARTAL
W_DNP
FFW_QQ
PRNQQ
W_ROK
BDHLASKA
W_OBDOBI
C6_MLQS
NEM_DAV
CELKEM
MOD_SYS
M6_ZAM
NW_CELKEM
NSTRQ
ERM6_ML
W_TISK
NASTAV_PRNMOD_LIB
NASTAV_REPMOD64A2
MOD64AX
DET_ML
TISK_PROC
TISK_QLIST
TISK_ML3
TISK_MLIST
TISK_ML2
TISK_HL
TISK_ROD
TISK_ES
TISK_MZD
TISK_PRUM
TISK_NEM
TISK_EVL
TISK_ML
k_e"d
TISK_MLQ
TISK_NOZ
10cpi+p
POT_SDQD
POT_SDR
TISK_PRIJ
TISK_PRIJZ
SPOCTI_OBD
ZOBR_NEM
HLASKA
ending
POT_SDQS
X:\OBEC\06\
MOD64A.FXP
X:\OBEC\06\MOD64A.PRG