home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
06
/
MOD612C2.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1998-11-23
|
39KB
|
996 lines
m6_srazk
dr_sraz
m6_zam
m_dat
x_dat
m_cis1
x_cis1
m4_organ
m6_zp
m6_arc
m6_muo
m6_zpz
m6_srazu
cis_spuc
m6_sazby
RIIS 6.1
ky ze mzdy, druh :
DR_SRAZ
w_dr_sraz
M6_SRAZK
tDR_SRAZ
i=M6_ZAM
l(iOSC
M_DAT
jmX_DAT
"priM_CIS1
hodX_CIS1
ijmM4_ORGAN
zahl(iM6_ZP
o(i)="jM6_ARC
odnM6_MUO
no'UZIV
M6_ZPZ
='BM6_SRAZU
CIS_SPUC
(M6_SAZBY
W_HODN
'byANSI
i=iW_DR_SRAZ
JMENO_C
WJMENO_C
"ZMENA
i)='OK_C
i=MOD_C2
l(iMOD_C3
MOD612FX
ky ze mzdy, druh : F
RIIS 6.1
fun_prg
zmena_sr
mod612c2
Zadejte osobn
slo:
c6_srazk+
c6_srazk
xc6_sraz
m6_zam.osc
m6_zam.osc
m6_zam.prijmeni
m6_zam.prijmeni
m6_zam.jmeno
m6_zam.jmeno
' '+e.typ_sraz+' '
upper(e.typ_sraz)
Identifikace sr
e.ident_sraz+' '
e.ident_sraz
zp_plats+' '
zp_plats
cis_spuc
cis_spuc
trans(dat_zah,'@E')+' '
dat_zah
trans(dat_ukon,'@E')+' '
dat_ukon
Celkem s.
' '+str(e.celk_sraz,7,0)+' '
e.celk_sraz
Splaceno
' '+str(e.splat_sraz,7,0)+' '
e.splat_sraz
Sazba
str(e.sazba,5,2)
e.sazba
' '+e.zaklad+' '
e.zaklad
e s.
str(e.vyse_sraz,7,0)+ ' '
e.vyse_sraz
Minim.s.
' '+str(e.min_sraz,7,0)+' '
e.min_sraz
Posl.v
' '+str(e.posl_vyse,7,0)+' '
e.posl_vyse
Posl.dat.
trans(e.posl_dat,'@E')+' '
e.posl_dat
Osoby
' '+str(e.osoby,2,0)+' '
e.osoby
Pl.st
' '+e.sniz_zp+' '
e.sniz_zp
Min.VZZP
' '+e.min_vz+' '
e.min_vz
jemce
e.ico+' '
e.ico
e.zavod+' '
e.zavod
iif(dr_sraz='ZP',m6_zp.nazev_zp,m4_organ.nazev_org)
iif(dr_sraz='ZP',m6_zp.nazev_zp,m4_organ.nazev_org)
Var. symbol
e.var_s
e.var_s
Konst
e.kons_s
e.kons_s
Spec. symbol
e.spec_s
e.spec_s
e.ucet
e.ucet
poznamka
poznamka
Pozast.
' '+pozast_sr+' '
pozast_sr
prijmeni
prijmeni
jmeno
jmeno
Bydli
Ulice
ulice
ulice
cis_domu
cis_domu
Vznik
vznik+' '
vznik
left(m6_zam.rodne_cis,6)+'/'+right(m6_zam.rodne_cis,4)
m6_zam.rodne_cis
Autor
autor
autor
Aktual.
aktual
aktual
Dat.akt.
trans(datum,'@E')
datum
W_DR_SRAZ
ID_ORG
i=POLEX
l(iRAMECEK
NAZEVT
jmRIIS
hodRBOT
ijmCLEFT
=CRIGHT
l(iFREEZE
o(i)="jF2
odnF3
no'F4
='BF9
SRAZU
(F10_JM
F10PRG
'byDETAIL
i=iDET_JM
ENTER
PROCX
"F9KEY
i)='M6_SRAZK
=C6_SRAZK
DR_SRAZ
XC6_SRAZ
nM6_ZAM
ce'ICO
ZAVOD
M4_ORGAN
nM6_ZP
dZAHL
odn(JMENO
_domHODN
i=i+I
(i)=MOD_PSV
OBSAH
colora
set color to &col
_SRAZ
i=OBR
ident_sraz
dr_sraz
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
i=ZAZ_M6
l(iNOVY_Z
C6_SRAZK
mPRIDEJ_ZAZM6_SRAZK
dIDENT_SRAZOSC
=DR_SRAZ
AZW_OSC
W_ROD_CIS
W_ICO
odnW_KOD_ZP
'W_DAT_ZMENW_POHLAVI
W_ROK_NAR
W_PRIJMENIW_JMENO
W_ULICE
byW_CIS_DOMUW_BYDL
W_PSC
NOVY_PP
"ST_Q
i)='ST_POCET
=S_OSC
S_DR_SR
S_TYP_SR
S_IDENT_SRS_DAT_ZAH
S_DAT_UKONS_CELK_SR
S_SPLAT_SRS_SAZBA
dS_ZAKLAD
(S_VYSE_SR
S_MIN_SR
+S_POSL_VYSS_POSL_DATS_OSOBY
znS_ICO
S_ZAVOD
'vS_VAR_S
iS_KONS_S
zS_SPEC_S
iS_UCET
KUHS_POZNAM
1S_POZAST
iS_ZP_PLATSS_CIS_SPUCS_SNIZ_ZP
S_MIN_VZ
oS_PRIJMENIS_JMENO
(mS_BYDL
dneS_PSC
S_ULICE
='S_CIS_DOMUS_DATUM
ndS_AUTOR
iS_AKTUAL
(NAPLN_POL
ZMENA
i)="ZMENA_ZP
dJMENO_C
orWJMENO_C
1RADEK_C
='SLOUPEC_C
)="akQ1
hodnQ2
'aktualQ3
i=i+1Q4
hl(i)='Q5
akt.'
o(i)="tQ7
(datum,Q8
hodQ9
='datumQ10
do moQ11
releQ12
ahl, jQ13
obsahQ14
retQ15
******Q16
******Q17
******Q18
******Q19
******Q20
******Q21
procQ22
hlaskQ23
paramQ24
sys(20Q26
olor")Q27
e screQ28
olor tQ30
@ 1CISELNIK
)/2 clDOL
o 15,(POCET
txt)DOP1
@ 13DOP2
en(txPOR
/2 to COUNT
len(ZAKAZNIK
dPOMOC
@ 14Y
9-len(txRAD
say tSL
= inkeyPOC
restorKONTROLA
rP_ZOB
setBARVAS
o &BARVAR
urnBARVAZ
***BARVAU
***BARVAN
***BARVAH
***BARVA
****KS
***MENU
uPORADI
_srKONEC
t fuI
n 6 toX
set fR
ZMENY
PS_RETURN
Aktualizace
Obdob
Pozastaven
sob platby
Spol.
Celkov
Splaceno
Sazba (%)
klad sr
Osob v dom
cnosti
Minim
Posledn
Datum
tcem pojistn
ho i st
Minim
VZ ZP
POR_DET
et pro zas
jemce
Var. symbol
Konst
Specifick
et pro zas
Specifick
Adresa pro zas
Ulice
slo domu
Bydli
S_ZP_PLATS
&barvau
9999999
9999999
999.99
9999999
9999999
9999999
S_OSC
LATSW_PICT_OSCM6_ZAM
l(iW_TEXT
PRIJMENI
mJMENO
_ZAZC6_SRAZK
dS_TYP_SR
ZS_IDENT_SRS_DAT_ZAH
S_DAT_UKONS_POZNAM
S_POZAST
nS_ZP_PLATSS_CIS_SPUCS_CELK_SR
S_SPLAT_SRS_SAZBA
NIS_ZAKLAD
S_OSOBY
byS_VYSE_SR
S_MIN_SR
S_POSL_VYSS_POSL_DATS_SNIZ_ZP
S_MIN_VZ
=S_ICO
LATSS_ZAVOD
S_VAR_S
S_KONS_S
RS_SPEC_S
S_UCET
KONW_DR_SRAZ
M6_ZP
T_SRNAZEV_ZP
dM4_ORGAN
(NAZEV_ORG
S_PRIJMENIS_JMENO
YSS_ULICE
ATS_CIS_DOMUS_BYDL
S_PSC
&barvau
Bezhotovostn
Dluh zam
stnance
vky odbor
Zdravotn
poji
s_osc
@ 4,24 &vloz s_osc picture w_pict_osc
s_typ_sr
@ 4,66 &vloz s_typ_sr picture '@!X'
@ 5,16 &vloz s_ident_sr picture '@X'
@ 5,47 &vloz s_dat_zah picture '@E'
@ 5,58 &vloz s_dat_ukon picture '@E'
@ 6,22 &vloz s_poznam
@ 6,67 &vloz s_pozast pict '!X'
s_zp_plats
@ 7,27 &vloz s_zp_plats pict '!'
s_cis_spuc
@ 7,65 &vloz s_cis_spuc pict '999'
@ 9,28 &vloz s_celk_sr picture '9999999'
@ 10,28 &vloz s_splat_sr picture '9999999'
@ 11,29 &vloz s_sazba picture '999.99'
@ 12,34 &vloz s_zaklad picture '!X'
@ 13,33 &vloz s_osoby picture '99'
@ 9,61 &vloz s_vyse_sr picture '9999999'
@ 10,61 &vloz s_min_sr picture '9999999'
@ 13,67 &vloz s_sniz_zp picture '!X'
@ 14,67 &vloz s_min_vz picture '!X'
s_ico
@ 17,19 &vloz s_ico picture '@!X'
Zdravotn
poji
ovna nenalezena
Organizace nenalezena
s_zavod
@ 17,32 &vloz s_zavod picture 'XXX'
Organizace nenalezena
@ 17,37 &vloz s_var_s picture '@!X'
@ 17,51 &vloz s_kons_s picture '@!X'
@ 17,58 &vloz s_spec_s picture '@!X'
@ 18,19 &vloz s_ucet picture '@!X'
@ 16,22 &vloz s_prijmeni
@ 17,22 &vloz s_jmeno
@ 18,22 &vloz s_ulice
@ 18,60 &vloz s_cis_domu
@ 19,22 &vloz s_bydl
@ 19,60 &vloz s_psc
&barvau
LATSP_ZOB
_OSCNASTAV_Q
JMENI
mW_DR_SRAZ
S_ZAKLAD
dS_TYP_SR
ZS_IDENT_SRS_ZP_PLATSS_SAZBA
T_SRQ3
P_PLATSQ5
IS_SPUCQ6
ELK_SR
PLAT_SRQ8
M6_SRAZU
SS_CIS_SPUCS_ICO
SL_VYSS_ZAVOD
ATZAVOD
S_UCET
=UCET2
LATSS_VAR_S
M6_SAZBY
CS_VARS_K
S_KONS_S
CS_KONST_KC6_SRAZK
V_ORG
IJMENIQ15
YSQ16
ATQ17
S_DOMUQ18
'vS_DR_SR
iM6_ZP
zHLASKA
KUHM4_ORGAN
iW_HODN
ATSQ21
IZ_ZP
IJMENIQ25
(mQ26
dneQ27
='Q29
S_DOMUQ30
ndZMENA
iNOVY_Z
(POR_DET
PROC1
i)="S_DATUM
dS_AKTUAL
rMM_AUTOR
zdravotn
poji
Zdravotn
poji
na ke dni
Pohlav
Rok narozen
&barvau
@R 999999/9999
W_OSC
LATSM6_ZAM
OSCPRIJMENI
iJMENO
W_ROD_CIS
M6_ZPZ
W_ICO
dM6_ZP
ZNAZEV_ZP
RW_KOD_ZP
SW_DAT_ZMENW_POHLAVI
W_ROK_NAR
@ 14,25 &vloz w_rod_cis pict '@R 999999/9999'
@ 15,25 &vloz w_ico pict '@!X'
w_kod_zp
@ 17,25 &vloz w_kod_zp pict '!'
@ 17,55 &vloz w_dat_zmen pict '@E'
@ 18,25 &vloz w_pohlavi pict '!'
@ 18,55 &vloz w_rok_nar pict '9999'
do proc&y
LATSP_ZOB
IJMENI
OD_CIS
EV_ZP
RAKTUAL
SMM_AUTOR
NDAT_AKT
ZMENA_ZP
do proc&y
do zmen&y with 'get'
do zmen&y with 'say'
Skute
znam? (a/N)
ident_sraz
dr_sraz
it pr
ci beze zm
n? (a/N)
mod612g
KONEC
LATSI
IJMENI
D_CIS
EV_ZP
_AUTOR
NAP_HOD
P_ZOB
LATSS_DR_SR
UCHLASENI
PLAT_SRM6_ZPZ
NIW_OSC
S_OSC
SM6_ZAM
PUCW_ROD_CIS
RODNE_CIS
W_ICO
ATS_ICO
W_KOD_ZP
=W_DAT_ZMENW_POHLAVI
W_ROK_NAR
KONS_S
ST_POCET
KPOCET
V_ORG
IJMENIQ6
ATMENU2
DOMUPORADI2
PROC2
'vVOLBA
iPROC1
zID_ORG
KUHNOVY_Z
1M6_SRAZK
iZAZ_M6
SC6_SRAZK
CMOD612C2
IDENT_SRAZOSC
IDR_SRAZ
AZNAPLN_POL
PORADI
K_UDAJU
='OK_C
_DOMUULOZ
ndPRIDEJ_ZAZZMENA
PLN_POL
MOD612G
dKOD_ZP
DAT_ZMEN
1POHLAVI
ENROK_NAR
AKTUAL
MM_AUTOR
nDAT_AKT
alAUTOR
ehled spole
ehled organizac
Konec
mod6_lib
mod_proc
&barvau
mod7_lib
&barvau
&barvau
LATSO1
OSCW_CIS_SPUCS_CIS_SPUCZOBR_SRAZUMOD6_LIB
CZMENA
SPUCS_DR_SR
UCW_ZP
RS_ICO
SZOBR_ZP
NMOD_PROC
W_DICO
W_NAZ
LATSZOBR_ORGANS_ZAVOD
MOD7_LIB
C6_SRAZK
SW_ROD_CIS
M6_ZAM
PUCRODNE_CIS
ZMENA
RAZUOSC
CS_OSC
SPUCDR_SRAZ
UCW_DR_SRAZ
TYP_SRAZ
SS_TYP_SR
NIDENT_SRAZS_IDENT_SRDAT_ZAH
TSS_DAT_ZAH
DAT_UKON
S_DAT_UKONCELK_SRAZ
S_CELK_SR
SPLAT_SRAZS_SPLAT_SRSAZBA
S_SAZBA
ZAKLAD
ATS_ZAKLAD
VYSE_SRAZ
S_VYSE_SR
MIN_SRAZ
S_MIN_SR
POSL_VYSE
S_POSL_VYSPOSL_DAT
KS_POSL_DATOSOBY
RS_OSOBY
(S_ICO
ZAVOD
MENIS_ZAVOD
YSVAR_S
ATS_VAR_S
MUKONS_S
S_KONS_S
vSPEC_S
iS_SPEC_S
zUCET
iS_UCET
KUHPOZNAMKA
1S_POZNAM
iPOZAST_SR
S_POZAST
CZP_PLATS
S_ZP_PLATSCIS_SPUC
IS_CIS_SPUCSNIZ_ZP
S_SNIZ_ZP
MIN_VZ
='S_MIN_VZ
UPRIJMENI
dS_PRIJMENIJMENO
(S_JMENO
"S_BYDL
S_PSC
1ULICE
ENS_ULICE
CIS_DOMU
S_CIS_DOMUDATUM
alAKTUAL
i+1MM_AUTOR
'M6_SRAZK
ZAZ_M6
udaj_sf
udaj_sf
udaj_nf
udaj_nf
M6_SRAZK
udaj_nf
W_NAZEV
SUDAJ_S
UDAJ_N
PUCW_UDAJ_N
W_UDAJ_S
CW_NAZ_DBF
M6_ARC
UCCISLOZ
NAZEV_DBF
NAZEV_POL
TYP_POL
SRDAT_ZMENY
CAS_ZMENY
OBSAH_S
OBSAH_N
NDELKA_POL
AKTUAL
MM_AUTOR
ZC6_SRAZK
Osobn
slo nen
uvedeno
Osobn
slo neexistuje
TYP_SRAZ
s_typ_sr
ident_sraz
dr_sraz
Nejednozna
identifikace sr
Datum zah
t vypln
Datum ukon
nesm
t men
datum zah
Chybn
hodnota pozastaven
ky (mezera, A)
ZP_PLATS
s_zp_plats
Neexistuje
slo sb
Neexistuje
slo spole
Typ sr
"MP" je ur
en pouze pro druh sr
ky "EX"=exekuce
Celkov
ka mus
t pro typ sr
ky "MP" a "MC" vypln
"Sazba" a "M
ky" nesm
t vypln
ny sou
"Sazba" nebo "M
ky" mus
t vypln
Nutno vyplnit. Povolen
hodnoty jsou "B"=brutto a "N"=netto
Zdravotn
poji
ovna nebyla nalezena
Organizace nebyla nalezena
Chybn
hodnota ozna
tce pojistn
Chybn
hodnota uplatn
minim
ho VZ zdravotn
ho poji
SS_OSC
HLASKA
UDAJ_N
DAJ_S
CM6_ZAM
JMENO_C
UCWJMENO_C
MOD_C2
MOD_C3
ZMENA
SRS_DR_SR
W_POC
X_DUPL
M6_SRAZK
NIDENT_SRAZNOVY_Z
S_IDENT_SROSC
ENT_SRDR_SRAZ
SRZAZ_M6
C6_SRAZK
S_DAT_ZAH
S_DAT_UKONQ5
S_POZAST
VYSQ8
KS_ZP_PLATSM6_SRAZU
RS_CIS_SPUCQ9
(S_TYP_SR
CS_CELK_SR
YSS_SAZBA
ATS_VYSE_SR
S_ZAKLAD
iM6_ZP
zS_ICO
KUHS_ZAVOD
1M4_ORGAN
iS_SNIZ_ZP
CS_MIN_VZ
S_OSC
S_DR_SR
UCDR_SRAZ
S_TYP_SR
UTYP_SRAZ
CS_IDENT_SRIDENT_SRAZS_DAT_ZAH
DAT_ZAH
S_DAT_UKONDAT_UKON
S_CELK_SR
CELK_SRAZ
S_SPLAT_SRSPLAT_SRAZS_SAZBA
NSAZBA
SRAZS_ZAKLAD
ZAKLAD
_SRS_VYSE_SR
VYSE_SRAZ
S_MIN_SR
MIN_SRAZ
TS_POSL_VYSPOSL_VYSE
S_POSL_DATPOSL_DAT
NS_OSOBY
OSOBY
S_ICO
VYSICO
KS_ZAVOD
TSZAVOD
RS_VAR_S
UCVAR_S
(S_KONS_S
CKONS_S
S_SPEC_S
SSPEC_S
ATS_UCET
S_POZNAM
POZNAMKA
iS_POZAST
zPOZAST_SR
S_ZP_PLATSZP_PLATS
1S_CIS_SPUCCIS_SPUC
S_SNIZ_ZP
SNIZ_ZP
S_MIN_VZ
SMIN_VZ
IS_PRIJMENIPRIJMENI
S_JMENO
JMENO
='S_BYDL
UBYDL
dS_PSC
MENIPSC
(S_ULICE
ULICE
"S_CIS_DOMUCIS_DOMU
S_DATUM
1DATUM
ENS_AUTOR
AUTOR
S_AKTUAL
UAKTUAL
-
- ^PgDn
- ^Home
- F10
- ^End,Esc
- F6
Pohyb
znamu
znamu
Organizace
Konec
S_DR_SR
-
- ^End,Esc
Pohyb
Konec
q&si = pocet
q&si = 0
DR_SR
NOVY_Z
UCID_ORG
S_DR_SR
US_MIN_VZ
CS_SNIZ_ZP
S_ZP_PLATSS_CIS_SPUCS_ICO
LATSS_ZAVOD
ONS_VAR_S
S_KONS_S
S_SPEC_S
S_UCET
_SRS_PRIJMENIS_JMENO
NS_BYDL
RAZS_PSC
S_ULICE
SRS_CIS_DOMUPOCET
IN_SR
s_osc
mod_proc
s_typ_sr
TYP_SRAZ
s_typ_sr
s_dr_sraz
DR_SRAZ
s_dr_sr
s_zp_plats
ZP_PLATS
s_zp_plats
s_cis_spuc
mod6_lib
s_ico
s_zavod
mod_proc
mod7_lib
w_kod_zp
KOD_ZP
w_kod_zp
Pro toto pole neexistuje pomocn
ehled hodnot
P_ZOB
SW_OSC
S_OSC
UCZOBR_ZAM
MOD_PROC
UZMENA
CMOD_C3
W_CIS_SPUCS_CIS_SPUCZOBR_SRAZUMOD6_LIB
CS_DR_SR
UCW_ZP
S_ICO
ZOBR_ZP
SRW_ICO
IW_ZAVOD
NS_ZAVOD
AZW_DICO
W_NAZ
SRZOBR_ORGANMOD7_LIB
SZMENA_ZP
HLASKA
colora
set color to &color
SCOLOR
NOVY_Z
SC6_SRAZK
DR_SRAZ
CW_DR_SRAZ
AUTOR
UMM_AUTOR
CAKTUAL
DATUM
CDAT_ZAH
UCW_ZAC_MES
ZAKLAD
CVZNIK
UCSAZBA
ID_ORG
ZP_PLATS
RMIN_VZ
SNIZ_ZP
NM6_SRAZK
ZZAZ_M6
Akt. m
V
99999999.99
99999999.99
ST_ZAZ
SPOM_SOUC
SOUCET
CVYSE_SRAZ
SOUC_VSE
USOUC_AKT
POZAST_SR
DAT_ZAH
CW_ZAC_MES
DAT_UKON
W_KON_MES
MOD612FX
HLASKA
ZMENA_SR
PORADI
#%
POR_DET
eniL(
PROC1
ZMEN1
{1
PORADI2
volK@
PROC2
sk (
ZMEN2
f6 =
ZMENY
/F
VOLBA
ba po
t./.f.
ARCHIV
K_UDAJU
NAPLN_POL
f10 =
MENU2
jm =
NASTAV_Q
NAP_HOD
HLASKA
PRIDEJ_ZAZ
FUN_PRG
W:\06\
MOD612C2.FXP
W:\06\MOD612C2.PRG