z_obrf
z_klicf
go top
mod79
Archiv
Archiv
oprava
       Platn
 kurzovn
stek       
RIIS 7.9
m_param
m_cis1
x_cis1
m_dat
x_dat
m4_organ
m7_meny
m7_tup
skupina
m7_desk
skupina
m7_ucet
m7_kurz
aktual
MENA      
&z_klic
' ' + m7_kurz.mena
m7_kurz.mena
Dev.-n
str(m7_kurz.nakup,10,3)
m7_kurz.nakup
Dev.-prodej
' '+str(m7_kurz.prodej,10,3)
m7_kurz.prodej
Val.-st
str(m7_kurz.stred,10,3)
m7_kurz.stred
  Mno
str(m7_kurz.mnoz,7)
m7_kurz.mnoz
tran(m7_kurz.dat_od,'@E')
(m7_kurz.dat_od   )
m7_kurz.ico
m7_kurz.ico
m7_kurz.zavod
m7_kurz.zavod
Organizace
substr(m4_organ.nazev_org,1,25)
substr(m4_organ.nazev_org,1,25)
zev m
substr(m_cis1.text,1,19)
substr(m_cis1.text,1,20)
Autor
m7_kurz.autor
m7_kurz.autor
Aktualiz.
m7_kurz.aktual
m7_kurz.aktual
Datum
tran(m7_kurz.datum,'@E')
(m7_kurz.datum   )
POLEX
PROCX
CLEFT
CRIGHT
FREEZE
ORDER
JMENO
TITLE
TITLECOLORSPACEBAR
DETAIL
F1PRG
F4_JM
F4PRG
F7_JM
F7PRG
F9KEY
RF10_JM
F10PRG
DET_JM
m oDETPRG
urnRAMECEK
**RIIS
*****TR_HL
****KONEC
****W_POLE
********POCET1
rocPOCET2
radZ_OBR
 colZ_KLIC
leaMHOD
lor tF5
@ 6F8
o 9,79
ENTER
sayNAZEVT
izNADPIS
tovLEVA
adny PRAVA
coloHOR
w+/bg
2 say M_PARAM
PAR_POLE
2POLE7
UP -M_CIS1
X_CIS1
M_DAT
 sayX_DAT
 kurM4_ORGAN
setM7_MENY
 nMENA
rM7_TUP
***SKUPINA
**M7_DESK
**M7_UCET
**UCET
*****M7_KURZ
**AKTUAL
ure mNOVY_Z
t cZAVOD
/nMOD_PSV
RIIS 7.9
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
W_POLE
ZMENA_K
JMENO_C
WJMENO_C
RADEK_C
SLOUPEC_C
LECOLORQ6
CEBAR
CISELNIK
POCET1
%DOP2
COUNT
ZAKAZNIK
POMOC
KONTROLA
BARVAS
RBARVAR
BARVAZ
BARVAU
m oBARVAN
urnBARVAH
**BARVA
****MENU
***XX
****PORADI
***KONEC
****I
 colU
lor tA
@ 6ZMENY
PS_RETURN
 Aktualizace kurzovn
stku 
na     :
zev :
Platnost :
Devizy
Devizy
Valuty
Prodej
Autor  :
Aktual :
Datum  :
            - 
                - ^PgDn
             F10
                - ^Home
      - ^End,Esc
Pohyb
Valut.pok. -
Konec - 
PAR_POLE
MENA      F
9999999
999999.999
999999.999
999999.999
W_POLE
M_CIS1
M7_KURZ
M4_ORGAN
NAZEV_ORG
@ 12,13 &vloz w_pole(1) picture '@!'              
w_pole(1)
if vloz='say'.and. mhod#&mnaz
MENA      F
MENA      
w_pole(1)
@ 13,13 &vloz w_pole(7) picture '9999999'     
@ 14,13 &vloz w_pole(5) pict '@E'               
w_pole(5)
 Nelze nav
st kurz do budoucnosti 
mod_fun
if mhod#&mnaz
@ 17,8 &vloz w_pole(2) picture '999999.999'     
w_pole(2)
if vloz='say'.and. mhod#&mnaz
@ 17,26 &vloz w_pole(3) picture '999999.999'     
w_pole(3)
if vloz='say'.and. mhod#&mnaz
@ 17,43 &vloz w_pole(4) picture '999999.999'     
w_pole(4)
if vloz='say'.and. mhod#&mnaz
@ 19,13 &vloz w_pole(8)                         
@ 19,28 &vloz w_pole(9)                         
ORGAN
W_POLE
M_CIS1
JMENO_C
WJMENO_C
TYP_C
COLORMOD_C2
RADEK_C
SLOUPEC_C
MOD_C1
M7_KURZ
HLASKA
MOD_FUN
ZMENA_K
ID_ORG
PROC1
M4_ORGAN
oZOBR_ORG
nNAZEV_ORG
do proc&y
do zmen&y with 'get'
do zmen&y with 'say'
&barvau
Nelze zru
it v pokladn
 je hotovost nebo pohyb
case i=35.or.i=291.or.(i=271).and.(z=recc().and.q=pocet&y) and y='1'
do k_udaju&y              
if q<pocet&y 
it pr
ci beze zm
n? (A/N)
do k_udaju&y
do k_udaju&y
KONEC
NOVY_Z
ORGAN
POCET1
POCET2
COLORA
PEC_C
PAR_POLE
PMENA
OPRAVA2
M7_KURZ
RMENU
oM7_MENY
nZASOBA
PRIJ_M
**VYD_M
DAT_DO
**AKTUAL
***MM_AUTOR
*DATUM
rocMNOZ
radW_POLE
colSTAV
PROC1
HLASKA
r tOK_C
@ 6AUTOR
DAT_OD
izPOM
MENA      F
Nespr
Nezad
n datum platnosti
Tato m
na a I
 existuje
Nevypln
n kurz - N
Nevypln
n kurz - Prodej
Nevypln
n kurz - St
archiv
Na den F
 existuj
 kurzy:
epsat je ? (A/N): 
aktual
m7_meny
M_CIS1
W_POLE
M7_KURZ
HLASKA
NOVY_Z
ZMENA_K
ARCHIV
NAKUP
PRODEJ
LORSTRED
DAT_OD
DAT_DO
AUTOR
MM_AUTOR
AKTUAL
M7_MENY
%MENA
DAT_AKT
DRUH_MC
colora
set color to &Mcolor
MCOLOR
nazev
p_org
 Organizace 
O       Z
vod    N
ico+'  '+zavod+'    '+nazev_org
hled_organ
mod_fun
NAZEV
P_ORG
N_LMEZ
N_HMEZ
N_DMEZ
N_PROM
N_HOD
N_POC
N_TEXT
N_HLAV
N_RAD
N_NVYH
N_VYB
ZOBR_NAP
RMOD_FUN
W_POLE
ZAVOD
M4_ORGAN
M7_KURZ
c7_kurz
archiv
c7_kurz+
c7_kurz
znam!
aktual
mod79
Archiv
Archiv
oprava
Archiv kurzovn
RIIS 7.1.
ehled archivu m
MENA      
' ' + c7_kurz.mena
c7_kurz.mena
Dev.-n
str(c7_kurz.nakup,10,3)
c7_kurz.nakup
Dev.-prodej
' '+str(c7_kurz.prodej,10,3)
c7_kurz.prodej
Val.-st
str(c7_kurz.stred,10,3)
c7_kurz.stred
  Mno
str(c7_kurz.mnoz,7)
c7_kurz.mnoz
tran(c7_kurz.dat_od,'@E')
(c7_kurz.dat_od   )
zavod
zavod
Organizace
substr(m4_organ.nazev_org,1,25)
substr(m4_organ.nazev_org,1,25)
zev m
substr(m_cis1.text,1,19)
substr(m_cis1.text,1,20)
Autor
c7_kurz.autor
c7_kurz.autor
Aktualiz.
c7_kurz.aktual
c7_kurz.aktual
Datum
tran(c7_kurz.datum,'@E')
(c7_kurz.datum   )
aktual
PS_LINE
ZAVOD
C7_KURZ
M7_KURZ
ARCHIV
HLASKA
AKTUAL
PS_RETURN
DAT_OD
POLEX
PROCX
CLEFT
CRIGHT
%FREEZE
ORDER
JMENO
TITLE
TITLECOLORF1
**F10
DETAIL
**F1PRG
***F4_JM
*F4PRG
rocF7_JM
radF7PRG
colF9KEY
F10_JM
leaF10PRG
DET_JM
r tDETPRG
@ 6RAMECEK
NAZEVT
izTISKPRG
coloENTER
M_CIS1
y M4_ORGAN
2MENUP
UP -MOD_PSV
Konec
- Esc,^End
RIIS 7.9
&barvau
M7_MENY
PMENA
W_POLE
POCET2
KONEC
POMOC
ZMENA_K
KONTROLA
MENU2
PORADI2
ZMENY
OLORPS_RETURN
 Aktualizace valutov
 pokladny 
Valutov
TUP - kurz.rozd
l aktivn
TUP - kurz.rozd
l pasivn
            - 
      - ^End,Esc
Pohyb
Konec - 
W_POLE
@ 7,16 &vloz w_pole(19) 
@ 8,28 &vloz w_pole(20) 
@ 8,62 &vloz w_pole(21) 
M7_TUP
W_POLE
DET_TUP
M7_KURZ
kl_pomi
ehled 
et    N
zev                       
ucet+'  '+nazev
mod_fun
M7_UCET
W_POLE
KL_POMI
SOUB_OT
N_LMEZ
N_PMEZ
N_HMEZ
N_DMEZ
N_PROM
N_HOD
N_POC
N_TEXT
N_HLAV
N_RAD
N_NVYH
ZOBR_NAP
MOD_FUN
%M7_MENY
c7_tup
c7_tup+
c7_tup
c7_tup
kl_pomi
det_tup
ehled TUP 
    N
zev                       
ty   MD    DAL 
det_tup+'  '+m7_desk.nazev+' '+ucet_1+' '+ucet_2
mod_fun
KL_POMI
SOUB_OT
C7_TUP
M7_TUP
SKUPINA
DET_TUP
M7_DESK
POC_TUP
P_KLIC
N_LMEZ
N_PMEZ
N_HMEZ
N_DMEZ
N_PROM
N_HOD
N_POC
N_TEXT
N_HLAV
N_RAD
N_NVYH
ZOBR_NAP
%MOD_FUN
_POMI
W_POLE
M7_KURZ
MOD79
OPRAVA
PORADI
   aK
PROC1
ZMEN1
et re
ZMENY
skupi
K_UDAJU1
HLASKA
endib9
ZOBR_ORG
ARCHIV
MENUP
OPRAVA2
PORADI2
MENU2
   n_
PROC2
  n_h
ZMEN2
n_dme6P
K_UDAJU2
DET_TUP
W:\07\
MOD79.FXP
W:\07\MOD79.PRG