Chip 1999 June/Chip_1999-06_cd.bin/tema/SoWa/OBEC.EXE/06/MOD618B4.FXP

MS Visual FoxPro App | 1998-04-01 | 8KB | 204 lines

 kontPREHLED
us_akt
mod618b4
Seznam
RIIS 6.9
v1_usek
nazev_usek
nazev_usek
Autor
autor
autor
Aktual
aktual
aktual
Dat. akt.
tran(dat_akt,'@E')
dat_akt
POLEX
kontPROCX
 =RTOP
op   RBOT
bot  CLEFT
leftCRIGHT
rigFREEZE
FreORDER
f2 DOL
f3 = LEVA
 = .tPRAVA
NADPIS
f7ZAHL
f8 =JMENO
 = .HODN
ey= 'SOUC
f10 TITLE
nterTITLECOLORPOC0
m='Zm
procx =F2
d618b4'F3
mecek =F4
nazevtF6
znamE
F0PRG
F1PRG
EF4_JM
F4PRG
TISKPRG
F7_JM
5F7PRG
F9PRG
F9KEY
F9KEY1
FF10_JM
F10PRG
RAMECEK
NAZEVT
KLICO
KLNAZ
SPACEBAR
ETR_HL1
TR_HL2
TR_HL3
TR_HL4
FTR_HL5
TR_HL6
TR_HL7
TR_HL8
DTR_HL9
DET_JM
ENTER
DETAIL
DETPRG
PS_LINE
PS_RETURN
PS_ZAZN
KONEC
KONTR
V1_USEK
e*USEK
-----I
----MOD_PSV
RIIS 6.9
set color to b/w
set color to w+/bg
set color to b/bg,w+/rb
&barvau
MOD_SYS
ntANSI
 =OBRAZ
p   W_USEK
t  USEK
leftW_NAZEV
igNAZEV_USEKW_AUTOR
fAUTOR
f2 W_AKTUAL
 AKTUAL
 .tW_DATUM
DAT_AKT
f7NOVY_Z
8 =MM_AUTOR
.ZMENA
'KONTR
f10 HOR
nterDOL
ECOLORPOCET
m='Zm
nBARVAS
x =BARVAZ
b4'BARVAU
k =BARVA
zevtMENU
PORADI
KONEC
SKPRG
5ZMENY
PS_RETURN
NEXIT
 Aktualizace
&barvaz
sek       :
seku:
Autor      :
Aktual.:
Datum akt.:
@!XXXX
W_USEK
ntW_NAZEV
 =W_AUTOR
  W_AKTUAL
 W_DATUM
@ 14,22 &vloz w_usek pict '@!XXXX'
 Nelze zadat stejn
sek!
@ 16,22 &vloz w_nazev
if vloz='&vloz' and updated()
NAZEV
 =ZAZNAM
  P_USEK
 W_USEK
ftUSEK
igAAA
SEKTXT
fHLASKA
 ZMENA
 .tW_DATUM
W_AKTUAL
7MM_AUTOR
do proc&y
do zmen&y with 'get'
do zmen&y with 'say'
it pr
ci beze zm
n? (a/N)
KONEC
NAZEV
igHOR
 .tNOVY_Z
ZMENA
7W_USEK
=USEK
.W_NAZEV
'NAZEV_USEKW_AUTOR
erAUTOR
OLORW_AKTUAL
dAKTUAL
nW_DATUM
 =DAT_AKT
4'PROC1
zevtKONTR
MM_AUTOR
KPOCET
            -
                - ^PgDn
                - ^Home
      - ^End,Esc
Pohyb
znamu
znamu
Konec
colora
set color to &color
ntCOLOR
 =OBR
sek mus
t vypln
KONTR
ntW_USEK
 =TXT
  HLASKA
igPREHLED
US_AKT
PORADI
PROC1
 n/w,
ZMEN1
ZMENY
*****e
******X
HLASKA
KONTR
re pr
Z:\RIIS\
MOD618B4.FXP
Z:\RIIS\MOD618B4.PRG