ID_ORG
*UZAV_STARAUZAV_NOVA
RIIS 7.9
Archivace pokl. den
ku a kurz. listku
 Prob
hne archivace pokl. den
ku,obrat
 a kurz. listku.
 Archivovan
 data budou vymaz
na ze z
kladn
ch soubor
Pokra
ovat (A/N): 
           O.K. - prob
 archivace  ...    
m_param
! flag &f_adr\data\u7_kasa.dbf -t >nul
! flag &f_adr\data\m7_kasa.dbf -t >nul
! flag &f_adr\data\u7_obru.dbf -t >nul
! flag &f_adr\data\m7_obru.dbf -t >nul
! flag &f_adr\data\u7_meny.dbf -t >nul
m7_kasa
cis_dok
a7_kasa.dbf2
copy stru to &f_adr\data\a7_kasa with cdx
m7_obru
a7_obru.dbf2
copy stru to &f_adr\data\a7_obru 
copy file m7_meny.dbf to &f_adr\data\u7_meny.dbf
copy file m7_meny.cdx to &f_adr\data\u7_meny.cdx
copy file m7_kasa.dbf to &f_adr\data\u7_kasa.dbf
copy file m7_kasa.cdx to &f_adr\data\u7_kasa.cdx
a7_kasa
m7_kasa
m7_kasa
m7_meny
m7_vdra.dbf2
copy file m7_vdra.dbf to &f_adr\data\u7_vdra.dbf
copy file m7_vdra.cdx to &f_adr\data\u7_vdra.cdx
a7_vdra
m7_vdra
m7_vdra
m7_ucto
m7_pokl
! flag &f_adr\data\u7_kasa.dbf t >nul
! flag &f_adr\data\m7_kasa.dbf t >nul
! flag &f_adr\data\u7_obru.dbf t >nul
! flag &f_adr\data\m7_obru.dbf t >nul
! flag &f_adr\data\u7_meny.dbf t >nul
KONEC
*W_SK
STARAUZAV
PUSTIT
***MOD_SYS
**M_PARAM
**KOD
******POLE0
W_SIT
M7_KASA
CIS_DOK
M7_OBRU
A7_KASA
M7_MENY
DRUH_MC
STAV_M
ZASOBA
STAV_D
PRIJ_M
VYD_M
PRIJ_D
VYD_D
POC_PM
POC_VM
POC_PD
POC_VD
A7_VDRA
M7_VDRA
M7_UCTO
POC_OBDOB
PLAT_POK
ROK_POK
M7_POKL
DOKLAD
RIIS 7.9
rka pokladny
 Pokladn
 obraty se ulo
ejdeme na nov
 obdob
 Archivovan
 data budou vymaz
na ze z
kladn
ch soubor
Pokra
ovat (a/N) : 
m7_pokp
Obdob
rky :
Za zadan
 obdob
rka ji
 prob
Chybn
 zadan
c obdob
Chybn
 zadan
 rok obdob
Chybn
 zadan
c obdob
Chybn
 zadan
 obdob
Chybn
 zadan
 rok uz
  Prob
rka  ...  
m_param
! flag &f_adr\data\m7_obrp.dbf -t >nul
! flag &f_adr\data\m7_obrpp.dbf -t >nul
! flag &f_adr\data\u7_obrp.dbf -t >nul
! flag &f_adr\data\u7_obrpp.dbf -t >nul
! flag &f_adr\data\a7_obrp.dbf -t >nul
! flag &f_adr\data\a7_obrpp.dbf -t >nul
! flag &f_adr\data\u7_meny.dbf -t >nul
! flag &f_adr\data\u7_poklm.dbf -t >nul
m7_obrp
cis_dok
m7_obrpp
cis_dok
m7_meny
mena_c
m7_poklm
ident_pok
a7_obrp
a7_obrpp
m7_pokp
m7_pokld
copy to &f_adr\data\u7_obrp with cdx
u7_obrp
copy to &f_adr\data\u7_obrpp with cdx
u7_obrpp
copy to &f_adr\data\u7_meny with cdx
copy to &f_adr\data\u7_poklm with cdx
! flag &f_adr\data\u7_meny.dbf t >nul
KONEC
*W_SK
STARAUZAV
M7_POKP
**MESIC_POK
**W_MM_ST
**ROK_POK
W_RR_ST
HLASKA
MOD_SYS
M_PARAM
POLE0
W_SIT
M7_OBRP
CIS_DOK
M7_OBRPP
M7_MENY
MENA_C
M7_POKLM
IDENT_POK
A7_OBRP
A7_OBRPP
M7_POKLD
UZAVR
U7_OBRP
U7_OBRPP
STAV_D
ZASOBA
PRIJ_D
VYD_D
STAV_M
PRIJ_M
VYD_M
POC_PM
POC_VM
POC_PD
POC_VD
DOKLAD
colora
set color to &color
*COLOR
colora
set color to &color
*COLOR
TARAOBR
UZAV_STARA
UZAV_NOVA
HLASKA
X:\OBEC\09\
MOD95A.FXP
X:\OBEC\09\MOD95A.PRG