home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
07
/
S736B.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1999-01-14
|
20KB
|
531 lines
KONEC
S736BX
archiv
s736b
s736bd
K u r z o v n
l
s t e k
RIIS 7.36
m_dat
x_dat
m_cis1
x_cis1
p_prist
xp_prist
m7_meny
mena_c
m4_organ
m7_kurz
aktual
' ' + mena
zavod
zavod
Devizy N
str(nakup,10,3)
nakup
Devizy P
str(prodej,10,3)
prodej
Valuty S
str(stred,10,3)
stred
' '+str(mnoz,7)
Platnost OD
tran(dat_od,'@E')+' '
dat_od
ep. koeficient
iif(m7_meny.prep_koef=0,space(16),' '+str(m7_meny.prep_koef,13,8))
m7_meny.prep_koef
zev m
m7_meny.nazev
m7_meny.nazev
Autor
autor
autor
Aktual.
aktual
aktual
Dat.akt.
tran(datum,'@E')
datum
zev organizace
m4_organ.nazev_org
m4_organ.nazev_org
POLEX
FREEZE
lasRTOP
h 'IdRBOT
kace CLEFT
dCRIGHT
select F2
if F7
_mc#'M'F8
do hlaF9
with 'NF10
F10_JM
ruhF10PRG
pPROCX
ENTER
sDETAIL
_kuDET_JM
= RAMECEK
= NAZEVT
etuRIIS
NADPIS
lecLEVA
PRAVA
---HOR
ontrolDOL
M_DAT
X_DAT
M_CIS1
bX_CIS1
e pP_PRIST
prXP_PRIST
M7_MENY
hrMENA_C
i =M4_ORGAN
M7_KURZ
iAKTUAL
rimMENA
(cpodZAVOD
ZAHL
JMENO
HODN
5 clI
14,6MOD_PSV
mod_psv
ID_ORG
VYSKOC
lasMOD_SYS1
dM7_KURZ
e OPRAVA
dPS_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
lasCPODMS
dAUTOR
e MM_AUTOR
dAKTUAL
DATUM
MNOZ
DAT_OD
ZMENA
NOVY_Z
enANSI
if W_MENA
'M'W_NAKUP
laW_PRODEJ
NW_STRED
W_DAT_OD
hW_DAT_DO
pW_MNOZ
W_ICO
sW_ZAVOD
kuW_AKTUAL
W_DATUM
= W_AUTOR
tuNAPLN_W
JMENO_C
cWJMENO_C
RADEK_C
--SLOUPEC_C
e pQ5
PRIST
i =Q9
ORGAN
rimPOCET
cpodCISELNIK
DOP1
5 clDOP2
14,6POR
2,COUNT
4,64ZAKAZNIK
POMOC
7 saY
imuRAD
neSL
avy z
KONTROLA
BARVAS
BARVAR
keyBARVAZ
retBARVAU
if BARVAN
f rBARVAH
BARVA
blaKS
eplM7_KURZ
wMENU
toPORADI
l wKONEC
autoX
tum wiR
te(), Z
mnU
with 1, T
_od withQ
ena = .tNASTAV_Q
_ZMENY
&barva
Aktualizace kurzovn
stku
Platnost od
Devizy - n
Devizy - prodej
Valuty - st
Aktualizoval
Autor
Aktualizace
&barvau
9999999999
999999.999
999999.999
999999.999
W_MENA
M7_MENY
asNAZEV
dW_ICO
e W_ZAVOD
dM4_ORGAN
NAZEV_ORG
M7_KURZ
W_MNOZ
W_DAT_OD
W_NAKUP
enW_PRODEJ
W_STRED
M'ZMENA
laW_AKTUAL
NMM_AUTOR
W_DATUM
hW_AUTOR
&barvau
@ 11,18 &vloz w_mena picture '@!X'
@ 12,18 &vloz w_ico picture '@X'
@ 12,31 &vloz w_zavod picture '@X'
@ 14,25 &vloz w_mnoz pict '9999999999'
@ 14,58 &vloz w_dat_od pict '@E'
@ 15,25 &vloz w_nakup pict '999999.999'
@ 16,25 &vloz w_prodej pict '999999.999'
@ 17,25 &vloz w_stred pict '999999.999'
NASTAV_Q
e W_MENA
_ORGAN
EV_ORG
AT_OD
enID_ORG
W_PRODEJ
'W_NAKUP
laW_STRED
hZMENA
pW_AKTUAL
MM_AUTOR
sW_DATUM
kuPROC1
do proc&y
do zmen&y with 'get'
do zmen&y with 'say'
archiv
aktual
it pr
ci beze zm
n? (a/N)
KONEC
STAV_Q
e DOL
V_ORG
enVOLBA
NOVY_Z
'ST_MENA
laMENA
NST_ICO
hST_ZAVOD
pZAVOD
ST_ZAZ
sARCHIV
kuDAT_DO
AKTUAL
= AUTOR
tuMM_AUTOR
DATUM
cMNOZ
DAT_OD
--ZMENA
NAPLN_W
PROC1
K_UDAJU
bOK_C
e pULOZ
PLN_W
POCET
hrPOM
Identifikace m
ny/ceniny mus
t vypln
Identifikace m
ny nen
definov
Nelze nav
t jin
druh pokladn
polo
ky ne
Kurzovn
stek pro tuto organizaci ji
existuje, duplicita
Kurzovn
stek ji
existuje, duplicita
Kurzovn
stek pro tuto organizaci ji
existuje, duplicita
Kurzovn
stek ji
existuje, duplicita
Organizace neexistuje
Nulov
- nepovolen
hodnota
Nelze nav
t kurz pro budouc
obdob
W_MENA
sHLASKA
M7_MENY
M7_KURZ
DRUH_MC
ST_ZAZ
NOVY_Z
enW_ICO
W_ZAVOD
'MENA
laICO
NZAVOD
M4_ORGAN
pW_MNOZ
sW_DAT_OD
Doplnit kurzy n
n dle p
ch koeficient
? (a/N)
aktual
M7_KURZ
ZMENA
sVLOZ_KURZ
NOVY_Z
e W_MENA
dW_ICO
W_ZAVOD
W_NAKUP
W_PRODEJ
W_STRED
W_DAT_OD
nW_MNOZ
'PUV_KURZ
aM7_MENY
NPUV_MENY
hPREP_KOEF
AKTUAL
archiv<
aktual
NOVY_Z
W_MENA
sW_ICO
W_ZAVOD
e W_NAKUP
dW_PRODEJ
W_STRED
W_DAT_OD
W_MNOZ
M7_KURZ
MENA
ZAVOD
'NAKUP
aPRODEJ
NSTRED
DAT_OD
hMNOZ
DATUM
AKTUAL
sMM_AUTOR
uARCHIV
DAT_DO
AUTOR
uW_DO_ST
colora
set color to &color
COLOR
-
- ^PgDn
- ^Home
- F10
- ^End,Esc
Pohyb
Funkce
Konec
colora
SET COLOR TO &col
CMESS
ehled organizac
Konec
mod_proc
VOLBA
sST_ICO
W_ICO
e ST_ZAVOD
dW_ZAVOD
W_ZAV
ZOBR_ORG
MOD_PROC
NOVY_Z
ZMENA
nPROC1
archiv
c7_kurz
znamy nebyly nalezeny
aktual
c7_kurz
s736b
v kurzovn
RIIS 7.9
ehled arch
vu kurzovn
Platnost OD
tran(dat_od,'@E')+' '
dat_od
Platnost DO
tran(dat_do,'@E')+' '
dat_do
Devizy N
str(nakup,10,3)
nakup
Devizy P
str(prodej,10,3)
prodej
Valuty S
str(stred,10,3)
stred
' '+str(mnoz,7)
Autor
autor
autor
Aktual.
aktual
aktual
Dat.akt.
tran(datum,'@E')
datum
aktual
M7_KURZ
sST_ZAZ
ST_KLIC
e MENA
ZAVOD
ARCHIV
C7_KURZ
HLASKA
AKTUAL
nDAT_OD
DATUM
'M7_MENY
aM4_ORGAN
NPS_LINE
hPOLEX
PROCX
sRBOT
uCLEFT
CRIGHT
FREEZE
uORDER
cJMENO
--TITLE
TITLECOLORF1
e pF6
hrF10
i =DETAIL
F1PRG
F4_JM
iF4PRG
rimF7_JM
cpodF7PRG
F9KEY
F10_JM
F10PRG
clDET_JM
4,6DETPRG
2,RAMECEK
64NAZEVT
RIIS
7 saTISKPRG
muPS_RETURN
MOD_PSV
W_MENA
sW_NAKUP
NAKUP
e W_PRODEJ
dPRODEJ
W_STRED
STRED
W_DAT_OD
DAT_OD
W_DAT_DO
nDAT_DO
W_MNOZ
'MNOZ
aW_ICO
W_ZAVOD
hZAVOD
W_AKTUAL
AKTUAL
sW_DATUM
uDATUM
W_AUTOR
AUTOR
NOVY_Z
POCET
RODEJ
AT_OD
nS736BX
w_zP
S736BD
OPRAVA
PORADI
PROC1
ZMEN1
m7_k^
ZMENY
novy&
K_UDAJU
eplQ$
with w8*
VLOZ_KURZ
HLASKA
od wP2
od, ;
kup wi'5
VOLBA
, pro
ARCHIV
prodP8
NAPLN_W
NASTAV_Q
X:\OBEC\07\
S736B.FXP
X:\OBEC\07\S736B.PRG