home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
04
/
MOD49B.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1999-01-06
|
19KB
|
472 lines
Prob
prava dat ...
cRusf
m_param
m1_ident
ident
m2_hlava
objednavka
m2_por
objednavka
m1_um
ident
m1_rez
ident
soubor rezervac
ehledu lze ru
it jen spln
rezervace ....
... spln
rezervace neexistuj
RIIS 4.1
ehled r e z e r v a c
Nepokryt
rezervace
Funkce
Funkcea
ehled rezervac
sob, ur
ch ke zru
Pokryt
rezervace
Detail
Detail
mod49b
Zadejte identifikaci:
Identifikace
ident
ident
m1_ident.nazev
m1_ident.nazev
Rezervov
str(rezervace,12,3)
rezervace
Vyd
str(vydano,12,3)
vydano
soba/Um.
str(m1_um.zasoba,12,3)
m1_um.zasoba
Rezervace/Um
str(m1_um.rezervace,12,3)
m1_um.rezervace
Rozd
str(m1_um.zasoba -m1_um.rezervace,12,3)
m1_um.zasoba -m1_um.rezervace
Sklad
sklad+' '
sklad
umist
umist
kod_rez+' '
kod_rez
Objedn
objednavka
objednavka
str(poradi,3)
poradi
poznamka
poznamka
Odv.obj.
m2_por.ter_ov_TT
m2_por.ter_ov_TT
tran(m2_por.ter_ov,'@E')
m2_por.ter_ov
Autor
autor
autor
Aktual.
aktual
aktual
opravneni
opravneni
Dat.akt.
tran(dat_akt,'@E')
dat_akt
Identifikace
ident
ident
m1_ident.nazev
m1_ident.nazev
Sklad
sklad+' '
sklad
umist
umist
soba/Um.
str(m1_um.zasoba,12,3)
m1_um.zasoba
Rezervace/Um
str(m1_um.rezervace,12,3)
m1_um.rezervace
Rezervov
str(rezervace,12,3)
rezervace
Vyd
str(vydano,12,3)
vydano
Rozd
str(rezervace-vydano,12,3)
rezervace-vydano
kod_rez+' '
kod_rez
Objedn
objednavka
objednavka
str(poradi,3)
poradi
Odv.obj.
m2_por.ter_ov_TT
m2_por.ter_ov_TT
tran(m2_por.ter_ov,'@E')
m2_por.ter_ov
Autor
autor
autor
Aktual.
aktual
aktual
opravneni
opravneni
Dat.akt.
tran(dat_akt,'@E')
dat_akt
poznamka
poznamka
TERMINTT
M_PARAM
POLE2
M1_IDENT
IDENT
^SeM2_HLAVA
rOBJEDNAVKAM2_POR
M1_UM
AVKAM1_REZ
REZERVACE
VYDANO
SKLAD
UMIST
PORADI
VKAHLASKA
POLEX
PROCX
CLEFT
CRIGHT
FREEZE
ORDER
W_DOL
p arouLEVA
PRAVA
NADPIS
JMENO
PSOUC
TITLE
TITLECOLORPOC0
^MatchF0PRG
F1PRG
F4_JM
F4PRG
TISKPRG
F7_JM
F7PRG
F9PRG
F9KEY
F9KEY1
F10_JM
F10PRG
RAMECEK
NAZEVT
6KLICO
KLNAZ
SPACEBAR
TR_HL1
^ITR_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
ID_ORG
MOD_PSV
ehled:
kladn
ehled
Nepokryt
rezervace
et rezerv. bez pokryt
Nevyroben
rezervace
Konec
Nepokryt
rezervace
Nevyroben
rezervace
KONEC
VOL11
ID_ORG
TITLE
TR_HL1
^SePS_RETURN
REZERVACE
VYDANO
SOUCTY
M1_UM
ZASOBA
Prob
...
ehled r e z e r v a c
Celkov
et za identifikaci bez pokryt
ch rezervac
FILTERz
et za identifikaci bez pokryt
ch rezervac
AND
m1_rez
copy to c_sql for &filt
c_sql
v4_sklad
x4_sklad
v4_sklad.rezervf
CelkZ
m1_um
m1_rez
c1_uM
c1_um
v4_sklad
CelkZ
mod49b
Zadejte identifikaci:
Identifikace
ident
ident
m1_ident.nazev
m1_ident.nazev
Rezervov
str(rezervace,12,3)
rezervace
Vyd
str(vydano,12,3)
vydano
Celk.z
str(CelkZ.zasoba,12,3)
CelkZ.zasoba
l(Z-R+V)
str(CelkZ.zasoba-rezervace+vydano,13,3)
CelkZ.zasoba-rezervace+vydano
POLEX
PROCX
^SeCLEFT
CRIGHT
FREEZE
ORDER
PRAVA
NADPIS
VKAJMENO
PSOUC
TITLE
TITLECOLORPOC0
p arouF4
F0PRG
F1PRG
F4_JM
F4PRG
OLORTISKPRG
F7_JM
F7PRG
F9PRG
F9KEY
F9KEY1
F10_JM
F10PRG
RAMECEK
MatchNAZEVT
KLICO
KLNAZ
SPACEBAR
TR_HL1
TR_HL2
TR_HL3
TR_HL4
TR_HL5
TR_HL6
TR_HL7
TR_HL8
TR_HL9
DET_JM
ENTER
DETAIL
6DETPRG
PS_LINE
PS_RETURN
PS_ZAZN
^IFILT1
FILT2
IDENT
REZERVACE
VYDANO
M1_REZ
C_SQL
V4_SKLAD
X4_SKLAD
CELKZ
SKLAD
ZASOBA
M1_UM
C1_UM
REZERV
M1_IDENT
MOD_PSV
ps_linef
c1_r+
c1_rez
c1_um+
c1_um
v4_sklad
c1_rez
OBR_REZ
PS_LINE
CIDENT
IDENT
REZERVACE
VYDANO
^SeSKLAD
UMIST
OBJEDNAVKAPOM
C1_REZ
M1_UM
C1_UM
ZASOBA
V4_SKLAD
AREZERV
AKTUAL
M1_REZ
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+/w
set color to w/n
KONEC
POMOC
KONTROLA
P_ZOB
RVACE
POCET
^SeBARVA
BARVAS
BARVAR
VKABARVAZ
BARVAU
BARVAN
BARVANS
BARVAH
_SKLAD
AHLAVA
ZMENY
&barvaz
Rezervace polo
ky: F
Dostupn
&barvan
Objedn
Rezervov
Vyd
Term.pot
Autor
Aktual.
Dat.akt.
WTEXT4
CIDENT
WTEXT5
&barvaz
99999999.999
99999999.999
m2_por
SKLAD
UMIST
^SeKOD_REZ
OBJEDNAVKAPORADI
VKAOPRAVNENI
REZERVACE
VYDANO
TERMINTT
AM2_POR
TER_OV_TT
TER_OV
APOZNAMKA
AUTOR
AKTUAL
DAT_AKT
R_REZ
sklad
@ x,2 &vloz sklad pict '@!X'
umist
@ x,7 &vloz umist pict '@!X'
kod_rez
@ x,12 &vloz kod_rez pict '!X'
@ x,16 &vloz objednavka
@ x,27 &vloz poradi pict '999'
@ x,31 &vloz opravneni pict '@!X'
rezervace
@ x,41 &vloz rezervace pict '99999999.999'
@ x+1,2 &vloz poznamka
P_ZOB
colorz
^SeHOR
JEDNAVKAI
VKAKONEC
RVACE
RMINTT
PROC1
MCOLO
AZMEN1
POCET
-
,PgDn,PgUp
- ^End,Esc
Pohyb
Konec
c_oznac
Nebyly vybr
ny (vysv
ceny)
znamy
Opravdu zru
it vybran
znamy? (a/n)
Prob
ozna
ch rezervac
...
c_oznac,
c_oznac.dbf
HLASKA
C_OZNAC
NTRGPZAZ
SePS_RETURN
M1_REZ
VKAMOD49B
_ _ %
FUNKCEA
SOUCTY
DETAIL
AKTUAL
HLAVA
PROC1
ZMEN1
ZMENY
W:\04\
MOD49B.FXP
W:\04\MOD49B.PRG