home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
05
/
MOD58B.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1997-07-28
|
12KB
|
259 lines
w_zakazkaf
w_cpolf
mod_lib
m5_plan
zakazka
m1_ident
ident
m5_oper
zakazka
m5_tisk
doklad
p_tarif
xp_tarif
zakazka+cpol
zka+Po
m5_tisk
zakazka+cpol
zka+Po
RIIS 5.7
Tisk posledn
Tisk pro zak
Nastaven
Konec
zW_ZAKAZKA
W_CPOL
v_oDOKL
dn(i)KC
zev_op"KC_CELKEM
NM_CELKEM
KS_SMENU
nTARIF
P_SETUP
"dP_RESET
i+P_6LPI
hl(P_8LPI
P_10CPI
="P_12CPI
dnP_16CPI
P_20CPI
*P_BOLDON
'P_BOLDOFF
P_ULINEON
P_ULINEOFFP_ITALON
-P_ITALOFF
P_SUPERON
P_SUPEROFFP_SUBON
--P_SUBOFF
P_DBST_ON
P_DBST_OFFP_LETRQUALP_DRAFT
rP_COMP_OFFP_WIDT_ON
P_WIDT_OFFP_HEIG_ON
P_HEIG_OFFP_NEWPAGE
P_KODY
***MOD_LIB
**M5_PLAN
**ZAKAZKA
edM1_IDENT
IDENT
tersM5_OPER
orM5_TISK
01DOKLAD
P_TARIF
enXP_TARIF
ePODMS
o KLIC
@ 13,PODMV
(txtZAHLAVI
eaVOL1
n(txt)+3TISK1
13,(TISK2
or tNAST_TR
c_oper
index on &podms to x_pom
c_oper
Nebyl vybr
Prob
tisk ...
mod58b1(!9
zMOD_SYS
C_OPER
v_oIDENT
n(i)NAZEV
_op"ZAKAZKA
nPOSTUP
"dNAZEV_OP
+PRAC
hl(PTR
="TAC
dnDOP
*KUS_SMEN
'KC_KUS
KC_CELK
NM_CELK
FFMNO_KV
-M5_PLAN
EROFFM1_IDENT
-IDNAZ
M5_OPER
TARIF
FFHLEDEJTR
LW_MNO_KV
rNM_CELKEM
KS_SMENU
FFKC_CELKEM
HLASKA
OBRMESS
***RAD
**P_RESET
**POCET
edMOD58B1
zakazka
zka nebyla nalezena
mod5_lib
zka nen
uvoln
c_oznac.dbf2
c_oznac
zaznam
mod_lib
Prob
tisk ...
mod58b1(!9
zW_ZAKAZKA
W_CPOL
v_oM5_PLAN
i)ZAKAZKA
p"HLASKA
ZOBR_ZAK
MOD5_LIB
M1_IDENT
dIDENT
+IDNAZ
hl(NAZEV
="ZOBROP
dnC_OZNAC
ZAZNAM
*INDIK
'NASTAV_PRNMOD_LIB
FFRAD
-P_RESET
POCET
C_OPER
OFFTARIF
-HLEDEJTR
NM_CELKEM
FFTAC
LMNO_PL
rMNO_OV
MNO_ZM
KS_SMENU
ELKEM
KC_CELKEM
MOD58B1
P_SETUP
**P_10CPI
c_oper+
c_oper
operace nebyla vybr
ehled operac
zky F
RIIS 5.8
mod58b
nazev_op
nazev_op
Prac.
ZOBROP
zM5_OPER
W_ZAKAZKA
W_CPOL
i)C_OPER
p"ZAKAZKA
HLASKA
POLEX
dLEVA
+PRAVA
hl(HOR
="RAMECEK
dnNAZEVT
NADPIS
'PROCX
_PRNF1
SPACEBAR
FZAHL
-JMENO
OFFMOD_PSV
-OBSAH
colora
set color to &color
zCOLOR
KAZKA
colora
set color to &color
zCOLOR
tarif = p_tarif.tarif&tr
KAZKA
P_TARIF
i)TARIF
konec
......
.................
STOP - d
lku kl
nelze zv
ovat !
Ukon
zLOGIC
XOPER
i)VYBER
p"VYB_POL
PODMS_N
PODMV_N
PROMZ
dPROMPT
+JMENO
="STOP
VYBER
i)ST_I
p"POLEX
Rozpiska
ident
zakazka
Operace
Postup
postup
Pracovi
. k v
str(mno_pl-mno_ov-mno_zm,12,3)
str(tac,10,4)
str(tbc,4,0)
x_pom
zakazka+cpol+oper
POLEX
zZAHL
JMENO
i)JM_IDX
p"KL_IDX
PODMS_N
PODMV_N
OBRT1B
TRIDENI
dM5_TISK
+KLIC
hl(ZAHLAVI
PODMV
="TISK1
em =
TISK2
*tari
ZOBROP
HLASKA
form t
HLEDEJTR
TRIDENI
VYB_POL
NAST_TR
K:\A\OBEC\05\
MOD58B.FXP
K:\A\OBEC\05\MOD58B.PRG