mod_ps
mod_ps
set procedure to &selfproc
colora
  .  .  #
tiskprgf
archprgf
archiv
FFFZ^D
pocet=poc&u
FoxProFl
+chr(179)+
mez&u=len(veta(uu))+1
i=poc&a
+' '+
+chr(179)+
mez&u=len(veta(uu))+1
i=poc&a
+' '+
Zadny zaznam
FoxProFl
set procedure to &procx
delete file &ps1_dbf
delete file &ps2_dbf
set procedure to &tiskproc
do &tiskprg
set procedure to &selfproc
FoxProFl
do &enter
select &sel
 Pocet zaznamu: FF
save to c_z&ciss all like zahl
restore from c_z&ciss additive
delete file &soubor
Pri vyberu a trideni vyhledavani nelze provadet.
 Vyhledavani 
Zadejte hodnotu klice:
XXXXXXXXXXXXXXXXXXXXXXXX
mod_ps
FoxProFl
do &f10prg
select &sel
 Pocet zaznamu: FF
mez=mez&y
mez=mez&y
FoxProFl
set procedure to &procx
delete file &ps1_dbf
delete file &ps2_dbf
MOD_PS
SELFPROC
EOLDCOLOR
CURSEL
ZAHLC
POLEX
TISKPROC
PROCX
TISKPRG
EARCHPROC
ARCHPRG
PS1_DBF
ORCISS
PS2_DBF
ZAHLAVI
KLICU
FMEZ1
POCET
JMENO
ZAHLAVIX
NVETAX
PROHL
1POCZ
RAMECEK
HLAVI
R_R2P
TROL1
PREHLED
Y_POL
tPODMV
SSPODMS
DNADPIS
EPRAVA
PREP_1
EPREP_16
PEVYBER
TRIDENI
FTISK
MODTESTT
DETAIL
T_ZAZ
LKA_TXT
M_EXIT
M_MAZANI
kENTER
cVOLBA
NASOUBOR
ctARCHIV
 m_KLIC
dbF10PRG
 Nacteni konfigurace 
 Ulozeni konfigurace 
 Konec 
m_sest
xc_sest
 Ulozeni parametru 
Poznamka:
m_sest
x_sest
FoxProFl
m_sest
select &sel
M_SEST
POZNAMKA
EXC_SEST
PROGRAM
PROCX
P_ENTER
M_POZN
X_SEST
PODMV_T
PODMS_T
VETA_T
EZAHLAVI_T
PODMV
PODMS
VETAX
ORZAHLAVIX
 Pocet zaznamu: FF
Vyber
Trideni
Polozky
Archiv
Vyhledani
Detail
XXXXXX
Konec
- F10
- <Enter>
- Esc,^End
RAMECEK
NAZEVT
ERIIS
NADPIS
PRAVA
LAVI_T
ORF10
DETAIL
DET_JM
NADPIS
PRAVA
EZAHLAVIX
FoxProFl
prom = &vetax
@ p+nadpis,cara+1 say &a
pol(cp)=&vetax
PREHLEDV
HLAVIX
PRAVA
EVETAX
NADPIS
ORPROM
FoxProFl
prom = &vetax
pol(cp)=&vetax
EHLEDV
ELEVA
PRAVA
VETAX
NADPIS
FoxProFl
pol(1) = &vetax
VETAX
FoxProFl
pol(cpp) = &vetax
EVETAX
chr(27)+'P'
chr(27)+'M'
chr(27)+'P'+chr(15)
chr(27)+'M'+chr(15)
chr(27)+'P'
chr(27)+'M'
chr(27)+'P'+chr(15)
chr(27)+'M'+chr(15)
ZAHLAVIT
EZAHLT1
ZAHLAVIX
POLEX
PISMO
STRANA
TISK_HL
ETISK_S
@rad+4,0 say &pismo
PODNIK
NAZEVT
ZAHLAVIT
ZAHLAVIX
ZAHLT1
@cr,1 say &pismo
@cr,pcol() say &jmenot +' '
prom = &vetax
POLEX
JMENOT
JMENO
ZAHLAVIT
LAVIT
ESTRANA
   a 
.and.
nebo 
konec
Vyber
  .  .  #
nebrat
PICTFF
@s,v get &prom picture &pictx
@s,v get &prom
@s,v say &prom
STOP - delku podminky jiz nelze zvetsovat !
 Ukoncit 
 Zrusit 
select &sel
select &sel
copy fields &klicf to &ps1_dbf
use &ps1_dbf
set rela to &klicr into &sel
index on &podms to &ps1_dbf
select &sel
copy fields &klicf to &ps1_dbf for &podmv
use &ps1_dbf
 K zadane podmince nebyl nalezen zadny zaznam.
select &sel
set rela to &klicr into &sel
index on &podms to &ps1_dbf
POLEX
EZAHLC
LOGIC
OPERAND
ERAND
XOPER
OBSAHX
VYBER
VYB_POL
PODMV
OROBSAH
RELACE
APICTX
FMOD_SYS
PODMS
dalsi
konec
Volba polozek
..........
+' '+
.................
POLEX
EZAHLC
VETAX
ZAHLAVIX
ERAND
LOGIC
XOPER
VYBER
VYB_POL
EZAHLAVI
JMENO
   a 
.and.
nebo 
konec
Volba klice
  .  .  #
nebrat
PICTFF
@s,v get &prom picture &pictx
@s,v get &prom
@s,v say &prom
dtoc(dat)
STOP - delku podminky jiz nelze zvetsovat !
 Ukoncit 
 Zrusit 
locate for &podmhl
 K zadane podmince nebyl nalezen zadny zaznam .
sele &sel
POLEX
EZAHLC
LOGIC
OPERAND
ERAND
XOPER
OBSAHX
VYBER
VYB_POL
PODMHL
ROBSAH
RELACE
APICTX
dalsi
konec
Trideni
nebrat
......
.................
 STOP - delku klice jiz nelze zvetsovat ! 
 Ukoncit 
 Zrusit 
select &sel
select &sel
copy fields &klicf to &ps1_dbf
use &ps1_dbf
set relation to &klicr into &sel
index on &podms to &ps1_dbf
index on &podms to &ps1_dbf
POLEX
EZAHLC
LOGIC
XOPER
VYBER
VYB_POL
PODMS
OBSAH
EPROM
NPOS1
NPOS2
MOD_SYS
PODMV
PS1_DBF
select &sel
select &sel
copy fields &klicf to &ps1_dbf
use &ps1_dbf
set rela to &klicr into &sel
index on &podms to &ps1_dbf
select &sel
copy fields &klicf to &ps1_dbf for &podmv
use &ps1_dbf
 K zadane podmince nebyl nalezen zadny zaznam.
select &sel
set rela to &klicr into &sel
index on &podms to &ps1_dbf
MOD_SYS
PODMV
PODMS
EST_I
POLEX
VYBER
Zadna archivni konfigurace neexistuje
select &sel
set color to &barva
w+/bg
select &sel
select &sel
w+/bg
w+/bg
EHMEZ
POCZ_ARC
HELP1
STREC
EBARVA
SAYRAD
M_MAZANI
RVETAX
PODMV
PODMV_T
PODMS
APODMS_T
VETA_T
FZAHLAVIX
ZAHLAVI_T
TV_IDX
FPOCZ
Poznamka
set color to &barx
POZNAMKA
Konec
Vyber konfigurace
- Esc
- <Enter>
ARCHIV
RAMECEK
ZAHLAVI
PREHLED
PREHLEDV
PREP_1
PREP_16
TISK_HL
TISK_S
VYBER
VOLBA
VYHLED
TRIDENI
TV_IDX
VYB_POL
P_ENTER
SAYRAD
HELP1
L:\OBEC\
MOD_PS.FXP
L:\OBEC\MOD_PS.PRG