KONEC
ay cS737BX
s737b
s737bd
ehled  pokladn
RIIS 7.37
m_dat
x_dat
m_cis1
x_cis1
m7_pokl
ident_pok
m7_obrp
cis_dok
p_prist
xp_prist
m7_pokld
ident_pok
Pokladna
' '+ident_pok+'     '
ident_pok
' '+pok_rada+'     '
pok_rada
zev pokladn
Doklad
' '+str(doklad,5)
doklad
Dat.akt.
tran(dat_akt,'@E')
dat_akt
Autor
autor
autor
Aktual.
aktual
aktual
POLEX
ay cFREEZE
T CRTOP
O &coRBOT
CLEFT
****CRIGHT
***F1
*******F2
*******F3
*******F4
*******F6
procedPROCX
ENTER
reenDETAIL
doDET_JM
RAMECEK
olNAZEVT
0,25 NADPIS
 15LEVA
  @ 1PRAVA
 15,HOR
t coloM_DAT
/b,bX_DAT
volbM_CIS1
  @X_CIS1
romM7_POKL
leIDENT_POK
M7_OBRP
4,CIS_DOK
 'P_PRIST
 XP_PRIST
vM7_POKLD
eZAHL
JMENO
caseI
se vMOD_PSV
mod_psv
P_PRIST
 cPRIHLAS
 CMOD_SYS
coM7_POKLD
OPRAVA
*PS_RETURN
MOD_PSV
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
IHLAS
 CCPODMS
coAUTOR
MM_AUTOR
*AKTUAL
DAT_AKT
*ZMENA
****NOVY_Z
***ANSI
***W_ID_POK
dIDENT_POK
W_RADA
eenPOK_RADA
oW_DOKLAD
DOKLAD
olW_TEXT
0,25 W_AKTUAL
5W_DAT_AKT
W_AUTOR
5,JMENO_C
WJMENO_C
oRADEK_C
,bSLOUPEC_C
  @P_ZOB
romQ1
NT_POK
PRIST
POKLD
caseQ11
se vQ12
  CISELNIK
do zobPOCET
in mDOP1
c witDOP2
  if sCOUNT
w_idZAKAZNIK
 POMOC
na =Y
     RAD
  exit
therwiKONTROLA
 BARVAS
   BARVAR
  BARVAZ
resBARVAU
eenBARVAN
BARVAH
rBARVA
*!**KS
***M7_POKLD
*MENU
*PORADI
***KONEC
****X
proceR
nap_hoZ
rameteU
p_zob
_zob='w_A
  ZMENY
&barva
 Aktualizace pokladn
Pokladna 
zev pokladny
Pokladn
zev pokladn
Posledn
slo dokladu
Aktualizoval
Autor
Aktualizace
&barvau
99999
W_ID_POK
cM7_POKL
 CM7_POKLD
oTEXT
W_RADA
*W_TEXT
W_DOKLAD
*ZMENA
****W_AKTUAL
*MM_AUTOR
*W_DAT_AKT
W_AUTOR
&barvau
w_id_pok
@ 12,38 &vloz w_id_pok picture '@!X'
w_rada
@ 15,38 &vloz w_rada picture '@!X'  
w_text
@ 16,38 &vloz w_text pict '@X'
_POKL
POKLD
oP_ZOB
W_ID_POK
OKLAD
****ZMENA
*W_AKTUAL
*MM_AUTOR
W_DAT_AKT
DAT_AKT
PROC1
do proc&y
do zmen&y with 'get'
do zmen&y with 'say'
Pokladn
adu nelze zru
it, existuje obrat
it pr
ci beze zm
n? (a/N)
KONEC
_POKL
POKLD
****R
_AUTOR
NAP_HOD
P_ZOB
VOLBA
oM7_OBRP
W_ID_POK
lW_RADA
HLASKA
25 M7_POKLD
5NOVY_Z
S737B
5,IDENT_POK
POK_RADA
oW_DOKLAD
bDOKLAD
W_TEXT
  @TEXT
romW_AKTUAL
eAKTUAL
W_DAT_AKT
DAT_AKT
 'W_AUTOR
 AUTOR
vPROC1
casePOCET
se vQ
  K_UDAJU
 OK_C
 ULOZ
o zobZMENA
n mMM_AUTOR
Identifikace pokladny mus
t vypln
Identifikace pokladn
ady doklad
t vypln
Pokladn
ada doklad
 existuje, duplicita
Pokladn
ada doklad
 existuje, duplicita
zev pokladn
ady doklad
t uveden
cW_ID_POK
CHLASKA
W_RADA
***ST_ZAZ
*NOVY_Z
*IDENT_POK
POK_RADA
W_TEXT
oM7_POKLD
M7_POKLD
cZMENA
CIDENT_POK
W_ID_POK
POK_RADA
*W_RADA
*W_TEXT
***DAT_AKT
*AKTUAL
*MM_AUTOR
colora
set color to &color
cCOLOR
T_POK
      - 
                 - ^PgDn
                 - ^Home
       - F10
      - ^End,Esc
Pohyb
Funkce
Konec
colora
SET COLOR TO &col
CMESS
ehled pokladen 
 Konec 
mod_proc
cVOLBA
CST_ID
W_ID_POK
ZOBR_POKL
MOD_PROC
ZMENA
*PROC1
w_id_pok
mod_proc
Pro toto pole neexistuje pomocn
ehled hodnot
P_ZOB
cST_ID
CW_ID_POK
ZOBR_POKL
MOD_PROC
ZMENA
HLASKA
*S737BX
HomeP
S737BD
OPRAVA
PORADI
PROC1
troly
ZMEN1
ZMENY
t m7_
K_UDAJU
k+w_ra
HLASKA
      
a withx&
VOLBA
aduh'
NAP_HOD
X:\OBEC\07\
S737B.FXP
X:\OBEC\07\S737B.PRG