KONEC
&& hMOD46D1X
Zadejte 
slo skladu:
mod46d
ehled  s k l a d 
RIIS 4.6
m_dat
x_dat
m_cis1
x_cis1
v4_skl_z
x4_skl_z
p_prist
xp_prist
v1_str
x1_str
m_param
v4_sklad
x4_sklad
Sklad
' '+sklad
sklad
zev skladu
nazev
nazev
'  '+druh_skl+' '
druh_skl
et pom
ucet_pom+'  '
ucet_pom
POLEX
&& hRTOP
9    CLEFT
  &&CRIGHT
adeF1
* ---F2
--- oteF3
i vsechF4
abazi -F5
-------F6
close dF7
selectF8
use v1_F9
index xF9KEY
if rF10
  PROCX
 blaDETAIL
RAMECEK
uNAZEVT
st RIIS
xp_prNADPIS
ectLEVA
se m_PRAVA
seleHOR
------M_DAT
finiX_DAT
 ---M_CIS1
---X_CIS1
V4_SKL_Z
hX4_SKL_Z
pP_PRIST
ahXP_PRIST
uV1_STR
no(X1_STR
pubM_PARAM
poV4_SKLAD
 X4_SKLAD
 ZAHL
ni vsJMENO
i --HODN
----I
i =MOD_PSV
colora
set color to &color
&& hCOLOR
9    
colora
SET COLOR TO &col
CMESS
&& hCOL
KONEC
&& hMOD46D2X
Zadejte 
slo st
ediska:
zobr_akt
mod46d
ehled  s t 
 e d i s e k
RIIS 4.6
v1_str
x1_str
p_prist
xp_prist
m_param
 NSTR
' '+nstr
zev st
ediska
nazev_str
nazev_str
hostr
hostr
'  '+zavod
zavod
'     '+ozn_cinn
ozn_cinn
Sk.v.
'   '+skup_vypl
skup_vypl
Ozn.sp.
'    '+ozn_sp
ozn_sp
et HK
' '+ucet_hk
ucet_hk
AU-pom
au_pom
au_pom
' '+str(rezie_vyr,6,1)
rezie_vyr
' '+str(rezie_spr,6,1)
rezie_spr
' '+str(rezie_zas,6,1)
rezie_zas
' '+str(rezie_odb,6,1)
rezie_odb
    OPM
' '+str(opm,6,1)
    OPN
' '+str(opn,6,1)
 % PSM
'   '+str(proc_psm,6,2)
proc_psm
    Bankovn
'   '+str(b_ucet_1,16)
b_ucet_1
    Bankovn
'   '+str(b_ucet_2,16)
b_ucet_2
    Bankovn
'   '+str(b_ucet_3,16)
b_ucet_3
et vn. banky-1
'  '+str(vnb_u1,16)
vnb_u1
et vn. banky-2
'  '+str(vnb_u2,16)
vnb_u2
et vn. banky-3
'  '+str(vnb_u3,16)
vnb_u3
   Stav
'     '+stav_nstr
stav_nstr
POLEX
&& hRTOP
    CLEFT
  &&CRIGHT
adeFREEZE
---F1
--- oteF2
i vsechF3
abazi -F4
-------F5
close dF6
selectF7
use v1_F8
index xF9
if rF9KEY
  F10
 blaF10_JM
F10PRG
uPROCX
st DETAIL
_prRAMECEK
ctNAZEVT
 m_RIIS
seleNADPIS
-----PRAVA
finiHOR
 ---DOL
---V1_STR
X1_STR
hP_PRIST
pXP_PRIST
hM_PARAM
uZAHL
no(OBSAH
pubJMENO
poHODN
 MOD_PSV
set color to b/w
set color to bg/n
set color to w+/w
set color to b/bg,w+/rb
set color to w+/b
set color to w/n
RIIS 1.1
Nebylo vlo
eno st
edisko
Jste na prvn
Jste na posledn
set procedure to &ctiskproc
do &f4prg
set procedure to &cselfproc
mod_psv
PS_RETURN
BARVAS
BARVAR
   BARVAZ
 &&BARVAU
adeBARVAN
---BARVAH
otePORADI
echF1
abazi -F6
-------HELP
ose dUK
electHMEZ
e v1_DMEZ
dex xLMEZ
if rPMEZ
 blaKLIC
M_SCR
st RAD
_prSTREC
ctBARVA
 m_TXT
seleHLASKA
Z_AKT
----F9
iniF8
 ---F7
---F5
hCTISKPROC
CSELFPROC
no(TRIDENI
poOBR_V
 VYBER
 MOD_PSV
vsNEXIT
&barvaz
&barvas
&barvaz
kladov
edisko :
zev st
ediska     :
Hospod
vod     :
innosti:
Skupina v
plat    :
. SP :
et hlavn
 knihy :
AU pom.   :
Stav st
ediska :
Vyrobn
ie     :
ie     :
sobovac
ie  :
Odbytov
ie    :
Ost. p
 mzdy   :
Ost. p
kl.  :
ka   :
Bankovn
et 1   :
Bankovn
et 2   :
Bankovn
et 3   :
et vnitrobanky 1:
et vnitrobanky 2:
et vnitrobanky 3:
9999.9
9999.9
9999.9
9999.9
9999.9
9999.9
999.99
NAZEV_STR
HOSTR
   ZAVOD
 &&OZN_CINN
eSKUP_VYPL
OZN_SP
oteUCET_HK
chAU_POM
i -STAV_NSTR
REZIE_VYR
REZIE_SPR
REZIE_ZAS
REZIE_ODB
if rOPN
  PROC_PSM
aB_UCET_1
B_UCET_2
uB_UCET_3
 VNB_U1
_prVNB_U2
ctVNB_U3
 m_MOD46D
MOD46D1
MOD46D1X
HLASKA
MOD46D2
MOD46D2X
ZOBR_AKT
PORADI
Z_AKT
C:\OBEC\04\
MOD46D.FXP
C:\OBEC\04\MOD46D.PRG