Chip 1999 June/Chip_1999-06_cd.bin/tema/SoWa/OBEC.EXE/MOD_KOND.FXP

MS Visual FoxPro App | 1999-03-18 | 13KB | 307 lines

misto7
prac_adr7
prac_adr7
pathzF
pathz
set defa to &f_drv
run &f_drv
cd ..
use &f_adr\data\m_param
set path to &pth, &f_adr, &f_adr\data
do chyba with sys(16),error(),lineno()
master
Epson LX-810
misto7
stanice7
typ_zpr7
LADENI
\LADENI
\DATA
prac_adr7
FoxProFl
set path to &f_adr,&pth,&pth\01,&pth\02,&pth\03,&pth\04,&pth\05,&pth\06,&pth\07,&pth\08,&pth\09,&pth\10,&pth\11,&pth\12,&pth\13,&f_adr\data
M_PARAM
m_param
FoxPro 2.5
csprol25
csprol
chdir
mkdir
rmdir
set defa to &w1w
run &w1w
chdir
chdir
set defa to &w2w
run &w2w
mkdir
chdir
mkdir
chdir

 d r
 b a   RIIS
m_param
! flag &f_adr\data\m_dbf.dbf -t >nul
m_dbf
! flag &f_adr\data\m_dbf.dbf t >nul
m_dbf
m_dbf
nazev
m_idx
m_idx
m_idx
cesta
>syst
  Prob
 indexace datab
 ...
\data\
case !file('&w_dbf')
M_DBF
M_IDX
\data\
use &w_dbf excl
use &w_dbf excl
modify command
quit ;
*.*a@
set default to &f_drv
run &f_drv
*.*a@
chdir
rmdir
EUTIT
 talk PRIOR
----A1
-------AA
-------PRIHLAS
--HESLO
--- SLAPEJ
?w?PRISTUP
MM_ZPET
MM_VER
n_gUSCHOVA
O_MM_DEMO
_OMM_AUTOR
_MM_JMENO
 W_TISKARNAW_FRONTA
 PODNIK
_ _CISS
 _ _ W_CESTINA
W_EGA_MIN
W_KODPRN
_W_SIT
_ _ W_CSCON
 _W_CSPROL
 W_ADR
 _ _W_MISTO
_ W_CD
_ _ _PTH_DATA
 F_DRV
 _ _XX
F_ADR
PT_OBEC
_ID_ORG
W_SIT_OS
_SIT_OS
W_SIT_OSV
VERZE
_W_SET
POLE0
_W_TYP_ZPR
M_PARAM
FIRMA
CSPROL25
CSPROL
CHDIR
_MKDIR
RMDIR
_ _W1W
_W_CESTA
W_FLAG
_M_DBF
_CESTA
NAZEV_DBF
NAZEV
M_IDX
_NAZEV_IDX
NAZEV_TAG
W_ORDER
UZ_AKCE
ST_REC
- CSPROLPOCET
POCETC
W_DBF
X_DBF
KONT_HL
INDEXACE
PROCENTA
compact
ascending
descending
index on &w_klic tag &w_tag &konec_idx
\data\
index on &w_klic to &w_idx
 talk M_IDX
----M_DBF
----CESTA
----NAZEV_DBF
NAZEV_TAG
KONEC_IDX
TYP_IDX
ORD_IDX
KLIC_IDX
W_KLIC
O_W_TAG
ONAZEV_IDX
W_IDX
 F_ADR
ARNADATUM_AKT
POCET
alk POCETC
---POC
colora
alk HCOLOR
---OBRH
colora
alk MCOLOR
enter
centuryz
w_cestinaf
colorz
set color to w+/n
set color to  w/n
&barva2
&barva1
Moment - se souborem se pracuje
ekejte nebo stiskn
te <Esc>...
&barva2
&barva1
Moment - se z
znamem se pracuje
ekejte nebo stiskn
te <Esc>...
&barva2
&barva1
stup na tisk
rnu pozastaven
it pap
r (?)........<Enter>
\data\
delete file &sw_dbf
FULLPATHa
m_log
m_log
chyba
w_modud1xf
Probiha udrzba databazi
w_poc_chf
kondenzace:
kondenzace:
select &sel
chyba
set defa to &w1w
run &w1w
chdir
chdir
chdir
ER_PRG
lk ER_CHYBA
-ER_C_RAD
-HOME
---END
V_DBF
EV_TAG
ENTER
W_CESTINA
BARVA1
BARVA2
MQCOL
EV_IDX
 SCR_ER
ASW_DBF
F_ADR
_ _M_DBF
_ _ CESTA
NAZEV_DBF
W_DBF
_ _ M_LOG
 _CHYBA
 W_MESS
_ _W_MODUD1X
W_POC_CH
 DATUM
_ _ZDROJ
JM_PRG
RADEK
_JMENO
MM_AUTOR
POC_CHYB
POC_POM
W_ADR
_CHDIR
 Poru
 hlavi
ka, oprava ...
Oprava hlavi
ky neprob
, pou
ijte HEADER-
FILE_HANDLX_DBF
-IFP_SIZE
LIFP_TOP
DLPOC_ZAZDB
HANDLPOC2
POCET_C
POZICE1
O_POZ1
HANDLPOZ2
W_POZ
 DELKA1
ADEL1
HANDLDEL2
_ _W_DEL
 _ POCET_CV
OBRHL
_HANDLST_POM
_ST_POC1
 ST_POC2
 _ST_POC3
W_STRING
HLASKA
m_akce.dbf2
m_param
m_param
select &st_sel
m_akce
m_akce
m_akce
select &st_sel
W_FCE
ANDLW_VYSL
-ST_SEL
LZAV_AKCE
LW_MISTO
HANDLM_PARAM
W_BYTE
POLE0
M_AKCE
O_DATUM
 VYSL
AMM_AUTOR
LMOD_KOND
INDEXACE
PROCENTA
HLASKA
_misto
CHYBA
'mist
KONT_HL
= g"&
UZ_AKCE
X:\OBEC\
MOD_KOND.FXP
X:\OBEC\MOD_KOND.PRG