dMOD62IGX
m_param
m6_srazk
ident_sraz
u6_mzdy
m6_zam
m4_organ
m6_byd
z6_ppar
if !file('&f_adr\data\z6_posta.dbf')
use &f_adr\data\z6_posta order typ_vety
 pouk
RIIS 6.2
Funkce
fun_prg
Aktual.
akt_zaz
mod62ig
Zadejte p
' '+typ_vety+' '
typ_vety
' '+str(por,5)
Spec. adr.
spec_adr
spec_adr
zev adres
naz_adr
naz_adr
Ulice
ulice
ulice
cislo
cislo
st obce
cast_obce
cast_obce
str(psc,5)
va pro p
jemce
zprava
zprava
Podm.
vypl_podm+'    '
vypl_podm
Dat.v
tran(dat_vypl,'@E')+' '
dat_vypl
str(castka,10,2)
castka
    Sazba
str(sazba,9,2)
sazba
M_PARAM
dW_PICT_OSCDELKA_OSC
M6_SRAZK
xIDENT_SRAZU6_MZDY
neOSC
ech poM6_ZAM
---M4_ORGAN
M6_BYD
='TZ6_PPAR
o(GENERUJ
+tZ6_POSTA
'POLEX
=RAMECEK
NAZEVT
*RIIS
(i)='RTOP
jmRBOT
="' 'CLEFT
r,5)CRIGHT
i)=FREEZE
 = F1
zahF2
='Spec.F3
jmeF4
) = "spF6
)="specF9
i = F10
zahF10_JM
zevF10PRG
DETAIL
)="DET_JM
hENTER
"nazPROCX
i = F9KEY
zahZAHL
eJMENO
o(i)HODN
"uliMOD_PSV
POCET
dPOCETC
OSCPOC
RIIS 6.2
imu v
ru nelze prov
t opravy z
imu t
 nelze prov
t opravy z
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
CPODMV
OSCCPODMS
xZ6_POSTA
ZTYP_VETY
ech poNOVY_Z
---W_POR
-W_SPEC_ADRSPEC_ADR
TW_NAZ_ADR
NAZ_ADR
+tW_ULICE
'ULICE
=W_CISLO
CISLO
*W_CAST
)='CAST_OBCE
W_OBEC
' 'OBEC
r,5)W_PSC
i)=PSC
 = W_ZPRAVA
hZPRAVA
ec.W_PODM
jmeVYPL_PODM
W_DAT_VYPLDAT_VYPL
cW_CASTKA
 CASTKA
zahCISELNIK
)="POCET
hDOP1
"nazDOP2
i = COUNT
zahZAKAZNIK
eZMENA
o(i)POMOC
hOK_C
"uliY
D_PSV
i+RAD
ahl(SL
o(i)="KONTROLA
dBARVAS
sloBARVAR
BARVAZ
(i)BARVAU
bceBARVAN
(i)BARVAH
bceBARVA
(i)=KS
ce"MENU
PORADI
i)=KONEC
="obecR
dn(i)=Z
i)='  PSQ
jmeno(iA
str(psc,Q1
dn(iQ2
i)='ZprQ5
pro p
jmeQ7
)="zpraQ8
hodn(iQ9
prava"
l(i)='Q12
jmeZMENY
vyplPS_RETURN
&barva
 Aktualizace po
ch pouk
Spec. adres
zev adres
Ulice
st obce
va pro p
jemce
platn
 podm
Datum v
platy
99999
99999
99999999.99
W_POR
dW_SPEC_ADRW_NAZ_ADR
W_ULICE
xW_CISLO
ZW_CAST
eW_OBEC
 poW_PSC
---W_ZPRAVA
-W_PODM
ADRW_DAT_VYPLW_CASTKA
@ 11,25 &vloz w_por pict '99999'
@ 12,25 &vloz w_spec_adr pict w_pict_osc
@ 13,25 &vloz w_naz_adr
@ 14,25 &vloz w_ulice
@ 15,25 &vloz w_cislo
@ 16,25 &vloz w_cast
@ 17,25 &vloz w_obec
@ 18,25 &vloz w_psc pict '99999'
@ 19,25 &vloz w_zprava pict '@X' function 'S50'
@ 20,25 &vloz w_podm
@ 21,25 &vloz w_dat_vypl pict '@E'
@ 22,25 &vloz w_castka pict '99999999.99'
dNOVY_Z
ADRPOCET
 poQ5
---Q6
PRAVA
ADRQ8
AT_VYPLQ9
ASTKA
+tQ11
W_OSC
*W_SPEC_ADRM6_ZAM
W_NAZ_ADR
PRIJMENI
)JMENO
i)=TITUL
 = M6_BYD
ec.BYDL_KOR
eW_ULICE
ULICE
VYPLW_CISLO
cCIS_DOMU
 W_OBEC
zahBYDL
vW_PSC
)="Z6_POSTA
hPROC1
zZMENA
do proc&y
do zmen&y with 'get'
do zmen&y with 'say'
mod_proc
it pr
ci beze zm
n? (a/N)
KONEC
PRAVA
AT_VYPLW_OSC
W_SPEC_ADRZOBR_ZAM
'MOD_PROC
=ZMENA
_ADRM6_ZAM
ADRW_NAZ_ADR
PRIJMENI
JMENO
TITUL
)M6_BYD
i)=OSC
 = BYDL_KOR
hW_ULICE
c.ULICE
eW_CISLO
CIS_DOMU
LW_OBEC
cBYDL
 W_PSC
zahPSC
vZ6_POSTA
PROC1
"NOVY_Z
hTYP_VETY
i = ST_ZAZ
zahW_POR
eSPEC_ADR
RNAZ_ADR
CISLO
liW_CAST
i+CAST_OBCE
W_ZPRAVA
"ZPRAVA
dW_PODM
sloVYPL_PODM
W_DAT_VYPLDAT_VYPL
eW_CASTKA
)CASTKA
(i)=K_UDAJU
e"OK_C
LPOCET
obecPOM
Chybna specifikace adresata
Castka musi byt vyplnena
dM6_ZAM
ADRW_SPEC_ADRHLASKA
eZ6_POSTA
oW_CASTKA
ZMENA
dW_SAZBA
DRSTAN_SAZBAW_CASTKA
xW_PODM
ZW_DAT_VYPLPOR
oW_POR
-SPEC_ADR
-W_SPEC_ADRNAZ_ADR
PLW_NAZ_ADR
ULICE
_ADRW_ULICE
'CISLO
=W_CISLO
DRCAST_OBCE
W_CAST
W_OBEC
)W_PSC
i)=ZPRAVA
 = W_ZPRAVA
hVYPL_PODM
DAT_VYPL
eCASTKA
YPLSAZBA
colora
set color to &color
dCOLOR
DROBR
_SAZBA~
      - 
                 - ^PgDn
                 - ^Home
      - ^End,Esc
Pohyb
Konec
colora
SET COLOR TO &col
CMESS
 Tvorba diskety pro po
 Generov
 pouk
 Konec 
OBRXX
dST_ZAZ
DRW_VOL
ZBATVOR_DISK
GENERUJ
ZPS_RETURN
Z6_POSTA
c_disk
 Prob
 tvorba souboru pro po
tu ... 
c_disk
0FFFF$K^
0FFFF$%^
c_disk
Disketa pro po
tisk_pruv
zapis
mod62ig
substr(veta1,1,6)
substr(veta1,1,6)
substr(veta1,7,70)
substr(veta1,7,70)
substr(veta1,77,70)
substr(veta1,77,70)
substr(veta1,147,70)
substr(veta1,147,70)
substr(veta1+veta2,217,70)
substr(veta1+veta2,217,70)
C_DISK
dVETA1
DRVETA2
ZBATYP
Z6_POSTA
ZST_ZAZ
oMOD_SYS
-MESS
-W_CAST_SUMW_SAZBA
PLW_POC_VET
_ADRTYP_VETY
'W_D2
DRW_D3
SPEC_ADR
NAZ_ADR
)ULICE
i)=W_D6
 = CISLO
hW_D7
CAST_OBCE
YPLOBEC
LW_D9
 W_D10
zahZPRAVA
vW_D11
VYPL_PODM
W_D12
hDAT_VYPL
zW_KC
i = CASTKA
zahW_HAL
eW_D13
RSAZBA
UMW_VETA1
W_VETA2
i+W_MM
W_PVDS
"W_CIS_POD
Z6_PPAR
loCIS_POD
W_KOD_B
PLKOD_BANKY
W_PREDCIS
PRED_UCET
W_UCET
i)=UCET
e"W_KONS
KONS_S
)=W_SPECS
LSPEC_S
ecW_KC_C
i)=W_HAL_C
UMW_KC_SAZ
MW_HAL_SAZ
W_DOB_PLATDAT_PLAT
,W_S1
dn(iW_S2
i W_S3
zW_S4
='ZprW_S5
raW_S8
odn(iW_S9
W_S10
*W_S11
W_S12
jmeW_S13
plW_S14
W_S15
W_S16
W_S17
W_S18
PLATW_S19
pl.W_S20
o(i)W_S21
dat_W_S22
E')+W_S23
odn(W_S24
_vypOBR
+1POLEX
hl(iPROCX
stRTOP
meno(RBOT
r(casCLEFT
CRIGHT
="cFREEZE
i =ORDER
zaZAHL
'    JMENO
jmeHODN
"str(TITLE
,2)"TITLECOLORF1
-------F3
steni pF4
amu modF6
-------F7
-------F9
do mF10
relDETAIL
l, F1PRG
hodnF4_JM
*F4PRG
****F7_JM
****F7PRG
****F9KEY
****F10_JM
***F10PRG
***DET_JM
cedDETPRG
entRAMECEK
poNAZEVT
f pRIIS
ocetcTISKPRG
t=PS_RETURN
PS_LINE
PrMOD_PSV
 Disketa A: 
 Disketa B: 
 Konec 
!&pth\test_d &w_vyst
ERROR
Disketa nebyla vlo
 Prob
 tvorba instala
 diskety ... 
copy all to &soub_txt sdf
! &pth\arj a &soub &soub_txt >nul
! copy &soub_arj &w_vyst /v >nul
delete file &soub_arj
delete file &soub_txt
W_OBR1
dVOLX
DRW_VYST
ZBATEST
HLASKA
ZMESS
C_DISK
oSOUB
-W_CIS_POD
SOUB_TXT
MSOUB_ARJ
mod_lib
mod_lib
 Prob
 tisk  ... 
mod62ig
P_SETUP
dP_RESET
DRP_6LPI
ZBAP_8LPI
P_10CPI
ZP_12CPI
P_16CPI
oP_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
NULUJ_TISKMOD_LIB
 W_TISK
zahNASTAV_PRNSOUB
W_CIS_POD
SOUB_TXT
hOBRT
zMESS
i = MOD62IG
if file('&f_adr\data\z6_posta.dbf')
use &f_adr\data\z6_posta order typ_vety excl
use &f_adr\data\z6_posta order typ_vety
create dbf &f_adr\data\z6_posta (typ_vety c(1), por n(5),  spec_adr c(15), naz_adr c(40), ulice c(40), cislo c(8), cast_obce c(40),  obec c(40), psc n(5), zprava c(60), vypl_podm c(1), dat_vypl d(8),  castka n(11,2))
 Tvorba souboru Z6_POSTA.DBF ...  
z6_posta
Z6_POSTA
dTYP_VETY
ZBAOBR
MOD_SYS
12CPI
U6_MZDY
oPOCET
-POCETC
W_POR
W_ULICE
W_CIS_DOMUW_BYDL
RW_PSC
UPERON
M6_ZAM
OFFOSC
M6_SRAZK
IDENT_DOKLZP_PLATS
FBYDL
RQUALPSC
)=ULICE
_OFFCIS_DOMU
W_JMENO
FFPRIJMENI
JMENO
_OFFTITUL
UW_CASTKA
UCASTKA
 W_SAZBA
ahW_PODM
PRNSTAN_SAZBASPEC_ADR
NAZ_ADR
hCISLO
zOBEC
i = SAZBA
ahPROCENTA
UPS_RETURN
FFFZ^D
select &st_sel
W_OSC
dW_ULICE
RW_CIS_DOMUW_BYDL
W_PSC
ZST_SEL
ST_BYD
oM6_BYD
M6_ZAM
BYDL_KOR
ULICE
MUCIS_DOMU
UBYDL
W_CASTKA
dW_SAZBA
RW_PODM
OMUW_DAT_VYPLMOD62IGX
PROCENTA
AKT_ZAZ
PORADI
PROC1
ZMEN1
ZMENY
K_UDAJU
HLASKA
FUN_PRG
TVOR_DISK
ZAPIS
TISK_PRUV
GENERUJ
STAN_SAZBA
X:\OBEC\06\
MOD62IG.FXP
X:\OBEC\06\MOD62IG.PRG