home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
07
/
S752E.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1999-04-15
|
4KB
|
116 lines
RIIS 7.5
Aktualizace kurzovn
stku z KB:
Program p
edpokl
textov
soubor KURZLIST.TXT,
kter
je p
enesen z komer
banky programem
KB-DATA a je ulo
en v katalogu ...\RIIS\PRENOS\DN.
Zaktualizuj
se jen dosud naveden
Soubor KURZLIST.TXT bude p
ejmenov
n na KLrrmmdd.ZAL,
kde rrmmdd je datum platnosti kurzovn
stku.
Bere se:
NB st
ed, KB devizy n
kup, KB devizy prodej.
Pokud pot
ebujete p
rat m
nu, kter
dosud v RIIS
, mus
te ji nejprve nav
st ru
, a pak se ji
bude aktualizovat automaticky.
Pokra
ovat ? (A/N):
german
00000000
0000.0000
0000.0000
0000.0000
\PRENOS\DN
\KURZLIST.TXT
if !file('&sach')
Soubor kurz. l
stku
neexistuje !
m7_kurz
aktual
c7_kltxt
append from &sach sdf
Textov
soubor s kurzovn
stkem KB je pr
aktualizace kurzovn
stku ...
KL_neni.ZAL
Platnost
V kurz.l
stku (v RIIS) je vy
dat.platnosti ne
v souboru z KB.
Dat.platnosti v KURZLIST.TXT=F
, max.datum v RIIS=
Aktualizace nen
provedena !
--------
m7_kurz
KL_neni.ZAL
!!! Pozor,
soubor kurz. l
stku z banky !!!
\PRENOS\DN\
copy file &sach to &sach1
delete file &sach
AKPUSTIT
KGERMAN
BRPLATNOST
TW_ICO
W_ZAVOD
DZW_DAT_OD
W_DAT_DO
W_MNOZ
STW_MENA
W_STRED
W_NAKUP
DW_PRODEJ
W_AKTUAL
MM_AUTOR
W_DATUM
STK_1
ZF_ADR
OLORHLASKA
LORM7_KURZ
ETAKTUAL
DAT_OD
ALW_DAT_MAX
C7_KLTXT
OBMESS
EK_POD
BDATUM
KSTRED
BNAKUP
KTPRODEJ
DAT_DO
BSACH1
colora
AKHCOLOR
colora
AKMCOLOR
S752E
HLASKA
P:\IN\SK\O\07\
S752E.FXP
P:\IN\SK\O\07\S752E.PRG