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