home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
02
/
MOD22D1.FXP
(
.txt
)
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
NeXTSTEP
RISC OS
UTF-8
Wrap
MS Visual FoxPro App
|
1999-04-15
|
36.6 KB
|
1,013 lines
ehled polo
ek obchodn
ho cen
RIIS 2.2
mod22d1
Zadejte
slo polo
Detail
mod41bd2 in mod41b_2
m1_plan
x1_plan
m1_zas
x1_zas
m1_kalk
x1_kalk
m1_ident
ident
m_dat
x_dat
m_cis1
x_cis1
m_param
m1_kalks
x1_kalks
m2_pcen
ident
m2_pcen.ident
m2_pcen.ident
zev polo
m1_ident.nazev
m1_ident.nazev
m1_ident.typ
m1_ident.typ
Exter.identifikace
m1_ident.ident_odb
m1_ident.ident_odb
m2_pcen->cen_skup
m2_pcen->cen_skup
Prodej.cena
str(m2_pcen->cena_hruba,11,2)
m2_pcen->cena_hruba
m2_pcen->mena+' '
m2_pcen->mena
soba Celk.
str(m1_zas.zasoba,12,3)
m1_zas.zasoba
' '+m1_ident.kod_pol
m1_ident.kod_pol
m1_ident.mj
m1_ident.mj
Jakostn
norma
m1_ident.jak_csn
m1_ident.jak_csn
norma
m1_ident.rozm_csn
m1_ident.rozm_csn
POLEX
KPROCX
ARTOP
FRBOT
ICLEFT
CRIGHT
FREEZE
ORDER
ALHOR
PRAVA
NADPIS
LZAHL
JMENO
FSOUC
PSOUC
TITLE
RESSTITLECOLORPOC0
P_OFFF0
TE_ON
F0PRG
F1PRG
F4_JM
F4PRG
TISKPRG
F7_JM
F7PRG
F9PRG
F9KEY
F9KEY1
AF10_JM
F10PRG
RAMECEK
RRIIS
NAZEVT
KLICO
KLNAZ
SPACEBAR
TR_HL1
TR_HL2
TTR_HL3
FTR_HL4
TTR_HL5
TR_HL6
TTR_HL7
RTR_HL8
TR_HL9
OTDET_JM
BFENTER
DETAIL
DETPRG
PS_LINE
OTPS_RETURN
PS_ZAZN
_M1_PLAN
X1_PLAN
M1_ZAS
X1_ZAS
IDENT
M1_KALK
X1_KALK
M1_IDENT
_M_DAT
AX_DAT
_M_CIS1
_ X_CIS1
_M_PARAM
W_PRUMER
_POLE4
M1_KALKS
_X1_KALKS
M2_PCEN
_PLATI_DO
_MOD_PSV
RIIS 2.22
Aktu
kurzov
stek
Smluvn
kurzy
Nejd
ve upravte smluvn
kurzy ...
Prob
r cen
ch skupin ...
m2_pcen
_oOescrzyaieuuESCRZYAIEUUdtnDTN_
m7_kurzS
aktual
m7_kurz
aktual
Srovnani
mod22d1
RIIS 2.5
ehled vyu
ch cen
k.skupin a m
n - smluvn
kurzy
ehled vyu
ch cen
k.skupin a m
n - aktu
kurzy
cen_skup
cen_skup
mena+' '
Ozn.Sk.
oznSK
oznSK
tran(m7_kurz.dat_od,'@E')
m7_kurz.dat_od
**Devizy N
str(m7_kurz.nakup,10,3)
m7_kurz.nakup
Devizy P
str(m7_kurz.prodej,10,3)
m7_kurz.prodej
Valuty S
str(m7_kurz.stred,10,3)
m7_kurz.stred
str(m7_kurz.mnoz,5)
m7_kurz.mnoz
KCSMLKURZ
AMESS
FSMLKURZ
IDISTINCT
CEN_SKUP
OZNSK
ALM2_PCEN
PLATI_DO
RESSSK
P_OFFM7_KURZS
AKTUAL
FM7_KURZ
POLEX
PROCX
CLEFT
CRIGHT
FREEZE
ORDER
PRAVA
NADPIS
JMENO
APSOUC
TITLE
TITLECOLORPOC0
CEBAR
F0PRG
TF1ON
RF1PRG
F4_JM
OTF4PRG
BFTISKPRG
F7_JM
F7PRG
F9PRG
OTF9KEY
F9KEY1
_F10_JM
F10PRG
RAMECEK
RIIS
NAZEVT
KLICO
KLNAZ
SPACEBAR
_TR_HL1
ATR_HL2
_TR_HL3
_ TR_HL4
_TR_HL5
TR_HL6
_TR_HL7
TR_HL8
_TR_HL9
DET_JM
_ENTER
DETAIL
_DETPRG
_ PS_LINE
_PS_RETURN
PS_ZAZN
_ F8
MOD_PSV
c_oznac
Nebyly vybr
ny (vysv
ceny)
znamy
c_oznac,
Ozna
it lze max. 28 z
Nebyla vybr
na skupina 'ZAK' a m
na 'CZK' !
Prob
et cen ozna
ch skupin ...
c_oznac,
CZK_ZAK
c2srov
c2srov
m1_ident
ident
m1_kalk
x1_kalk
m2_pcen
c2cen
m2_pcen
c2cen
c2cen1
c2cen1
c2Srov
replace &poloz with c2cen.cena_hruba
c2Srov
replace &poloz with wMen * c2cen.cena_hruba
R_CZK_ZAK
replace &Rpoloz with (CZK_ZAK - wMen * c2cen.cena_hruba)
datez
C_STRU
C_STRU
mod22d1
ehled vyu
ch cen
k.skupin a m
n - smluvn
kurzy
ehled vyu
ch cen
k.skupin a m
n - aktu
kurzy
RIIS 2.5
Zadejte identifikaci:
jmeno(i) = "&_jmeno+'&_mezery'"
jmeno(i) ="substr(&_jmeno,1,78)"
jmeno(i) = "&_jmeno"
jmeno(i) = "&_jmeno"
jmeno(i) = "'&_mezery'+str(&_jmeno,&f_len,&f_dec)"
jmeno(i) = "str(&_jmeno,&f_len,&f_dec)"
jmeno(i) = "str(&_jmeno,&f_len,&f_dec)"
jmeno(i) = "trans(&_jmeno,'@E') + '&_mezery'"
jmeno(i) = "trans(&_jmeno,'@E')"
jmeno(i) = "trans(&_jmeno,'@E')"
IF &_jmeno
jmeno(i) = " 'T' + '&_mezery'"
jmeno(i) = " 'F' + '&_mezery'"
c_oznac.dbf
HLASKA
FPS_RETURN
CEN_SKUP
ALC2Z
IDENT
NAZEV
CZK_ZAK
LCSTR
OZNSK
C2SROV
FM1_IDENT
M1_KALK
X1_KALK
SSPL_DO
RM2_PCEN
FFPLATI_DO
C2CEN
FC2CEN1
POLOZ
RPOLOZ
M7_KURZ
NAKUP
POLEX
PROCX
CLEFT
CRIGHT
FREEZE
ORDER
PRAVA
OLORNADPIS
JMENO
PSOUC
TITLE
TTITLECOLORPOC0
F0PRG
OTF1ON
F1PRG
_F4_JM
F4PRG
TISKPRG
F7_JM
F7PRG
F9PRG
F9KEY
F9KEY1
_F10_JM
AF10PRG
_RAMECEK
_ RIIS
_NAZEVT
KLICO
_KLNAZ
SPACEBAR
_TR_HL1
TR_HL2
_TR_HL3
TR_HL4
_TR_HL5
_ TR_HL6
_TR_HL7
TR_HL8
SKTR_HL9
_ DET_JM
_ _ENTER
DETAIL
DETPRG
PS_LINE
PS_ZAZN
T_DATE
C_STRU
CSMLKURZ
__MAX
_FIELD_NAMEFIELD_LEN
_ ROZD
_JMENO
_MEZERY
MEFIELD_TYPEF_LEN
TYPEF_DEC
FIELD_DEC
MOD_PSV
MEC_OZNAC
_NTRGPZAZ
Archiv
Archiv
mod22d1
Smluvn
k u r z o v n
l
s t e k
RIIS 2.22
m_dat
x_dat
m_cis1
x_cis1
p_prist
xp_prist
m7_meny
mena_c
m4_organ
M7_kurzS.dbf2
m7_kurz
aktual
copy to &f_adr\data\m7_kurzS with cdx
M7_kurzS
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,8)
tran(dat_od,'@E')
dat_od
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
KPROCX
ARTOP
FRBOT
CLEFT
CRIGHT
FREEZE
ORDER
ALHOR
PRAVA
NADPIS
LZAHL
JMENO
FSOUC
PSOUC
TITLE
SSTITLECOLORPOC0
TI_DO
F0PRG
F1PRG
F4_JM
F4PRG
TISKPRG
F7_JM
F7PRG
F9PRG
F9KEY
F9KEY1
AF10_JM
F10PRG
RAMECEK
ORRIIS
NAZEVT
KLICO
KLNAZ
SPACEBAR
TR_HL1
TR_HL2
TTR_HL3
LORTR_HL4
TTR_HL5
TR_HL6
TTR_HL7
RTR_HL8
TR_HL9
OTDET_JM
BFENTER
DETAIL
DETPRG
PS_LINE
OTPS_RETURN
PS_ZAZN
M_DAT
X_DAT
M_CIS1
X_CIS1
P_PRIST
XP_PRIST
_M7_MENY
AMENA_C
_M4_ORGAN
_M7_KURZ
AKTUAL
_M7_KURZS
MENA
_ZAVOD
_MOD_PSV
mod_psv
M7_KURZS
KOPRAVA
APS_RETURN
MOD_PSV
RIIS 2.22
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
ACPODMS
AUTOR
MM_AUTOR
AKTUAL
DATUM
ALDAT_OD
ZMENA
NOVY_Z
W_MENA
LW_NAKUP
W_PRODEJ
W_STRED
FW_DAT_OD
W_DAT_DO
W_MNOZ
SSW_ICO
OLORW_ZAVOD
FFW_AKTUAL
W_DATUM
FW_AUTOR
NAPLN_W
JMENO_C
WJMENO_C
RADEK_C
SLOUPEC_C
POCET
CISELNIK
COUNT
ZAKAZNIK
TPOMOC
RKONTROLA
BARVAS
OTBARVAR
BFBARVAZ
BARVAU
BARVAN
BARVAH
OTBARVA
_M7_KURZS
MENU
PORADI
KONEC
_PRIST
_MENY
_ORGAN
NASTAV_Q
_ZMENY
&barva
Aktualizace smluvn
ho kurzovn
stku
Platnost od
Devizy - n
Devizy - prodej
Valuty - st
Aktualizoval
Autor
Aktualizace
&barvau
9999999999
999999.999
999999.999
999999.999
W_MENA
KM7_MENY
ANAZEV
W_ICO
W_ZAVOD
M4_ORGAN
NAZEV_ORG
M7_KURZS
LW_MNOZ
W_DAT_OD
W_NAKUP
W_PRODEJ
W_STRED
LZMENA
W_AKTUAL
MM_AUTOR
FW_DATUM
W_AUTOR
&barvau
@ 12,18 &vloz w_mena picture '@!X'
@ 13,18 &vloz w_ico picture '@X'
@ 13,31 &vloz w_zavod picture '@X'
@ 15,25 &vloz w_mnoz pict '9999999999'
@ 15,58 &vloz w_dat_od pict '@E'
@ 16,25 &vloz w_nakup pict '999999.999'
@ 17,25 &vloz w_prodej pict '999999.999'
@ 18,25 &vloz w_stred pict '999999.999'
KNASTAV_Q
W_MENA
_ORGAN
EV_ORG
KURZS
AT_OD
ID_ORG
W_PRODEJ
LW_NAKUP
W_STRED
ZMENA
W_AKTUAL
SMM_AUTOR
RW_DATUM
FFPROC1
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
V_ORG
VOLBA
NOVY_Z
LST_MENA
ST_ICO
ST_ZAVOD
ZAVOD
SST_ZAZ
RARCHIV
FFDAT_DO
AKTUAL
FAUTOR
MM_AUTOR
DATUM
DAT_OD
ZMENA
NAPLN_W
PROC1
K_UDAJU
PLN_W
POCET
Identifikace m
ny/ceniny mus
t vypln
Identifikace m
ny nen
definov
Nelze nav
t jin
druh pokladn
polo
ky ne
Smluvn
kurz.l
stek pro tuto organizaci ji
existuje, duplicita
Smluvn
kurzovn
stek ji
existuje, duplicita
Smluvn
kurz.l
stek pro tuto organizaci ji
existuje, duplicita
Smluvn
kurzovn
stek ji
existuje, duplicita
Organizace neexistuje
Nulov
- nepovolen
hodnota
Nelze nav
t kurz pro budouc
obdob
KW_MENA
AHLASKA
M7_MENY
M7_KURZS
LDRUH_MC
ST_ZAZ
NOVY_Z
W_ICO
W_ZAVOD
LMENA
ZAVOD
FM4_ORGAN
W_MNOZ
RW_DAT_OD
archiv<
aktual
M7_KURZS
KZMENA
ANOVY_Z
W_MENA
W_ICO
ZAVOD
LW_ZAVOD
NAKUP
W_NAKUP
PRODEJ
W_PRODEJ
LSTRED
W_STRED
DAT_OD
FW_DAT_OD
W_MNOZ
SDATUM
RAKTUAL
FMM_AUTOR
ARCHIV
FDAT_DO
AUTOR
W_DO_ST
colora
set color to &color
KCOLOR
-
- ^PgDn
- ^Home
- F10
- ^End,Esc
Pohyb
Funkce
Konec
colora
SET COLOR TO &col
CMESS
ehled organizac
Konec
mod_proc
KVOLBA
AST_ICO
W_ICO
ST_ZAVOD
W_ZAVOD
W_ZAV
ZOBR_ORG
LMOD_PROC
NOVY_Z
ZMENA
PROC1
archiv
c7_kurz
znamy nebyly nalezeny
aktual
c7_kurz
mod22d1
v smluvn
ho kurzovn
RIIS 2.22
ehled arch
vu smluvn
ho 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
KM7_KURZS
AST_ZAZ
ST_KLIC
ZAVOD
ARCHIV
LC7_KURZ
HLASKA
AKTUAL
DAT_OD
DATUM
LM7_MENY
M4_ORGAN
PS_LINE
FPOLEX
PROCX
SRBOT
RCLEFT
FCRIGHT
FREEZE
FORDER
PRAVA
NADPIS
JMENO
PSOUC
TITLE
TITLECOLORPOC0
ELNIK
F0PRG
F1PRG
F4_JM
F4PRG
TTISKPRG
ORF7_JM
TF7PRG
F9PRG
TF9KEY
RF9KEY1
F10_JM
OTF10PRG
BFRAMECEK
NAZEVT
KLICO
OTKLNAZ
SPACEBAR
_TR_HL1
TR_HL2
TR_HL3
TR_HL4
TR_HL5
TR_HL6
TR_HL7
TR_HL8
_TR_HL9
ADET_JM
_ENTER
DETAIL
_DETPRG
PS_RETURN
PS_ZAZN
_MOD_PSV
W_MENA
KMENA
AW_NAKUP
NAKUP
W_PRODEJ
PRODEJ
W_STRED
STRED
LW_DAT_OD
DAT_OD
W_DAT_DO
DAT_DO
W_MNOZ
LMNOZ
W_ICO
FW_ZAVOD
ZAVOD
W_AKTUAL
SAKTUAL
RW_DATUM
FDATUM
W_AUTOR
FAUTOR
NOVY_Z
KPOCET
RODEJ
AT_OD
c7_kurz
archiv
c7_kurz+
c7_kurz
znam!
aktual
mod22d1
Archiv smluvn
ho kurzovn
RIIS 2.22.
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
KZAZN
APS_LINE
ZAVOD
C7_KURZ
LM7_KURZS
ARCHIV
HLASKA
AKTUAL
LPS_RETURN
DAT_OD
FPOLEX
PROCX
SRBOT
RCLEFT
FCRIGHT
FREEZE
FORDER
PRAVA
NADPIS
JMENO
PSOUC
TITLE
TITLECOLORPOC0
ELNIK
F0PRG
F1PRG
F4_JM
F4PRG
TTISKPRG
ORF7_JM
TF7PRG
F9PRG
TF9KEY
RF9KEY1
F10_JM
OTF10PRG
BFRAMECEK
NAZEVT
KLICO
OTKLNAZ
SPACEBAR
_TR_HL1
TR_HL2
TR_HL3
TR_HL4
TR_HL5
TR_HL6
TR_HL7
TR_HL8
_TR_HL9
ADET_JM
_ENTER
DETAIL
_DETPRG
PS_ZAZN
_M_CIS1
M4_ORGAN
MOD_PSV
_MOD22D1
SROVCEN
SROVNANI
SMLKURZ
OPRAVA
PORADI
PROC1
ZMEN1
ZMENY
K_UDAJU
HLASKA
VOLBA
ARCHIV
NAPLN_W
NASTAV_Q
ARCHIV
P:\IN\SK\O\02\
MOD22D1.FXP
P:\IN\SK\O\02\MOD22D1.PRG