PC World Komputer 1996 May/PCW596.iso/polskie/insert/rachmist/system.arj/OPIS.APP

MS Visual FoxPro App | 1996-01-21 | 18KB | 333 lines

opisy
opisy
opis.spr
 Opisy zdarzeF
 gospodarczych
opisy
opisy
opis.spr with 1, m.nr
opis.spr with 2, m.nr
Nie ma F
adnych opis
nazwa:H='Tre'+pl[16]+pl[11]+' opisu'
nazwa
 Opisy zdarzeF
 gospodarczych
opisy
opisy
kasujopis
opis.spr with 2, m.nr
Nie ma F
adnych zapis
nazwa:H='Tre'+pl[16]+pl[11]+' opisu'
nazwa
 Opisy zdarzeF
 gospodarczych
opisy
opisy
opis.spr with 0, m.nr
opis.spr with 1, m.nr
opis.spr with 2, m.nr
kasujopis
nazwa:H='Tre'+pl[16]+pl[11]+' opisu'
nazwa
IOPEN
RIBBON
MAINPATH
OPISY
STARTLIS
LISTA
CLEARRIB
TAKNIE
KASUJOPIS
_curobj=objnum(m.exiterr)
_curobj=objnum(m.exitok)
TALKz
COMPATIBLEz
_qz90oj1k7
 Opis zdarzenia
_qz90oj1k7
@K XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
@*HT Zapisz
@*HT Zaniechaj
_qz90oj1k7
RIBBON
CURRAREA
TALKSTAT
COMPSTAT
_QZ90OJ1K7NAZWA
J1K7EXITOK
_QZ90OJ1TOEXITERR
opisy
NUMER
_QZ90OJ1TO
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
MYILOSC
ALIAS
TOMPLUS
TOMENTER
TOMDRUK
TOMPODGLADTOMMINUS
TOMBLOKUJ
TOMANULUJ
POMOC
SUMGDZIE
SUMILE
SUMWYR
POLA1
INDEX1
POLA2
INDEX2
POLA3
INDEX3
POLA4
INDEX4
POLA5
INDEX5
NUMER
IOPEN
EXACT
_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
MYSZC
SUMILE
DLWZORCA
DGLADTROW
TOMENTER
TOMBLOKUJ
BLOKUJ
BLOKADA
REFRSUMY
SETRIB
POMOC
_LOWZORZECTOMMINUS
BLOKUJ
TOMPLUS
BLOKUJ
MYILOSC
ECPRZEGLAD
TOMDRUK
TOMANULUJ
TOMPODGLAD
NUMER
WYKAZ
POLA1
INDEX1
POLA2
INDEX2
POLA3
INDEX3
INDEX4
POLA5
INDEX5
MYILOSC
SET ORDER TO &kolejnosc
BROWSE NOWAIT WINDOW _dlabrow     IN WINDOW _olistabr TITLE "Dane" COLOR SCHEM 10     FIELDS &pola
{INS}
KOLEJNOSC
_DLABROW
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
TOMANULUJ
_LOSUMY
SUMGDZIE
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
WaitWin
Za chwilF
 dalszy ci
g programu.
DrukujF
CierpliwoF
ci. Mo
e to potrwa
ugo...
ONOFF
KOMUNIK
WAITWIN
CURSORz
errors
 WciF
nij dowolny klawisz ...
ECodeF
SET CURSOR &curstat
ECODE1
ECODE2
ECODE3
OLDALIAS
ILOSC
CURSTAT
SYSPATH
ERRWIN
ERRORS
ERRCODE
MESSAGE
..\OPIS\OPIS.PRG
C:\KSIEGA\SYSTEM\
..\OPIS\OPIS.SPR
..\COMMON\STARTLIS.PRG
..\COMMON\LISTA.PRG
..\COMMON\CLEARRIB.PRG
..\COMMON\TAKNIE.PRG
..\COMMON\SETRIB.PRG
..\COMMON\CZEKAJ.PRG
..\COMMON\NOTICE.PRG
OPIS.FXP
OPIS.SPX
STARTLIS.FXP
LISTA.FXP
CLEARRIB.FXP
TAKNIE.FXP
SETRIB.FXP
CZEKAJ.FXP
NOTICE.FXP