home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1996 May
/
PCW596.iso
/
polskie
/
insert
/
rachmist
/
system.arj
/
KAT.APP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1996-01-21
|
17KB
|
322 lines
kateg
kateg
kat.spr
Kategorie
kateg
kateg
kat.spr with 1
kat.spr with 2
Nie ma F
adnych kategorii
kateg:H='Kategoria', opiskat:H='Opis'
kateg
Kategorie
kateg
kateg
kasujkat
kat.spr with 2
Nie ma F
adnych kategorii
kateg:H='Kategoria', opiskat:H='Opis'
kateg
Kategorie
kateg
kateg
kat.spr with 0
kat.spr with 1
kat.spr with 2
kasujkat
kateg:H='Kategoria', opiskat:H='Opis'
kateg
IOPEN
RIBBON
MAINPATH
KATEG
STARTLIS
LISTA
CLEARRIB
TAKNIE
KASUJKAT
TALKz
COMPATIBLEz
_qz90ohziu
Kategoria
_curobj=objnum(m.exiterr)
_curobj=objnum(m.exitok)
kateg
_qz90ohziu
Nazwa:
Opis :
@!TK XXXXXXXXXX
@K XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
@*HN Zapisz
@*HT Zaniechaj
_qz90ohziu
TAG
02 RIBBON
585CURRAREA
NTALKSTAT
GCOMPSTAT
_QZ90OHZIUESC
F10
KATEG
_QZ90OHZVCOPISKAT
EXITOK
_QZ90OI01UEXITERR
Kategoria juF
istnieje!
RETVAL
ACT
585KATEG
Kategoria juF
istnieje!
kateg
RETVAL
ACT
585KATEG
G_QZ90OHZVC
_QZ90OI01U
exactz
_lowzorzec
_lolistabr
_lowzorzec
TYTUL
DLWZORCA
MYILOSC
ALIAS
TOMENTER
TOMPODGLADINFO
CZYBLOK
POMOC
POLA1
INDEX1
POLA2
INDEX2
POLA3
INDEX3
POLA4
INDEX4
POLA5
INDEX5
NUMER
IOPEN
EXACT
WIERSZE
_LOWZORZEC_LOLISTABRSETRIB
ZECPROPRZEGLASTARTPRO
CLEARRIB
{DNARROW}
{UPARROW}
{TAB}
Koniec danych
PoczF
tek danych
Koniec danych
PoczF
tek danych
Zapis jest zablokowany
DO &tomenter
DO &tompodglad
STRING
MYQUIT
WIERSZE
_LOWZORZECDLWZORCA
LOKATA
MYSZR
MYSZC
GLADTCOL
TOMENTER
CZYBLOK
BLOKADA
MYILOSC
PROPRZEGLATOMPODGLADSETRIB
POMOC
NUMER
PROWYKAZ
POLA1
INDEX1
POLA2
INDEX2
ZECPOLA3
INDEX3
INDEX4
POLA5
INDEX5
LADMYILOSC
SET ORDER TO &kolejnosc
_olistast
BROWSE NOWAIT WINDOW _olistast IN WINDOW _lolistabr TITLE "Dane" COLOR SCHEM 10 FIELDS &pola
{INS}
KOLEJNOSC
_OLISTAST
ZECTCOL
STARTPRO
PROPRZEGLA
PROWYKAZ
exactz
Razem
_lowzorzec
_olistabr
_losumy
TYTUL
DLWZORCA
aMYILOSC
AALIAS
TOMPLUS
qTOMENTER
TOMDRUK
ATOMPODGLADTOMMINUS
ATOMBLOKUJ
TOMANULUJ
POMOC
SUMGDZIE
1SUMILE
SUMWYR
qPOLA1
INDEX1
1POLA2
INDEX2
LPOLA3
INDEX3
POLA4
\KSIINDEX4
EM\POLA5
EGA\INDEX5
TARNUMER
*IOPEN
EXACT
S.FXPL
_LOSUMY
_LOWZORZEC_OLISTABR
SETRIB
ZECREFRSUMY
PRZEGLAD
CLEARRIB
{DNARROW}
{UPARROW}
{TAB}
Koniec danych
PoczF
tek danych
Koniec danych
PoczF
tek danych
MiesiF
c jest zablokowany
Zapis jest zablokowany
Nie moF
esz poprawia
DO &tomenter
DO &tomenter
MiesiF
c jest zablokowany
Zapis jest zablokowany
Nie moF
esz usuwa
DO &tomminus
do &tomminus
MiesiF
c jest zablokowany
Nie moF
esz dodawa
DO &tomplus
do &tomplus
DO &tomdruk
DO &tomblokuj
DO &tomanuluj
DO &tompodglad
STRING
LOKATA
WIERSZE
MYQUIT
MYSZR
aMYSZC
SUMILE
ASUMY
qDLWZORCA
ATCOL
DGLADTROW
AFROW
TOMENTER
TOMBLOKUJ
BLOKUJ
BLOKADA
1REFRSUMY
SETRIB
LPOMOC
_LOWZORZECTOMMINUS
BLOKUJ
TOMPLUS
BLOKUJ
MYILOSC
ECPRZEGLAD
XTOMDRUK
TOMANULUJ
TOMPODGLAD
NUMER
WYKAZ
POLA1
INDEX1
POLA2
INDEX2
aPOLA3
INDEX3
AINDEX4
POLA5
qINDEX5
MYILOSC
SET ORDER TO &kolejnosc
BROWSE NOWAIT WINDOW _dlabrow IN WINDOW _olistabr TITLE "Dane" COLOR SCHEM 10 FIELDS &pola
{INS}
KOLEJNOSC
_DLABROW
aTCOL
SUM ALL &sumwyr TO ARRAY sumy FOR not poprawka and typ <> 50
SUM ALL &sumwyr TO ARRAY sumy
Razem
99,999,999,999.99
LEJNOSC
ILREC
SUMWYR
SUMILE
aTOMANULUJ
_LOSUMY
ASUMGDZIE
PRZEGLAD
WYKAZ
REFRSUMY
@ srows()-1, 0 say replicate(" ", scols()-1 ) COLOR &col
RIBBON
SETRIB
CLEARRIB
m.xloc = m.xloc
errors
\<Nie
\<Tak
ECODE1
DEFAULTANSY0
OLDALIAS
SYSPATH
SERRWIN
ERRCODE
ERRORS
MESSAGE
@ wrows()-1, 0 say padr(m.text, wcols()-1," " ) COLOR &col
RRORSWIND
ESSAGCOL
..\KAT\KAT.PRG
C:\KSIEGA\SYSTEM\
..\KAT\KAT.SPR
..\COMMON\STARTLIS.PRG
..\COMMON\LISTA.PRG
..\COMMON\CLEARRIB.PRG
..\COMMON\TAKNIE.PRG
..\COMMON\SETRIB.PRG
KAT.FXP
KAT.SPX
STARTLIS.FXP
LISTA.FXP
CLEARRIB.FXP
TAKNIE.FXP
SETRIB.FXP