home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
04
/
MOD42J.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1999-02-05
|
22KB
|
547 lines
W_ZAKAZKA
W_CPOL
if OBRATY
dMOD_SYS
m_param
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+/w
set color to w/n
novan
dej - sklad: zak
zka: /
RIIS 5.4
v4_sklad
x4_sklad
v4_skl_z
x4_skl_z
m_dat
x_dat
m_cis1
x_cis1
m1_zas
x1_zas
m1_um
ident
m1_kalk
x1_kalk
m1_cen
x1_cen
m1_plan
x1_plan
m5_plan
zakazka
m5_komp
zakazka
v1_str
x1_str
M5_AKT.DBF2
m5_akt
ident
RIIS 5.4
&barvau
mod_proc
Sklad neexistuje
mod_proc
MATERIAL
dej je mo
no prov
t pouze pro sklady materi
VYROBA
dej je mo
no prov
t pouze pro v
sklady
Pro zadan
sklad nem
te opr
@!R XXXX
m1_ident
ident
&barvau
mod5_lib
zka neexistuje
novan
zka - v
dej nelze prov
zka - v
dej nelze prov
m1_obr
sklad
c5_komp
c5_komp
r komponent ...
znam o komponent
stupn
&barvas
Pro zak
zku nejsou v tomto sklad
komponenty
kladn
daje zak
Rozpiska
Mn. pl
99999999.999
99999999.999
&barvaz
Komponenty zak
sklad
Tisk v
dejek
Konec
W_MNOZ
if INDIK
dP_ZOB
wiANSI
edisM_PARAM
tuW_POLE4
orPOLE4
isekW_KOEF_VN
KOEF_VN
2POM
returnTER_UZAV
W_ROK
rW_MESIC
stZMENA
zasoKONEC
POMOC
m1_HOR
seek cDOL
p.idenPOCET
---BARVA
na sBARVAS
inBARVAR
---BARVAZ
of(BARVAU
_koBARVAN
_koBARVANS
BARVAH
a wNOVY_Z
MOD_SYS
zaV4_SKLAD
eX4_SKLAD
nV4_SKL_Z
iX4_SKL_Z
M_DAT
X_DAT
*M_CIS1
ockX_CIS1
do M1_ZAS
ithX1_ZAS
dM1_UM
sobIDENT
M1_KALK
X1_KALK
M1_CEN
X1_CEN
enM1_PLAN
* X1_PLAN
t M5_PLAN
ekZAKAZKA
idM5_KOMP
_zV1_STR
avX1_STR
mp.M5_AKT
*PRIHLAS
W_SKLAD
osSKLAD
-ZOBR_SKL
!MOD_PROC
(HLASKA
eDRUH_SKL
tW_MODUL
s.W_TYP_UM
#P_KONSIG
KONSIG
pM1_IDENT
sW_ZAKAZKA
W_CPOL
ithMSCR
ZOBR_ZAKV
MOD5_LIB
TYP_OBJ
u M1_OBR
rC5_KOMP
* IDENT_KO
aMNO_PL
ujeMNO_VYD
meMNO_VYS
ydMNOZSTVI
sMNO_TVYD
-D1OP
f eofUMIST
inseKOD_OB
m1_POPIS_OBR
DOKL_CIS
lKUSY_DE
,tROZMER
OP_V
TER_OV
c5_OBR
t_MESS
_zas.CPOL
i,ID_ORG
mKUM_VYDEJ
TV_ZAK
_umSKL_HLAVNISKL_HL_UM
WTEXT
NAZEV
hPOZNAMKA
oTER_UV
*MNO_OV
teMNO_ZM
-----
iHLAVA
) anZMENY
omp.VOL11
o#idM
or I |TISK
&barvan
Komponenta
soba(HSU)
Mno
K vyd
Doklad
Dostupn
Vyd
&barvau
&barvau
kod_ob
@ x,2 &vloz kod_ob pict '@!X'
@ x,24 &vloz d1op
umist
@ x,29 &vloz umist pict '@!X'
mno_vys
@ x,46 &vloz mno_vys pict '99999999.999' function '@Z'
dokl_cis
@ x+1,24 &vloz dokl_cis
@ x+1,59 &vloz popis_obr pict '@!X'
if POCET
dP_ZOB
edisI
POLE4
orZMENA
isek5
&barvau
99999999.999
99999999.999
99999999.999
99999999.999
99999999.999
wiDOL
edisM1_IDENT
uC5_KOMP
rIDENT_KO
kM1_ZAS
M1_UM
2SKL_HLAVNISKL_HL_UM
KOD_OB
stD1OP
oUMIST
ZASOBA
m1_MNO_VYS
cMNOZSTVI
nPOPIS_OBR
NAZEV
sDOKL_CIS
nALOKACE
--MNO_VYD
if Z1
dT1
edisX1
IDENT
_KOMP
2KONEC
AVNIDOL
HL_UM
oPROC1
ZMEN1
m1_NAP_HOD
cP_ZOB
nVOLBA
sPOCET
nZAPIS_OBR
INDIK
f(C5_KOMP
koPOMOC
MENU1
Lze nav
t pouze pl
novan
dej VP
KOD_OB
c5_komp.kod_ob
edisko mus
t uvedeno
edisko neexistuje v souboru st
edisek
Prove
te kondenzaci datab
ze M1_ZAS, informujte firmu SoWA
znam
ch nen
stupn
Prove
te kondenzaci datab
ze M1_UM, informujte firmu SoWA
m1_um
Prove
te kondenzaci datab
ze M1_UM, informujte firmu SoWA
Nedostate
soba na um
znam
o um
sob nen
stupn
333333
esahuje o v
ce ne
20% pl
novan
, nelze vydat
m1_rez.dbf2
m1_rez
m1_rez
ident
znam rezervace z
sob nen
stupn
Nelze vydat, nutno zru
it rezervaci
Nelze vydat, rezervov
no pro F
Nelze vydat, z
soba je rezervovan
m1_obr
99999999.999
99999999.999
99999999.999
99999999.999
99999999.999
INDIK
MNO_VYS
f KOD_OB
dHLASKA
edisA
IDENT
uJMENO_C
rWJMENO_C
kMOD_C2
2RADEK_C
HL_UM
SLOUPEC_C
MOD_C1
stW_NAKLAD
oW_POLE4
P_KONSIG
_M1_KALK
cC5_KOMP
nIDENT_KO
PL_OD
sTYP_NAKL
nIDENT
(D1OP
koV1_STR
M1_ZAS
M1_UM
wSKL_HLAVNIUMIST
zaSKLAD
AVNIUM_SKL
nTYP_UM
iW_TYP_UM
IZASOBA
NIID_ORG
*MNO_VYD
ckMNO_PL
o VAZBA_REZ
M1_REZ
dW_ZAKAZKA
KOD_REZ
OPRAVNENI
MM_AUTOR
W_DISPON
REZERVACE
VYDANO
W_REZ
VYDEJ
ALOKACE
idDATUM_VYD
TERMIN_OB
SKUT_MNOZ
VYDAL_SKL
VYD_UM_SKLTYP_UM_V
sPOPIS_OBR
STRED_OBR
DOKL_CIS
(IDENT_ZAK
tIDENT_VYS
NAKLAD
#JMENO
pMESIC
sW_SKLAD
M5_PLAN
ZAKAZKA
W_ROK
W_MESIC
M5_KOMP
W_CPOL
rMNO_TVYD
iMNOZSTVI
M1_IDENT
NAZEV
eZAPIS_AKT
IDENT
colora
set color to &color
COLOR
f OBR
colora
set color to &color
COLOR
M5_AKT.DBF2
M5_AKT
ident
m5_akt
ident
m5_akt
select &sel
X_IDENT
f SEL
dM5_AKT
wiIDENT
disZAVRI
rDUVOD
ny-char.polo
-
,PgDn,PgUp
- ^PgUp,^PgDn
- ^Home
- ^End,Esc
Pohyb
Konec
IDENT
kod_ob
mod_proc
mno_vys
mod_proc
umist
mod_proc
dokl_cis
mod_proc
mod_proc
Pro toto pole neexistuje pomocn
ehled hodnot
P_ZOB
W_KOD_OB
KOD_OB
dZOBR_OBV
iMOD_PROC
sZOBR_UM
uC5_KOMP
rIDENT_KO
kZOBR_OB
W_STRED
2D1OP
NIZOBR_STR
HLASKA
ehled st
edisek
Informace o um
Informace o obratech
ehled k
obrat
Tisk v
dejek
Konec
mod_proc
mod_proc
mod_proc
mod_proc
&barvau
W_STRED
dC5_KOMP
iD1OP
sZOBR_STR
uMOD_PROC
BR_OB
ZOBR_UM
2IDENT_KO
IZOBR_OB
W_KOD_OB
KOD_OB
stZOBR_OBV
oTISK
mod_lib
mod_lib
Prob
tisk ...
mod58a4
mod58a3
ST_ZAZ
C5_KOMP
P_SETUP
dP_RESET
iP_6LPI
sP_8LPI
uP_10CPI
rP_12CPI
kP_16CPI
P_20CPI
2P_BOLDON
IP_BOLDOFF
P_ULINEON
P_ULINEOFFP_ITALON
oP_ITALOFF
P_SUPERON
P_SUPEROFFP_SUBON
nP_SUBOFF
P_DBST_ON
P_DBST_OFFP_LETRQUALP_DRAFT
(P_COMP_OFFP_WIDT_ON
P_WIDT_OFFP_HEIG_ON
P_HEIG_OFFP_NEWPAGE
P_KODY
VNIMOD_LIB
nW_TISK
iNASTAV_PRNOBRT
NIMESS
*W_POC_VYD
W_MEZERA
M1_IDENT
M5_PLAN
dIDENT
W_NAZEV
NAZEV
W_TYP
MNO_TVYD
MNO_VYS
IDENT_KO
ID_ORG
MOD58A4
idMOD58A3
OBRATY
HLAVA
ZMEN1
ouze
PROC1
ZMENY
loo
ZAPIS_OBR
HLASKA
kontK:
pravned;
ZAPIS_AKT
MENU1
sel
NAP_HOD
VOLBA
hlas+)B
if *F
X:\OBEC\04\
MOD42J.FXP
X:\OBEC\04\MOD42J.PRG