home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
07
/
S719A.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1999-02-11
|
18KB
|
410 lines
m7_ucto
D e f i n i c e v
RIIS 7.5
s719a
Zadejte n
zev dbf :
Kopie
kop_vyk
Aktual
aktual
r7_vykh
ident_vyk
r7_vykt
radek
r7_vyk
ident_vyk
m7_vykh
ident_vyk
m7_vykt
radek
m7_vyk
ident_vyk
m_dat
x_dat
m_cis1
x_cis1
Ident.
' '+ident_vyk+' '
ident_vyk
' '+typ_vyk+' '
typ_vyk
zev v
nazev
nazev
Autor
autor
autor
Aktual.
aktual
aktual
Dat.akt.
tran(dat_akt,'@E')
dat_akt
W_ROK
W_ROK_VYB
M7_UCTO
ROK
_vykPOLEX
t_vyFREEZE
w_LEVA
k = tPRAVA
HOR
nazev DOL
RAMECEK
n NAZEVT
RIIS
NADPIS
PROCX
F1
if eof(F3
F4
F7
rn to sF9
F9KEY
F10_JM
to F10PRG
DETAIL
DET_JM
endENTER
*R7_VYKH
-IDENT_VYK
M7_VYKH
daR7_VYKT
seRADEK
_vykM7_VYKT
usR7_VYK
seM7_VYK
M_DAT
X_DAT
ykh.M_CIS1
X_CIS1
eoZAHL
JMENO
strHODN
_vykI
elMOD_PSV
OBSAH
to c
ZMEN_TXT
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
A k t u a l i z a c e v
k a z
RIIS 7.5
c7_vykt
c7_vykt+
c7_vykt
Q2
N_TXT
_vykQ
t_vyZMENA1
w_ZMENA2
= tKONTROLA
KONEC
zev HOR
DOL
n POCET
BARVA
RADEK_C
SLOUPEC_C
POMOC
eof(Y
RAD
POC
n to sP_ZOB
BARVAS
BARVAR
BARVAZ
to BARVAU
BARVAN
BARVAT
endBARVAH
*M7_VYKH
-ROK
W_ROK
daNOVY_ZH
seW_IDENT_VYIDENT_VYK
W_TYP_VYK
TYP_VYK
W_NAZEV
NAZEV
ykh.W_POZN
eoM7_VYKT
C7_VYKT
AUTOR
MM_AUTOR
lAKTUAL
DAT_AKT
cNOVY_Z
hilPOCET1
.iPOCET2
=idHLAV1
MENU1
if PROC1
HLAV2
sU
_VYKT
use c7_PROC2
ZMENY
PS_RETURN
&barvau
&barvas
&barvaz
&barvar
&barvaz
&barvat
Typ v
&barvau
&barvau
&barvas
&barvau
W_IDENT_VYW_NAZEV
W_TYP_VYK
W_POZN
@ 4,13 &vloz w_ident_vyk pict '@!X'
@ 4,27 &vloz w_nazev pict '@X'
typ_vyk
@ 5,13 &vloz w_typ_vyk pict '@!X'
@ 5,27 &vloz w_pozn pict '@X'
P_ZOB
T_VYQ
NAZEV
POCET1
ZMENA1
&barvas
&barvau
&barvar
&barvaz
Skupina
&barvat
&barvau
HOR
&barvas
&barvau
@Z 999
PU
T_VYU
vykSKUPINA
vyTEXT
w_RADEK_VYK
&barvau
@ x,2 &vloz skupina pict '@!X'
@ x,13 &vloz text pict '@X'
@ x,49 &vloz radek_vyk pict '@Z 999'
@ x,55 &vloz ucet pict '@X'
P_ZOB
T_VYZ
POCET2
vykQ2
w_Q4
EK_VYK
AKTUAL
ev MM_AUTOR
DAT_AKT
n ZMENA2
do proc&y
do zmen&y with 'get'
do zmen&y with 'say'
c7_vykt
c7_vykt+
c7_vykt
it pr
ci beze zm
n? (a/N)
Z
T_VYX
vyKONEC
w_DOL
K_VYK
n POMOC
OBR
Y
KONTROLA
ZAPIS
C7_VYKT
_VYKT
HLAV1
PROC1
HLAV2
to sPROC2
MENU2
NAP_HOD
P_ZOB
to POCET2
ZMENA2
IDENT_VYK
M7_VYKH
*AUTOR
MM_AUTOR
AKTUAL
daDAT_AKT
ENT_VYW_ROK
NOVY_Z
ZMENA1
NOVY_ZH
W_IDENT_VYW_TYP_VYK
TYP_VYK
eoW_NAZEV
NAZEV
W_POZN
lM7_VYK
M7_VYKT
.iS71
=idPOCET1
Prob
definice v
kazu ...
Prob
definice v
kazu ...
c7_vykt
ZAPIS
MOD_SYS
ZMENA1
M7_VYKH
ykIDENT_VYK
W_IDENT_VYMESS
M7_VYKT
M7_VYK
_VYC7_VYKT
VYALL
n TYP_VYK
VYW_TYP_VYK
NAZEV
W_NAZEV
W_POZN
f(AKTUAL
MM_AUTOR
DAT_AKT
ZMENA2
o sRADEK
vypln
na identifikace v
vypln
n typ v
TYP_VYK
w_typ_vyk
KONTROLA
D_SYS
VYW_IDENT_VYHLASKA
_VYKH
ENT_VYK
W_TYP_VYK
JMENO_C
WJMENO_C
MOD_C2
_VYOK_C
VYRADEK_C
n SLOUPEC_C
MOD_C1
colora
set color to &color
COLOR
VYOBR
ENT_VY
colora
set color to &color
COLOR
Pohyb
Bloky
Konec
<Enter>
- ^Home
- ^PgDn
- Esc,^End
-
,PgDn,PgUp
- ^PgDn
- ^Home
- ^End,Esc
Pohyb
idat
Konec
Kopie v
kazu
Typ v
Identifikace v
kazu mus
t vypln
zev v
kazu mus
t vypln
Typ v
kazu mus
t vypln
Chybn
typ v
kaz s udanou identifikac
existuje
Prob
tvorba v
kazu ...
c7_vykh
c7_vykt+
c7_vyk+
c7_vykh
c7_vykt
c7_vyk
c7_vykh
c7_vykt
c7_vyk
ST_ZAZH
OBR_KOP
VYM7_VYKH
VYIDENT_VYK
W_IDENT_VYW_NAZEV
NAZEV
W_TYP_VYK
TYP_VYK
W_POZN
_VYPOZN
VYHLASKA
_VYMOD_SYS
VYMESS
C7_VYKH
M7_VYKT
C7_VYKT
M7_VYK
C7_VYK
AUTOR
MM_AUTOR
AKTUAL
o sDAT_AKT
PS_RETURN
typ_vyk
TYP_VYK
w_typ_vyk
Pro toto pole neexistuje pomocn
ehled hodnot
P_ZOB
MOD_C3
VYZMENA1
VYHLASKA
AKTUAL
end6
ZMEN_TXT
HLAV1
PROC1
ZMEN1
HLAV2
PROC2
ZMEN2
ZMENY
ZAPIS
KONTROLA
HLASKA
MENU1
MENU2
KOP_VYK
NAP_HOD
W:\07\
S719A.FXP
W:\07\S719A.PRG