home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
04
/
MOD42E1.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1999-04-07
|
36KB
|
938 lines
m_param
v4_skl_z
x4_skl_z
m1_obr
sklad
c_tiskv
m1_ident
material
m1_zas
x1_zas
m1_um
ident
v4_sklad
x4_sklad
m_dat
x_dat
m_cis1
x_cis1
m1_kalk
x1_kalk
v1_str
x1_str
v4_skl_z
x4_skl_z
c_tiskv
m1_plan
x1_plan
M5_AKT.DBF2
m5_akt
ident
m7_rene.DBF2
m7_rene
m5_plan
zakazka
m5_komp
zakazka
set color to b/w
set color to bg/n
set color to w+/w
set color to w+/bg
set color to b/bg,w+/rb
set color to w+/b
set color to w/n
d e j s k l a d u :
RIIS 4.2
&barvau
@!R XXXX
mod_proc
Sklad neexistuje
mod_proc
Nelze prov
dej z jin
ho ne
materi
ho skladu
Pro zadan
sklad nem
te opr
mod_proc
RIIS 4.2
&barvau
doklad
sklad
vrat
Konec
&barvau
&barvau
ANSI
a=0M_PARAM
lsW_POLE1
POLE1
W_POLE4
POLE4
TER_UZAV
rW_ROK
nW_MESIC
avV4_SKL_Z
oX4_SKL_Z
dPRIHLAS
wiW_SKLAD1
SKLAD
ursoM1_OBR
reC_TISKV
t M1_IDENT
MATERIAL
kM1_ZAS
lkX1_ZAS
M1_UM
IDENT
n&n V4_SKLAD
X4_SKLAD
8M_DAT
i=33X_DAT
M_CIS1
hr(X_CIS1
lM1_KALK
ndX1_KALK
cV1_STR
casX1_STR
M1_PLAN
oX1_PLAN
cM5_AKT
-7M7_RENE
hod witID_ORG
M5_PLAN
ZAKAZKA
=M5_KOMP
if n='Q3
Q4
k_hlavQ5
Q6
Q8
Q9
store 0Q10
_skut_POCET2
POC_ZAZ
enZOBR_ZAZ
cRADEK
Q_CENA
w_sINDIK
= sP_ZOB
HOR
wDOL
ak =POCET
DOP2
ol POR
pace(5COUNT
CENA_NOV
= spaceRAD
SL
w_sklPOC
= spaKONTROLA
EXISTUJE
uBARVAS
= sBARVAR
BARVAT
wBARVAZ
=BARVAU
BARVAN
BARVAH
ZOBR_SKL
)MOD_PROC
W_NAZEV_SKNAZEV
ace(HLASKA
DRUH_SKL
zMOD_SYS
aW_TYP1
BARVA
W_DOKLAD
W_KOD_OB
W_TERMIN
9HLAV1
MENU
W_SKUT_MN
W_ZASOBA
W_IDENT
W_UM1
W_SKLAD2
W_UM2
W_TYP2
W_STRED
W_ID_ZAK
W_CPOL
t pW_ID_VYS
hW_POPIS
dW_NAZEV
mkW_MJ
HLAV2
KONEC
if a#8X
R
endif
*PRIT
I RADKU Q
rl-PgDn)A
case (ZMENY
i=2VOL11
n='OBR1
&&M
(i=271)W_MENA
&barvau
&barvas
&barvaz
&barvar
&barvaz
&barvat
dejka
Druh p.
&barvau
W_NAZEV_SK3
&barvas
&barvau
&barvar
&barvaz
&barvat
&barvan
Mno
Rozpiska
Z
Sklad-2
&barvau
&barvau
&barvas
&barvau
W_DOKLAD
KW_KOD_OB
&barvas
&barvau
99999999.999
&barvau
DOKLAD
KW_IDENT
KW_SKUT_MN
W_STRED
W_ID_ZAK
W_ID_VYS
W_UM1
W_POPIS
rW_NAZEV
nW_MJ
avW_SKLAD2
oW_UM2
dW_TYP2
w_doklad
@ 4,14 &vloz w_doklad pict '999999'
w_kod_ob
@ 4,30 &vloz w_kod_ob pict '@!X'
DOKLAD
KPOCET1
KP_ZOB
C_TISKV
M1_OBR
w_ident
@ x,2 &vloz w_ident pict '@!X'
ka neexistuje
Nelze vyd
vat jin
polo
ky ne
materi
w_skut_mn
@ x,15 &vloz w_skut_mn pict '99999999.999'
w_stred
@ x,28 &vloz w_stred pict '@!X'
w_id_zak
@ x,33 &vloz w_id_zak pict '@!X'
w_id_vys
@ x,44 &vloz w_id_vys pict '@!X'
w_um1
@ x,57 &vloz w_um1 pict '@!X'
w_popis
@ x,62 &vloz w_popis pict '@!X'
w_sklad2
@ x+1,44 &vloz w_sklad2 pict '@!X'
w_um2
@ x+1,49 &vloz w_um2 pict '@!X'
w_typ2
@ x+1,54 &vloz w_typ2 pict '!X'
DOKLAD
KPOCET2
KP_ZOB
M1_UM
W_IDENT
W_SKLAD1
W_UM1
rUM_SKL
nM1_IDENT
IDENT
oHLASKA
dKOD_POL
wiW_MJ
ursoW_NAZEV
reNAZEV
t M1_OBR
PROC2
lkQ3
n&n Q6
i=33V4_SKLAD
W_SKLAD2
(W_TYP2
lDRUH_SKL
do proc&n
do zmen&n with 'get'
do zmen&n with 'say'
&barvau
if q<pocet&n
it pr
ci beze zm
n? (a/N)
vypln
, obrat nelze ulo
it pr
ci beze zm
n? (a/N)
KONEC
DOKLAD
POCET1
W_KOD_OB
ID_ORG
POCET2
IDENT
ursoW_SKLAD2
eW_UM2
t W_TYP2
W_STRED
DOL
n&n T
i=33R
_SKLAD
lOBR1
cVOLBA
casNAP_HOD
P_ZOB
oDALE
cK_HLAVA
-7W_SKUT_MN
W_IDENT
itW_ID_ZAK
W_CPOL
W_UM1
=W_MJ
W_POPIS
W_NAZEV
HLAV1
hlavHLAV2
PROC1
MENU
K_OBRATU
KONTROLA
0W_CENA
W_CENA_CELRADEK
enPOC_ZAZ
HLASKA
colorz
set color to &Mcolor
MCOLOR
KMOBR
slo v
dejky mus
t vypln
KOD_OB
w_kod_ob
Lze zad
vat pouze v
dejov
dy obrat
KONTROLA
W_DOKLAD
HLASKA
KOD_OB
JMENO_C
WJMENO_C
rMOD_C2
nOK_C
vRADEK_C
oSLOUPEC_C
MOD_C1
wiW_KOD_OB
ka neexistuje
Nelze vyd
vat jin
polo
ky ne
materi
Pro tuto polo
ku nebyla nalezena platn
cena
Lze nav
t pouze v
dej a p
KONTROLA
M1_IDENT
KW_IDENT
KHLASKA
KOD_OB
KOD_POL
W_POLE4
M1_KALK
rPL_OD
nTYP_NAKL
vIDENT
oW_NAKLAD
wiUVN
W_KOD_OB
oKONTR_VR
eKONTR_TR
novan
dej nen
povolen
Hromadn
polo
ka - k
d obratu nelze pou
Hodnota mno
t vypln
MNTUXYZ
edisko mus
t uvedeno
MNTUXYZ
edisko neexistuje v souboru st
edisek
zka mus
t uvedena
m7_rene
VP neexistuje v souboru M7_RENE
Nesoulad st
ediska v souboru M7_RENE
zka neexistuje v souboru M7_RENE
m5_plan
novan
zka - v
dej nelze prov
zka - v
dej nelze prov
Komponenta nebyla pro tuto zak
zku nalezena
znam o komponent
stupn
Nedostate
soba na um
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
W_KOD_OB
ID_ORG
KHLASKA
M1_PLAN
W_IDENT
KUM_VYDEJ
M1_OBR
rW_SKUT_MN
vM1_IDENT
oKOD_POL
W_STRED
wiW_POLE1
V1_STR
oPODNIK
eW_POLE42
W_POLE4
W_ID_ZAK
kM7_RENE
kSTRED
M5_PLAN
W_CPOL
W_PL_VYDEJSTAV
EJTYP_OBJ
33M5_KOMP
NASEL
(ZAKAZKA
lCPOL
dIDENT_KO
cM1_UM
sW_SKLAD1
W_UM1
oW_TYP1
cZASOBA
VAZBA_REZ
M1_REZ
itIDENT
KOD_REZ
OPRAVNENI
MM_AUTOR
W_DISPON
REZERVACE
VYDANO
W_REZ
INDIK
LOCK_ZAS
MNO_VYD
EJMNO_VYS
VYDEJ
M1_ZAS
DATUM_VYD
ZAPIS_OBR
KONTROLA
novan
esun nen
povolen
Hodnota skute
ho mno
Sklad mus
t uveden
Sklad neexistuje
esun na tento druh skladu nelze prov
st (F
Nedostate
soba na um
Prove
te kondenzaci datab
ze M1_UM, informujte firmu SoWA
znam
o um
sob (SKLAD1) nen
stupn
Nelze p
esunout, z
soba je rezervovan
Prove
te kondenzaci datab
ze M1_UM, informujte firmu SoWA
m1_um
znam
o um
sob (SKLAD2) nen
stupn
W_KOD_OB
HLASKA
W_SKUT_MN
W_SKLAD2
V4_SKLAD
M1_OBR
DRUH_SKL
rM1_UM
W_IDENT
vW_SKLAD1
oW_UM1
W_TYP1
wiZASOBA
IDENT
SKLAD
eUM_SKL
TYP_UM
REZERVACE
W_UM2
W_TYP2
PRESUN
ZAPIS_OBR
KONTROLA
m1_obr
c_tiskv
99999999.999
M1_OBR
IDENT
KTERMIN_OB
KOD_OB
SKUT_MNOZ
VYDAL_SKL
VYD_UM_SKLTYP_UM_V
PRIJAL_SKLPRI_UM_SKLTYP_UM_P
vPOPIS_OBR
STRED_OBR
DOKL_CIS
iIDENT_ZAK
IDENT_VYS
ZASOBA
NAKLAD
JMENO
MESIC
W_IDENT
W_TERMIN
W_KOD_OB
JW_SKUT_MN
W_SKLAD1
3W_UM1
W_TYP1
(W_SKLAD2
lW_UM2
dW_TYP2
cW_POPIS
sW_STRED
W_DOKLAD
oW_ID_ZAK
cW_CPOL
W_ID_VYS
M1_UM
itW_NAKLAD
MM_AUTOR
W_ROK
W_MESIC
MESIC
ZAPIS_AKT
M1_IDENT
Prove
te kondenzaci datab
ze M1_ZAS, informujte firmu SoWA
m1_zas
znam o z
ch polo
ky FF
stupn
Prove
te kondenzaci datab
ze M1_UM, informujte firmu SoWA
znam o um
sob polo
ky FF
stupn
INDIK
X_IDENT
KM1_ZAS
IDENT
HLASKA
SKL_HLAVNISKL_HL_UM
W_SKLAD1
W_UM1
_SKLM1_UM
KLW_TYP1
vSKLAD
UM_SKL
TYP_UM
Zobrazen
dejky
Zobrazen
obrat
Konec
mod_proc
&barvau
mod_proc
&barvau
ehled polo
Informace o um
Informace o obratech
ediska
Zobrazen
dejky
Tisk v
dejky
Konec
mod_proc
inlist(kod_pol,'M','N','T','U','X','Y','Z')
Chybn
hodnota identifikace polo
mod_proc
Chybn
hodnota identifikace polo
mod_proc
mod_proc
mod_proc
&barvau
&barvau
IDENT
ZOBR_VYD
W_SKLAD1
W_DOKLAD
IMOD_PROC
SKLAD1
_SKLZOBR_OBV
LW_KOD_OB
vM1_OBR
ZOBR_POL
W_IDENT
iW_NAZEV
HLASKA
ZOBR_UM
ZOBR_OB
ZOBR_STR
W_STRED
M5_AKT.DBF2
M5_AKT
ident
m5_akt
ident
m5_akt
select &sel
X_IDENT
X_DS
M5_AKT
IDENT
ZAVRI
DUVOD
Pohyb
dejky
Funkce
Konec
<Enter>
- ^PgDn
- F10
- Esc,^End
IDENT
mod_lib
mod_lib
Prob
tisk ...
P_SETUP
P_RESET
KP_6LPI
P_8LPI
P_10CPI
P_12CPI
IP_16CPI
P_20CPI
P_BOLDON
LP_BOLDOFF
P_ULINEON
P_ULINEOFFP_ITALON
P_ITALOFF
P_SUPERON
P_SUPEROFFP_SUBON
P_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
(MOD_LIB
lW_TISK
dNASTAV_PRNM1_OBR
sOBRT
oPOC_RAD
D_VYS
STRANA
itS_KCS_CEL
TISK_VYDEJ
ST_ZAZNAM
C_TISKV
KTISK_HL
TISK_OBR
TISK_KON
IM1_OBR
d e j s k l a d u :
MTZ-05
dejka
Druh pohybu:
Mno
Rozpiska
Cena/MJ
Sklad-2
Datum
Cena celkem
ZAZNAM
NAZEVT
KVYDAL_SKL
P_SETUP
P_COMP_OFFP_SUBON
PODNIK
LP_SUBOFF
P_LETRQUALP_BOLDON
P_BOLDOFF
P_DRAFT
DOKL_CIS
FKOD_OB
P_12CPI
99999999.999
99999999.99
99999999.99
ZAZNAM
KP_10CPI
W_SKLAD1
W_DOKLAD
VYDAL_SKL
DOKL_CIS
M1_IDENT
C_TISKV
LIDENT
P_12CPI
ALSKUT_MNOZ
STRED_OBR
IDENT_ZAK
IDENT_VYS
VYD_UM_SKLPOPIS_OBR
NAKLAD
ST_ON
NAZEV
IDENT
LPRIJAL_SKLPRI_UM_SKLTYP_UM_P
TERMIN_OB
S_KCS_CEL
Celkem za v
dejku :
99999999.99
Vydal: .........................
Datum: ...................
evzal: .........................
Datum: ...................
dejka dosud neexistuje
ZAZNAM
S_KCS_CEL
P_10CPI
P_DRAFT
P_NEWPAGE
KCS_CEL
C_TISKV
ST_ZAZNAM
HLASKA
M1_OBR
STRANA
W_SKLAD1
W_DOKLAD
LVYDAL_SKL
DOKL_CIS
TISK_HL
TISK_S
FUKONCI
LP_RESET
FFFZ^D
select &st_sel
d e j s k l a d u :
MTZ-05
dejka
Druh pohybu:
Mno
Rozpiska
Cena/MJ
Sklad-2
Datum
Cena celkem
ZAZNAM
POC_RAD
KST_SEL
TISK_HL
NAZEVT
VYDAL_SKL
WPAGE
P_SETUP
P_COMP_OFFP_SUBON
PODNIK
P_SUBOFF
P_LETRQUALP_BOLDON
P_BOLDOFF
P_DRAFT
DOKL_CIS
KOD_OB
P_12CPI
99999999.999
99999999.99
99999999.99
ZAZNAM
P_10CPI
KW_SKLAD1
W_DOKLAD
VYDAL_SKL
DOKL_CIS
M1_IDENT
C_TISKV
IDENT
_OFFP_12CPI
SKUT_MNOZ
STRED_OBR
IDENT_ZAK
IDENT_VYS
VYD_UM_SKLPOPIS_OBR
NAKLAD
NAZEV
IDENT
PRIJAL_SKLPRI_UM_SKLTYP_UM_P
TERMIN_OB
S_KCS_CEL
Celkem za v
dejku :
99999999.99
Vydal: .........................
Datum: ...................
evzal: .........................
Datum: ...................
ZAZNAM
S_KCS_CEL
P_10CPI
P_DRAFT
w_kod_ob
mod_proc
w_ident
mod_proc
inlist(kod_pol,'M','N','T','U','X','Y','Z')
w_skut_mn
mod_proc
w_um1
w_um2
mod_proc
w_doklad
mod_proc
w_sklad2
mod_proc
w_stred
mod_proc
w_id_zak
mod6_lib
Pro toto pole neexistuje pomocn
ehled hodnot
P_ZOB
ZOBR_OBV
MOD_PROC
W_KOD_OB
ZOBR_POL
W_IDENT
W_NAZEV
ZOBR_UM
FFZOBR_OB
ZOBR_SKL
W_SKLAD2
ZOBR_STR
W_STRED
PODNIK
LZOBR_RENE
W_ID_ZAK
MOD6_LIB
HLASKA
colora
set color to &color
COLOR
MOD42E1
HLAV1
HLAV2
creenO
PROC1
PROC2
ZMEN1
ZMEN2
rwise
ZMENY
clos
HLASKA
K_HLAVA
K_OBRATU
KONTR_VR
KONTR_TR
ZAPIS_OBR
LOCK_ZAS
VOLBA
*****pR
ZAPIS_AKT
******F[
TISK_VYDEJ
TISK_HL
&b a
TISK_OBR
TISK_KON
clear t
TISK_S
UKONCI
NAP_HOD
rva<z
@ 3,0>}
X:\OBEC\04\
MOD42E1.FXP
X:\OBEC\04\MOD42E1.PRG