home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
05
/
MOD54E.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1997-11-20
|
45KB
|
1,117 lines
MOD54EX
m_param
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
novan
dej sou
a materi
lu ze skladu :
RIIS 5.4
v4_sklad
x4_sklad
v4_skl_z
x4_skl_z
&barvau
@!R XXXX
t uveden
daj 'Sklad'
Sklad neexistuje
Povolen
jsou pouze materi
sklady
Pro zadan
sklad nem
te opr
m1_ident
ident
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
m1_obr
sklad
&barvau
doklad
vrat
Konec
&barvau
doklad
vrat
Konec
&barvau
a M_PARAM
W_POLE4
POLE4
endiW_KOEF_VN
KOEF_VN
eTER_UZAV
tW_ROK
*W_MESIC
******Q2
*******Q3
*******Q4
*******Q5
procedPOC_ZAZ
ZOBR_ZAZ
vRADEK
q>pHOR
qDOL
enPOCET
casDOP1
e q=qDOP2
@ x,2POR
oz w_iCOUNT
ct 'CENA_NOV
oz='say'RAD
* -SL
kontrolPOC
existeKONTROLA
yEXISTUJE
BARVAS
m1BARVAR
BARVAT
dkeBARVAZ
BARVAU
or BARVAN
i=BARVAH
V4_SKLAD
rX4_SKLAD
V4_SKL_Z
X4_SKL_Z
_PRIHLAS
W_SKLAD
SKLAD
aHLASKA
DRUH_SKL
W_TYP_UM
BARVA
M1_IDENT
IDENT
M_DAT
istuX_DAT
M_CIS1
X_CIS1
enM1_ZAS
X1_ZAS
M1_UM
j=mjM1_KALK
X1_KALK
azM1_CEN
X1_CEN
m1M1_PLAN
X1_PLAN
wM5_PLAN
ZAKAZKA
reM5_KOMP
o M1_OBR
naHLAV1
MENU
lect HLAV2
KONEC
o prI
X
eR
case Z
@ U
5 &vlozT
um pict Q
caseA
@ZMENY
vlozVOL11
_mn OBR1
99999M
.999'
@ 4,10 &vloz w_zakazka pict '9999999999'
zka neexistuje
Chybn
typ zak
zky, jsou povoleny pouze v
novan
zka - v
dej nelze prov
a POCET1
M5_PLAN
diW_ZAKAZKA
HLASKA
eTYP_OBJ
tSTAV
*PROC1
@ x,2 &vloz w_ident pict '@!X'
ka neexistuje
@ x,15 &vloz w_um pict '@!X'
@ x,21 &vloz w_plan_mn pict '99999999.999'
@ x,34 &vloz w_skut_mn pict '99999999.999'
@ x,50 &vloz w_cena pict '99999999.99'
@ x,63 &vloz w_popis_o pict '@!X'
a POCET2
M1_IDENT
_IDENT
W_IDENT
eHLASKA
tW_MJ
**W_NAZEV
**NAZEV
****M1_PLAN
**NAKLAD
**W_CENA
cedW_NAKLAD
M1_OBR
vPROC2
q>pQ2
qQ3
casW_CENA_CELW_SKUT_MN
w_iQ6
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)
vypln
, obrat nelze ulo
KONEC
a POCET1
W_POLE4
iPOCET2
****X
_PLAN
**DOL
cedHOR
qJ
enOBR1
casLK
ENA_CELVOLBA
w_iK_HLAVA
NA_NOV
fHLAV1
say'HLAV2
* -PROC1
trolMENU
xistePOM
yHLASKA
K_OBRATU
1KONTROLA
colora
set color to &color
COLOR
a OBR
slo p
jemky mus
t vypln
KOD_OB
w_kod_ob
Lze zad
vat pouze p
dy obrat
organizace mus
t uvedena
Organizace neexistuje
KONTROLA
W_DOKL_CISA
HLASKA
JMENO_C
eWJMENO_C
tMOD_C2
*OK_C
**RADEK_C
**SLOUPEC_C
MOD_C1
**W_KOD_OB
cedW_ICO
vM4_ORGAN
pW_ZAV
qW_ICO_NAZ
NAZEV_ORG
PROC1
Hodnota skute
ho mno
t vypln
Nedostate
soba na um
Hodnota z
sob a nov
cena bude z
, sni
te cenu
pustn
hodnota ceny polo
m1_um
znam
o um
sob nen
stupn
m1_zas
znam
ch nen
stupn
m1_kalk
znam n
kladov
stupn
m1_plan
MNTUXYZ
FPSABCOJKG
znam pl
novac
stupn
KONTROLA
W_SKUT_MN
HLASKA
M1_UM
W_IDENT
eW_SKLAD
tW_UM
*W_TYP_UM
*ZASOBA
KUT_MN
M1_ZAS
**W_NAKLAD
W_CENA
cedQ5
KUT_MN
IDENT
vSKLAD
pUM_SKL
qTYP_UM
W_POLE4
M1_KALK
ELPL_OD
TYP_NAKL
iDAT_AK
M1_IDENT
'KOD_POL
-M1_PLAN
olTV_ZAK
teKOD_KALK
yHR_DEN
1VYP_PR
PRIJEM
DATUM_PRIJZAPIS_OBR
Storno p
jmu je v
m1_obr
TVRDE PRECENENI
m1_cen
m1_kalk
m1_obr
TVRDE PRECENENI
W_POLE4
M1_ZAS
W_IDENT
ZASOBA
W_ZASOBA
iW_SKUT_MN
IDENT
eHLASKA
YP_UM
*M1_OBR
IDENT
TERMIN_OB
KOD_OB
PLAN_MNOZ
SKUT_MNOZ
VYDAL_SKL
VYD_UM_SKLTYP_UM_V
qPOPIS_OBR
NAKLAD
JMENO
ELROK
MESIC
iW_CENA
M1_UM
SKLAD
'UM_SKL
-TYP_UM
olW_NAKLAD
eMM_AUTOR
yW_ROK
W_MESIC
1CENA_NOV
M1_CEN
DATUM
RIJCAS
S_OBR
CEN_PUV
=CEN_PR
MNOZ_PR
rCEN_PRU
C_PRIJ
KL_ZAZ
_W_DOKL_CISM1_KALK
aPL_OD
PL_DO
DAT_AK
TYP_NAKL
KUSY_D
MATER
M1_PLAN
uW_SKLAD
W_TYP_UM
m1_obr
m1_obr
TVRDE PRECENENI
m1_obr
VEDLEJSI NAKL.
m1_kalk
m1_cen
M1_OBR
IDENT
TERMIN_OB
KOD_OB
PLAN_MNOZ
SKUT_MNOZ
VYDAL_SKL
VYD_UM_SKLTYP_UM_V
tPOPIS_OBR
*ZAVOD
DOKL_CIS
IDENT_ZAK
IDENT_VYS
NAKLAD
JMENO
L_SKL
MESIC
_SKLW_IDENT
qW_DAT_P
W_KOD_OB
W_PLAN_MN
W_SKUT_MN
W_SKLAD
iW_UM
W_TYP_UM
W_POPIS_O
W_ICO
-W_ZAV
olW_DOKL_CISW_ID_ZAK
yW_ID_VYS
W_CENA
1MM_AUTOR
W_ROK
W_MESIC
IJW_POLE4
M1_ZAS
=ZASOBA
CENA_NOV
rM1_UM
SKLAD
UM_SKL
_TYP_UM
CISW_KOEF_VN
CENA_NOV2
M1_KALK
_NOV2
PL_OD
PL_DO
DAT_AK
TYP_NAKL
KUSY_D
uMATER
M1_PLAN
M1_CEN
DATUM
CAS
CEN_PUV
mjCEN_PR
MNOZ_PR
azCEN_PRU
C_PRIJ
m1KL_ZAZ
W_NAKLAD
wW_ZASOBA
jemka dosud neexistuje
mod_lib
mod_lib
Prob
tisk ...
S_KCS_CEL
M1_OBR
ST_ZAZNAM
KOD_OB
W_SKLAD
KLW_DOKL_CISHLASKA
P_SETUP
*P_RESET
P_6LPI
P_8LPI
P_10CPI
P_12CPI
P_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
yP_COMP_OFFP_WIDT_ON
P_WIDT_OFFP_HEIG_ON
P_HEIG_OFFP_NEWPAGE
P_KODY
=MOD_LIB
W_TISK
rNASTAV_PRNOBRT
MESS
_STRANA
CISVYDAL_SKL
DOKL_CIS
TISK_HL
TISK_S
UKONCI
j e m s k l a d u :
MTZ-05
jemka
Druh p.:
Obj.:
Dod. list:
Dodavatel:
Mn.ob./d.l.
. skut.
Cena/MJ
Nazev
Celk. cena
Datum p
NAZEVT
VYDAL_SKL
S_CEL
P_10CPI
P_SUBON
PODNIK
P_SUBOFF
KLP_LETRQUALP_BOLDON
P_BOLDOFF
P_DRAFT
DOKL_CIS
KOD_OB
IDENT_ZAK
IDENT_VYS
ZAVOD
M4_ORGAN
LM1_OBR
NAZEV_ORG
LDOFF
99999999.999
99999999.999
99999999.99
99999999.99
P_10CPI
W_SKLAD
W_DOKL_CISVYDAL_SKL
DOKL_CIS
IDENT
VYD_UM_SKLPLAN_MNOZ
SKUT_MNOZ
M1_IDENT
M1_OBR
IDENT
NAKLAD
POPIS_OBR
NAZEV
TERMIN_OB
S_KCS_CEL
Cena za p
jemku celkem:
ZZZZZZZZZ.ZZ
999 999 999.99
Kontroloval: .........................
Datum: ...................
va vyhovuje/nevyhovuje - POV: ......................
Vystavil: .........................
Datum: ...................
P_10CPI
P_LETRQUALS_KCS_CEL
P_DRAFT
doklad
vrat
Konec
&barvau
KONEC
VOL11
RQUALM
KCS_CEL
ehled dodavatel
Zobrazen
jemky
Tisk p
jemky
Konec
mod7_lib
mod_proc
&barvau
ehled polo
Informace o um
Informace o obratech
Zobrazen
jemky
Tisk p
jemky
ehled v
voje cen
Konec
mod_proc
&barvau
mod_proc
mod_proc
mod_proc
&barvau
V organizaci nen
mod_proc
&barvau
RQUALW_ICO
W_ZAV
ZAVOD
W_ICO_NAZ
NAZEV_ORG
W_DICO
ZOBR_ORGANMOD7_LIB
ZOBR_DOK
W_SKLAD
W_DOKL_CISMOD_PROC
_MNOZ
ZOBR_POL
W_IDENT
W_NAZEV
_PROC
ZOBR_UM
FFZOBR_OB
W_POLE4
SHLASKA
ZOBR_CEN
&barva1
kladn
daje polo
&barva2
zev polo
Datum:
d pol.
.postupu
r.jednotka
Ident. ext
Jakost CSN
Sek.ident.
WTEXT
@ 4,17 &vloz w_pole(4) pict '@!X'
@ 5,13 &vloz w_pole(3) pict '!'
@ 5,40 &vloz w_pole(5) pict '!!!'
@ 5,59 &vloz w_pole(13) pict '@!X'
@ 6,13 &vloz w_pole(6) pict '@!X'
@ 6,40 &vloz w_pole(7) pict '@!X'
@ 6,59 &vloz w_pole(11) pict '@!X'
@ 7,13 &vloz w_pole(9) pict '@!X'
@ 7,31 &vloz w_pole(8) pict '@!X'
@ 7,59 &vloz w_pole(12) pict '@!X'
do proc&y
do zmen&y with 'get'
do zmen&y with 'say'
prostredi
mod41a_2
sobovac
daje
novac
daje
kladov
daje
Dopl
text
Konec
Typ n
TYP_NAKL
pnakl
MNTUXYZ
Pro materi
l je mo
no nav
t pouze typ "KU"
Klobouky
Typ textu:
TYP_TX
typ_p
prostredi
&barvau
it pr
ci beze zm
n? (a/N)
KONEC
RQUALX
O_NAZ
ZEV_ORG
BR_ORGANOBR1
K_UDAJU
DOPLN_ZZ
KL_CISPROSTREDI
BARVA1
BARVAR
BARVA2
BARVAD
PORADI
PROC1
VOLBA
FFPROCX
M1_IDENT
SMOD41A1
MOD41A2
FPNAKL
LJMENO_C
yWJMENO_C
FMOD_C2
RADEK_C
FFSLOUPEC_C
MOD_C1
OFFW_POLE
HLASKA
=PODNIK
MOD41A31
rMOD41A32
NTYP_P
MOD41A4
TREDI
POCET
NOVY_Z
M1_PLAN
CISLOP
M1_ZAS
M1_KALK
IDENT
M1_POZID
&barvau
&barvas
&barvaz
&barvar
&barvaz
&barvat
Rozpiska
Uvoln
&barvau
&barvas
&barvau
&barvar
&barvaz
&barvat
&barvan
Komponenta
Z
Vydat
Mno
Dostupn
Vyd
Pozn
&barvau
Pohyb
jemky
Funkce
Konec
<Enter>
- ^PgDn
- F10
- Esc,^End
&barvau
&barvas
99999999.999
&barvau
M5_PLAN
_PLAN
ZAKAZKA
ALIDENT
M1_IDENT
NAZEV
TER_UV
TER_OV
MNO_PL
MNO_OV
MNO_ZM
GANPOZNAMKA
&barvas
&barvau
&barvau
&barva
99999999.999
99999999.999
&barvas
&barvau
&barvau
_PLAN
BARVA
BARVAZ
_IDENT
IDENT_KO
M1_ZAS
ZASOBA
GANMNO_VYS
M1_IDENT
NAZEV
MNO_VYD
PLN_ZZ
@ 4,10 &vloz w_zakazka pict '9999999999'
zka neexistuje
Chybn
typ zak
zky, jsou povoleny pouze v
novan
zka - v
dej nelze prov
POCET1
M5_PLAN
W_ZAKAZKA
HLASKA
NT_KO
TYP_OBJ
PROC1
@ x,2 &vloz w_ident pict '@!X'
ka neexistuje
@ x,15 &vloz w_um pict '@!X'
@ x,21 &vloz w_plan_mn pict '99999999.999'
@ x,34 &vloz w_skut_mn pict '99999999.999'
@ x,50 &vloz w_cena pict '99999999.99'
@ x,63 &vloz w_popis_o pict '@!X'
POCET2
M1_IDENT
_IDENT
W_IDENT
NT_KO
HLASKA
GANW_NAZEV
NAZEV
M1_PLAN
NAKLAD
W_CENA
W_NAKLAD
SM1_OBR
PROC2
W_CENA_CELW_SKUT_MN
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)
vypln
, obrat nelze ulo
KONEC
POCET1
IDENT
IDENT
NT_KO
W_POLE4
POCET2
_PLAN
ENA_CELVOLBA
K_HLAVA
HLAV1
SHLAV2
PROC1
FMENU
LK_OBRATU
yKONTROLA
FW_SKUT_MN
W_PLAN_MN
W_CENA
W_CENA_CELW_POPIS_O
RADEK
=POC_ZAZ
rHLASKA
colora
set color to &color
COLOR
slo p
jemky mus
t vypln
KOD_OB
w_kod_ob
Lze zad
vat pouze p
dy obrat
organizace mus
t uvedena
Organizace neexistuje
KONTROLA
W_DOKL_CISA
HLASKA
IDENT
JMENO_C
WJMENO_C
MOD_C2
GANRADEK_C
SLOUPEC_C
MOD_C1
W_KOD_OB
W_ICO
M4_ORGAN
W_ZAV
W_ICO_NAZ
NAZEV_ORG
PROC1
Hodnota skute
ho mno
t vypln
Nedostate
soba na um
Hodnota z
sob a nov
cena bude z
, sni
te cenu
pustn
hodnota ceny polo
m1_um
znam
o um
sob nen
stupn
m1_zas
znam
ch nen
stupn
m1_kalk
znam n
kladov
stupn
m1_plan
MNTUXYZ
FPSABCOJKG
znam pl
novac
stupn
KONTROLA
W_SKUT_MN
HLASKA
IDENT
M1_UM
W_IDENT
W_SKLAD
W_TYP_UM
NZASOBA
KUT_MN
M1_ZAS
W_NAKLAD
W_CENA
KUT_MN
IDENT
SKLAD
UM_SKL
TYP_UM
W_POLE4
M1_KALK
ELPL_OD
TYP_NAKL
DAT_AK
M1_IDENT
SKOD_POL
M1_PLAN
FTV_ZAK
LKOD_KALK
yHR_DEN
VYP_PR
PRIJEM
DATUM_PRIJZAPIS_OBR
Storno p
jmu je v
m1_obr
TVRDE PRECENENI
m1_cen
m1_kalk
m1_obr
TVRDE PRECENENI
W_POLE4
M1_ZAS
W_IDENT
ALZASOBA
W_ZASOBA
W_SKUT_MN
IDENT
HLASKA
YP_UM
NM1_OBR
IDENT
TERMIN_OB
KOD_OB
PLAN_MNOZ
SKUT_MNOZ
VYDAL_SKL
VYD_UM_SKLTYP_UM_V
POPIS_OBR
NAKLAD
JMENO
ELROK
MESIC
W_CENA
M1_UM
SKLAD
SUM_SKL
TYP_UM
FW_NAKLAD
LMM_AUTOR
yW_ROK
FW_MESIC
CENA_NOV
M1_CEN
DATUM
RIJCAS
S_OBR
CEN_PUV
=CEN_PR
MNOZ_PR
rCEN_PRU
NC_PRIJ
KL_ZAZ
W_DOKL_CISM1_KALK
PL_OD
PL_DO
DAT_AK
TYP_NAKL
KUSY_D
MATER
M1_PLAN
uW_SKLAD
W_TYP_UM
m1_obr
m1_obr
TVRDE PRECENENI
m1_obr
VEDLEJSI NAKL.
m1_kalk
m1_cen
M1_OBR
IDENT
TERMIN_OB
KOD_OB
PLAN_MNOZ
SKUT_MNOZ
VYDAL_SKL
VYD_UM_SKLTYP_UM_V
POPIS_OBR
NZAVOD
DOKL_CIS
IDENT_ZAK
IDENT_VYS
NAKLAD
JMENO
L_SKL
MESIC
_SKLW_IDENT
W_DAT_P
W_KOD_OB
W_PLAN_MN
W_SKUT_MN
W_SKLAD
W_TYP_UM
W_POPIS_O
W_ICO
W_ZAV
FW_DOKL_CISW_ID_ZAK
yW_ID_VYS
FW_CENA
MM_AUTOR
W_ROK
W_MESIC
IJW_POLE4
M1_ZAS
=ZASOBA
CENA_NOV
rM1_UM
SKLAD
UM_SKL
TYP_UM
CISW_KOEF_VN
CENA_NOV2
M1_KALK
_NOV2
PL_OD
PL_DO
DAT_AK
TYP_NAKL
KUSY_D
uMATER
M1_PLAN
M1_CEN
DATUM
CAS
CEN_PUV
mjCEN_PR
MNOZ_PR
azCEN_PRU
C_PRIJ
m1KL_ZAZ
W_NAKLAD
wW_ZASOBA
MOD54EX
ZMEN1
ZMEN2
ZMENY
HLASKA
K_HLAVA
K_OBRATU
VYP_PR
ZAPIS_OBR
u,t,q
TISK_HL
TISK_S
UC
UKONCI
KONEC
VOLBA
creen
PORADI
~R
ZMEN1
if
ZMENY
NW
HLAV1
r to ed
HLAV2
@
ar to \h
PROC1
Bj
PROC2
o m+4
ZMEN1
ZMEN2
color
ZMENY
HLASKA
+1,3n
K_HLAVA
K_OBRATU
VYP_PR
ZAPIS_OBR
K:\RIIS\OBEC\05\
MOD54E.FXP
K:\RIIS\OBEC\05\MOD54E.PRG