mod79b
aktual
Aktual
ehled  pokladn
RIIS 7.9
m7_pokl
ident_pok
'      '+m7_pokl.ident_pok
m7_pokl.ident_pok
m7_pokl.text
m7_pokl.text
Doklad
' '+str(m7_pokl.doklad,5)
str(m7_pokl.doklad,5)
KONEC
x. 6POLEX
ps_FREEZE
mecek =F2
       F3
       F4
       F5
  && zoF6
eni hlaF7
nazeF8
ehledF9
kladn
'     PROCX
    ENTER
laviDETAIL
s='DET_JM
'  PS_RETURN
RAMECEK
  NAZEVT
 &&RIIS
NADPIS
s=4LEVA
     PRAVA
k prHOR
      M7_POKL
 lIDENT_POK
NOVY_Z
   ZAHL
&& JMENO
krajHODN
    I
   &MOD_PSV
adOBSAH
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
x. 6W_POLE
ps_JMENO_C
*WJMENO_C
=RADEK_C
  SLOUPEC_C
     Q1
  && zoQ2
eni hlaQ3
nazeQ4
ehledQ5
kladn
'     Q7
    Q8
laviQ9
s='Q10
'  Q11
ETURN
  Q13
 &&Q14
s=4Q16
     Q17
k prQ18
      Q20
 lQ21
T_POK
   Q23
&& CISELNIK
    DOL
   &POCET
adDOP1
=19 DOP2
     POR
olni rCOUNT
seZAKAZNIK
ePOMOC
l orY
 ident_pRAD
f eof(SL
  appenPOC
  KONTROLA
'BARVAS
 BARVAR
='NBARVAZ
BARVAU
---BARVAN
iniBARVAH
---BARVA
----MENU
PORADI
hl(KONEC
no(polX
dime hR
olex)
zahl(i)=T
ada 'Q
meno(i)=A
     '+mZMENY
idenPS_RETURN
&barva
 Aktualizace pokladn
            - 
              - ^PgDn
              - ^Home
      - ^End,Esc
Pohyb
znamu
Konec - 
W_POLE
@ 16,25 &vloz w_pole(1) picture '@!XXX' 
@ 17,25 &vloz w_pole(3) picture '@X'  
ps_Q1
*W_POLE
DEK_C
UPEC_C
do proc&y
do zmen&y with 'get'
do zmen&y with 'say'
it pr
ci beze zm
n? (A/N)
KONEC
. 6NOVY_Z
ps_Q1
=POCET
  && zoDOL
ni hlaT
nazeHOR
ehledU
'     Z
    J
laviW_POLE
s='PROC1
ETURN
K_UDAJU
  OK_C
ada ji
 existuje!
mod_fun
. 6XX
ps_W_POLE
=HLASKA
  MOD_FUN
  && zoMOD79B
t cu%
AKTUAL
PORADI
 set;
PROC1
lor t
ZMEN1
ZMENY
adkeyD
K_UDAJU
X:\OBEC\07\
MOD79B.FXP
X:\OBEC\07\MOD79B.PRG