m5_tisk
doklad
aktual
Aktual.
mod58a1
 dokumentace
RIIS 5.8
Typ dokl.
doklad
doklad
zev dokladu
nazev
nazev
zahlavi
zahlavi
M5_TISK
meDOKLAD
metPOLEX
&bFREEZE
o cF1
case qF2
   @ 1F3
 &vloz F4
 ENTER
16 &DETAIL
azeDET_JM
q=qPROCX
 17,RAMECEK
w_NAZEVT
caRIIS
  NADPIS
 &vLEVA
PRAVA
z='sayDOL
 updatKLICO
  zmZAHL
enJMENO
retHODN
****SOUC
****I
prMOD_PSV
OPRAVA
mePS_RETURN
RIIS 7.37
imu v
ru nelze prov
t opravy z
imu t
 nelze prov
t opravy z
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/n
&barvau
CPODMV
_RETURN
CPODMS
&bZMENA
o cNOVY_Z
e qANSI
@ 1W_DOKLAD
 DOKLAD
cW_NAZEV
 NAZEV
16 &W_KLIC
azeKLIC
q=qW_ZAHLAVI
ZAHLAVI
w_JMENO_C
caWJMENO_C
 RADEK_C
&vSLOUPEC_C
z='sayQ2
 updatQ3
  zmQ4
retQ6
****Q7
****Q8
meQ10
whilQ11
CISELNIK
      DOL
POCET
  caDOP1
     POR
   COUNT
  t=ZAKAZNIK
 POMOC
 x<=Y
      RAD
 x=horSL
       POC
 KONTROLA
dBARVAS
   BARVAR
  BARVAZ
=hoBARVAU
   BARVAN
   BARVAH
   BARVA
r=xM5_TISK
ndMENU
 jPORADI
  dKONEC
men&y Z
'get'
 set curT
   seA
ursor ofZMENY
&barva
 Aktualizace t
 dokumentace 
Typ dokladu 
&barvau
W_DOKLAD
eW_NAZEV
W_ZAHLAVI
W_KLIC
&barvau
@ 14,16 &vloz w_doklad
@ 15,16 &vloz w_nazev
@ 17,16 &vloz w_zahlavi
@ 18,16 &vloz w_klic
NAZEV
AHLAVI
o cQ3
e qQ4
@ 1ZMENA
do proc&y
do zmen&y with 'get'
do zmen&y with 'say'
it pr
ci beze zm
n? (a/N)
KONEC
NAZEV
AHLAVI
o cDOL
@ 1HOR
NAZEV
16 &J
azeNOVY_Z
q=qMOD5
W_DOKLAD
_DOKLAD
caW_NAZEV
 NAZEV
&vW_ZAHLAVI
ZAHLAVI
iW_KLIC
sayKLIC
updatPROC1
  zmQ1
retQ3
****Q4
****POCET
meK_UDAJU
ilOK_C
 ULOZ
ZMENA
Identifikace dokladu mus
t vypln
eW_DOKLAD
HLASKA
e qQ1
M5_TISK
eZMENA
DOKLAD
W_DOKLAD
cNAZEV
e qW_NAZEV
 1ZAHLAVI
 W_ZAHLAVI
 W_KLIC
colora
set color to &color
eCOLOR
      - 
                 - ^PgDn
                 - ^Home
      - ^End,Esc
Pohyb
Konec
colora
SET COLOR TO &col
CMESS
AKTUAL
    U
OPRAVA
PORADI
l=19c
PROC1
    &
ZMEN1
ZMENY
K_UDAJU
poli ->
HLASKA
dimen
(polex
X:\OBEC\05\
MOD58A1.FXP
X:\OBEC\05\MOD58A1.PRG