KONEC
   'S736AX
m_dat
x_dat
m_cis1
x_cis1
m7_desk
skupina
m7_kurz
archiv
p_prist
xp_prist
m7_ucet
m7_poklm
m7_meny
mena_c
s736a
s736ad
ehled   m 
 n   a   c e n i n
RIIS 7.36
zev m
ny, ceniny
nazev
nazev
'  '+druh_mc+' '
druh_mc
 Nom.hod.
iif(inlist(druh_mc,'C','S'),str(stred,9,2),space(9))
iif(inlist(druh_mc,'C','S'),str(stred,9,2),space(9))
   DPH
iif(inlist(druh_mc,'C','S'),str(dph,6,2),space(6))
iif(inlist(druh_mc,'C','S'),str(dph,6,2),space(6))
ucet_men
ucet_men
AU pom
au_pom
au_pom
aut_zvys+'   '
aut_zvys
aut_sniz+'   '
aut_sniz
tupk+' '
tupz+' '
ep. koeficient
iif(prep_koef=0,space(16),'   '+str(prep_koef,13,8))
prep_koef
Autor
autor
autor
Aktual.
aktual
aktual
Dat.akt.
tran(dat_akt,'@E')
dat_akt
M_DAT
   'X_DAT
& jM_CIS1
ozkX_CIS1
 ciM7_DESK
  SKUPINA
 =M7_KURZ
mcARCHIV
   P_PRIST
o XP_PRIST
pM7_UCET
  UCET
d_c3 M7_POKLM
_MENA
eno_cM7_MENY
 zMENA_C
POLEX
_zobFREEZE
 zobrRBOT
with CLEFT
 0 iCRIGHT
caseF2
ob='w_aF3
zobr_ucF6
ith w_aPROCX
0 inENTER
DETAIL
se DET_JM
_tuRAMECEK
doNAZEVT
? ?RIIS
NADPIS
	ALEVA
use PRAVA
 indHOR
_pristDOL
ect 0
7_uceJMENO
 uceHODN
ct 0I
7_poMOD_PSV
mod_psv
P_PRIST
 'PRIHLAS
 jMOD_SYS
zkM7_MENY
ciOPRAVA
  PS_RETURN
MOD_PSV
RIIS 7.36
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
 jCPODMS
zkAUTOR
ciMM_AUTOR
 AKTUAL
DAT_AKT
cZMENA
   NOVY_Z
o ANSI
pW_MENA
  MENA
d_c3 W_DRUH_MC
DRUH_MC
_cW_NAZEV
 zNAZEV
W_TUPK
zobTUPK
W_TUPZ
obrTUPZ
with W_UCET
0 iUCET_MEN
W_AU_POM
eAU_POM
w_aW_NOMHOD
 STRED
r_ucW_DPH
 w_aDPH
0 inW_AUT_ZVYSAUT_ZVYS
 W_AUT_SNIZAUT_SNIZ
oW_PR_KOEF
PREP_KOEF
W_AKTUAL
AW_DAT_AKT
W_AUTOR
ndP_ZOB
ristJMENO_C
WJMENO_C
eRADEK_C
ceSLOUPEC_C
7_poQ1
lectQ3
use m7_Q4
 order Q5
-------Q7
efiniceQ8
ozek prQ9
mu mod_Q10
------Q11
ex=15 Q12
 && poPOCET
ozekCISELNIK
rDOP1
cDOP2
*COUNT
.t. ZAKAZNIK
&POMOC
 = .t.  RAD
    &&SL
f3POC
.     KONTROLA
rBARVAS
4 =BARVAR
   BARVAZ
iskBARVAU
t. BARVAN
  &BARVAH
BARVA
x = KS
  &M7_MENY
roMENU
o PORADI
 prKONEC
='s736R
   && Z
 progrU
 detail
tail=.t.Q
      &&A
o detailZMENY
&barva
 Aktualizace m
n a cenin 
na/cenina 
zev m
ny, ceniny
Druh pokl. polo
Nomin
 hodnota
Sazba DPH(%)
AU pom
deji aut. zv
it hotovost CZK
jmu aut. sn
it hotovost CZK
TUP pro kladn
 kurzov
 rozd
TUP pro z
 kurzov
 rozd
 koeficient EURa v
Aktualizoval
Autor
Aktualizace
&barvau
999999.99
999.99
9999.99999999
W_MENA
 'W_NAZEV
 jW_DRUH_MC
W_NOMHOD
W_DPH
 W_UCET
W_AU_POM
cW_AUT_ZVYSW_AUT_SNIZW_TUPK
pW_TUPZ
  W_PR_KOEF
ZMENA
W_AKTUAL
cMM_AUTOR
zW_DAT_AKT
W_AUTOR
&barvau
w_mena
@ 8,38 &vloz w_mena picture '@!X'
w_nazev
@ 9,38 &vloz w_nazev picture '@X'  
w_druh_mc
@ 11,38 &vloz w_druh_mc pict '!X'
Nelze m
nit druh, existuje z
w_nomhod
@ 12,38 &vloz w_nomhod pict '999999.99'
w_dph
@ 12,68 &vloz w_dph pict '999.99'
w_ucet
@ 13,38 &vloz w_ucet pict '@!X'
w_au_pom
@ 13,68 &vloz w_au_pom pict '@!X'
w_aut_zvys
@ 14,55 &vloz w_aut_zvys pict '@!X'
w_aut_sniz
@ 15,55 &vloz w_aut_sniz pict '@!X'
w_tupk
@ 16,55 &vloz w_tupk pict '@!X'
w_tupz
@ 17,55 &vloz w_tupz pict '@!X'
w_pr_koef
@ 18,55 &vloz w_pr_koef pict '9999.99999999'
 'NASTAV_Q
DRUH_MC
OMHOD
P_ZOB
 W_MENA
AU_POM
UT_ZVYSW_NAZEV
pW_DRUH_MC
DRUH_MC
ZASOBA
HLASKA
obrQ9
ith Q10
0 iQ11
eZMENA
w_aW_AKTUAL
 MM_AUTOR
cW_DAT_AKT
DAT_AKT
inPROC1
do proc&y
do zmen&y with 'get'
do zmen&y with 'say'
Pokladn
 polo
ku nelze zru
it, existuje pen
 hotovost
Pokladn
 polo
ku nelze zru
it, existuje kurzovn
it pr
ci beze zm
n? (a/N)
KONEC
STAV_Q
DRUH_MC
OMHOD
T_ZVYSR
NAZEV
DRUH_MC
VOLBA
NAP_HOD
P_ZOB
cZASOBA
HLASKA
M7_KURZ
bW_MENA
M7_MENY
brNOVY_Z
h AUTOR
0 iMM_AUTOR
AKTUAL
eDAT_AKT
aAUT_ZVYS
 AUT_SNIZ
cZMENA
inW_DRUH_MC
DRUH_MC
 W_NAZEV
IZNAZEV
oW_TUPK
W_TUPZ
ATUPZ
W_UCET
ndUCET_MEN
tW_AU_POM
AU_POM
eW_NOMHOD
STRED
W_DPH
7_poDPH
 mW_AUT_ZVYSW_AUT_SNIZW_AKTUAL
 W_PR_KOEF
PREP_KOEF
W_DAT_AKT
W_AUTOR
prPROC1
mod_Q
------K_UDAJU
5 OK_C
&& poULOZ
ozekC
POCET
Identifikace m
ny/ceniny mus
t vypln
na ji
 existuje, duplicita
na ji
 existuje, duplicita
zev m
ny je povinn
DRUH_MC   
w_druh_mc
Druh polo
ky pokladny (m
na, cenina) mus
t vypln
Nelze m
nit nomin
 hodnota ceniny, existuje z
et neexistuje
Povolen
 hodnoty jsou pouze A,N
Povolen
 hodnoty jsou pouze A,N
Typov
tovac
edpis pro skupinu 07 neexistuje
Typov
tovac
edpis pro skupinu 07 neexistuje
 'W_MENA
jHLASKA
OMHOD
ST_ZAZ
cNOVY_Z
VYSMENA
IZW_NAZEV
JMENO_C
WJMENO_C
MOD_C2
cRADEK_C
SLOUPEC_C
MOD_C1
W_DRUH_MC
M7_MENY
h W_NOMHOD
STRED
ZASOBA
aW_UCET
 M7_UCET
W_AUT_ZVYSQ8
W_AUT_SNIZQ9
IZW_TUPK
oM7_DESK
W_TUPZ
M7_MENY
 'ZMENA
jW_DRUH_MC
DRUH_MC
M7_POKLM
 MENA
WHILE
W_MENA
YSNAZEV
W_NAZEV
pUCET_MEN
W_UCET
AU_POM
W_AU_POM
cTUPK
W_TUPK
bW_TUPZ
AUT_ZVYS
W_AUT_ZVYSAUT_SNIZ
W_AUT_SNIZPREP_KOEF
W_PR_KOEF
DAT_AKT
 AKTUAL
cMM_AUTOR
STRED
W_NOMHOD
T_SNIZW_DPH
colora
set color to &color
 'COLOR
UH_MC
      - 
                 - ^PgDn
                 - ^Home
       - F10
      - ^End,Esc
Pohyb
Funkce
Konec
colora
SET COLOR TO &col
CMESS
 'COL
ehled 
ehled TUP
 Konec 
mod7_lib
mod7_lib
 'VOLBA
jST_UCET
W_UCET
ZOBR_UCET
MOD7_LIB
ZMENA
W_KLIC
YSZOBR_DESK
PROC1
w_druh_mc
DRUH_MC   
w_druh_mc
w_ucet
mod7_lib
w_au_pom
mod7_lib
w_tupk
mod7_lib
w_tupz
mod7_lib
Pro toto pole neexistuje pomocn
ehled hodnot
P_ZOB
 'JMENO_C
jWJMENO_C
MOD_C3
ZMENA
ZOBR_UCET
W_UCET
MOD7_LIB
SW_AU_POM
ZOBR_DESK
W_TUPK
W_TUPZ
HLASKA
q&si = pocet
q&si = 0
jNOVY_Z
W_DRUH_MC
W_NOMHOD
W_DPH
W_MENA
W_AUT_SNIZW_AUT_ZVYSPOCET
S736AX
& jmP
S736AD
OPRAVA
PORADI
PROC1
     
ZMEN1
     
ZMENY
    &=!
K_UDAJU
zevt='
HLASKA
e n i d8
      ":
VOLBA
lavic
NAP_HOD
IS 8=
NASTAV_Q
X:\OBEC\07\
S736A.FXP
X:\OBEC\07\S736A.PRG