home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1996 May
/
PCW596.iso
/
polskie
/
insert
/
rachmist
/
system.arj
/
EWREMAN.APP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1996-01-21
|
41KB
|
741 lines
Remanent
ewreman
ewreman.spr with 1
ewreman.spr with 2
Nie ma F
adnych zapis
w remenentu
nazwa:12 :H = 'Nazwa towaru',kodtow:14:H=' Kod towaru ',jm:3:H=' Jm ',ilosc:9:H=' Ilo'+pl[16]+pl[11]+' ',cena:H= ' Cena jedn. ':P='99,999,999,999.99', w=cena*ilosc:H = 'Warto'+pl[16]+pl[11]+' ':P='99,999,999,999.99'
nazwa
kodtow:14:H=' Kod towaru ',nazwa:12 :H = 'Nazwa towaru',jm:3:H=' Jm ',ilosc:9:H=' Ilo'+pl[16]+pl[11]+' ',cena:H= ' Cena jedn. ':P='99,999,999,999.99', w=cena*ilosc:H = 'Warto'+pl[16]+pl[11]+' ':P='99,999,999,999.99'
kodtow
Remanent
ewreman
pozycja
ewreman.spr with 2
Nie ma F
adnych zapis
w remanentu
nazwa:12 :H = 'Nazwa towaru',kodtow:14:H=' Kod towaru ',jm:3:H=' Jm ',ilosc:9:H=' Ilo'+pl[16]+pl[11]+' ',cena:H= ' Cena jedn. ':P='99,999,999,999.99', w=cena*ilosc:H = 'Warto'+pl[16]+pl[11]+' ':P='99,999,999,999.99'
nazwa
kodtow:14:H=' Kod towaru ',nazwa:12 :H = 'Nazwa towaru',jm:3:H=' Jm ',ilosc:9:H=' Ilo'+pl[16]+pl[11]+' ',cena:H= ' Cena jedn. ':P='99,999,999,999.99', w=cena*ilosc:H = 'Warto'+pl[16]+pl[11]+' ':P='99,999,999,999.99'
kodtow
Remanent
ewreman
wpisuj
ewreman.spr with 1
druk.app with m.mainpath+m.podm+m.ewreman, 'ewreman'
ewreman.spr with 2
pozycja
cena*ilosc
nazwa:12 :H = 'Nazwa towaru',kodtow:14:H=' Kod towaru ',jm:3:H=' Jm ',ilosc:9:H=' Ilo'+pl[16]+pl[11]+' ',cena:H= ' Cena jedn. ':P='99,999,999,999.99', w=cena*ilosc:H = 'Warto'+pl[16]+pl[11]+' ':P='99,999,999,999.99'
nazwa
kodtow:14:H=' Kod towaru ',nazwa:12 :H = 'Nazwa towaru',jm:3:H=' Jm ',ilosc:9:H=' Ilo'+pl[16]+pl[11]+' ',cena:H= ' Cena jedn. ':P='99,999,999,999.99', w=cena*ilosc:H = 'Warto'+pl[16]+pl[11]+' ':P='99,999,999,999.99'
kodtow
druk.app
ewreman
RIBBON
podmioWPISUJ
STARTLIS
MAINPATH
%EWREMAN
LISTA
RDRUK
#KSREMAN
ODKSREMAN
COPYREM
CLEARRIB
MIESIACE
KREMAN
FNOTICE
TAKNIE
doksiegi.spr
FMIESIACE
KREMAN
mioNOTICE
EWREMAN
ILOSC
%DOKSIEGI
Zapis jest zablokowany
MIESIACE
FKREMAN
NOTICE
mioWORK
BLOKADA
9912rem.dbf
12rem.dbf
rem.dbf
ewreman
scalrem.prg
info.spr
Skopiowano F
pozycji
TEKST
NAZWA
mioMYMIES
EWREMAN
MIESNR
ROKNR
%TWODIG
MAINPATH
RPODM
TYMCZ
#OLDREM
ILOSC
KODTOW
SCALREM
NOTICE
ewreman.spr
MIESIACE
FKREMAN
NOTICE
mioEWREMAN
POZYCJA
KSREMAN
ODKSREMAN
COPYREM
WPISUJ
_curobj=objnum(m.exitok)
_curobj=objnum(m.exiterr)
ewreman
TALKz
COMPATIBLEz
m.nazwa
m.kodtow
m.ilosc
m.cena
m.exitok
m.exiterr
m.exitfin
_qz90os3mx
Remanent
_qz90os3mx
Jednostka miary:
Cena:
WartoF
Nazwa :
Kod towaru :
@K 99,999,999,999.99
@K 99,999,999,999.99
99,999,999,999.99
@*HN Zapisz i kontunuuj
@*HT Zaniechaj
@*HN Zapisz i zakoF
_qz90os3mx
DALEJ
IOPEN
WARTOSC
RIBBON
MIESIACE
KREMAN
NOTICE
MAINPATH
EWREMAN
ILOSC
CURRAREA
TALKSTAT
COMPSTAT
__OBJS
__NUMOBJ
_QZ90OS3MXNAZWA
S3MXKODTOW
_QZ90OS496_QZ90OS4COEXITOK
_QZ90OS4HEEXITERR
_QZ90OS4LTEXITFIN
_QZ90OS4QZ_QZ90OS4UZ_QZ90OS4V2#
WARTOSC
ILOSC
m.cena
SETRIB
RIBBON
ILOSC
m.ilosc
m.exitok
SETRIB
RIBBON
Pozycja zerowa
ewreman
WARTOSC
ILOSC
DALEJ
Pozycja zerowa
ewreman
WARTOSC
ILOSC
DALEJ
EXITERR
DALEJ
EXITFIN
_QZ90OS3MX
99,999,999,999.99
CURRWIND
_QZ90OS3MXWARTOSC
_QZ90OS496
_QZ90OS4CO
_QZ90OS4HE
_QZ90OS4LT
_QZ90OS4QZ
_QZ90OS4UZ
_QZ90OS4V2
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
Dane ksiF
gowania remenentu
_curobj=objnum(m.exitok)
_curobj=objnum(m.exiterr)
TALKz
COMPATIBLEz
_qz90os70q
_qz90os70q
Data ksiF
gowania:
WartoF
:
Kategoria :
Opis :
Uwagi :
99,999,999,999.99
@KL 99
@!TK XXXXXXXXXX
@K XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
@*HN KsiF
@*HT Zaniechaj
_qz90os70q
WARTOSC
wyRIBBON
DZIEN
UWAGI
TYTUL
CZEKAJ
wySCALREM
(CURRAREA
oTALKSTAT
COMPSTAT
_QZ90OS70QFULLYEAR
QROKNR
miasTWODIG
ktuMIESNR
InsACT
- te_QZ90OS7HC_QZ90OS7LC_QZ90OS7O5_QZ90OS7RB_QZ90OS7UBEXITOK
h p_QZ90OS7Z6_QZ90OS81UEXITERR
yk_QZ90OS86X_QZ90OS8A1
Musisz podaF
a data
DZIEN
MAXDAY
MIESNR
do wpiskat.prg
do dodkat.prg
do wpisopis.prg
do dodopis.prg
Musisz podaF
a data
Remanent
DZIEN
MAXDAY
MIESNR
FIRMA
WZAKUP
KATEG
UWAGI
wyPOPRAWKA
(BLOKADA
oIDENT
D2DATA
ROKNR
S70QWARTOSC
miasMIESIACE
uKREMAN
sNOTICE
_QZ90OS70Q
99,999,999,999.99
CURRWIND
y_QZ90OS70QWARTOSC
_QZ90OS7HC
_QZ90OS7LC
_QZ90OS7O5
_QZ90OS7RB
_QZ90OS7UB
_QZ90OS7Z6
_QZ90OS81U
_QZ90OS86X
_QZ90OS8A1
ewreman
QUERY
query&
EWREMAN
NAZWA
KODTOW
ILOSC
QUERY
cursorz
_curobj = objnum( &getname )
show get &getname
&KeyEsc
_curobj = objnum(&nextobj)
&KeyF10
_curobj = objnum(&prevobj)
pointz
@y0,x0 say guma color &GetColor
@y0,x0 say NewLook(PrzedKropka, ZaKropka) color &GetColor
@y0,x0 say guma color &GetColor
@y0,x0 say NewLook(PrzedKropka, ZaKropka) color &GetColor
set cursor &Kursor
BEFOREPOINSTARTVALUEWITHMINUS
WITHULAMEKCOLORSCHEMPREVOBJ
NEXTOBJ
__OBJS
BEFPOINTOLKEYESC
KEYF10
KURSOR
SELECTCOLOGETCOLOR
MFIRSTSHOT
MOUSEQUIT
FULLWIDTH
ZAKROPKA
KJESTKROPKAPRZEDKROPKMINUS
ALUEOLDPK
ALUEOLDMINUS
KOLDZK
NEWLOOK
KONIEC
UPDATEFULLMOUSEX
MOUSEY
LLWIDTH
__NUMOBJ
GETNAME
ROPKA
999,999,999,999c
pointz
PRZED
WORKSTR
INUPDATEFULLMINUS
JESTKROPKAFULLWIDTH
MINUS
BEFOREPOINBEFPOINTOLWITHMINUS
NEWLOOK
UPDATEFULL
@ srows()-1, 0 say replicate(" ", scols()-1 ) COLOR &col
RIBBON
cjaWIND
IEGA\COL
N\CLEASETRIB
CLEARRIB
CURSORz
errors
WciF
nij dowolny klawisz ...
ECodeF
SET CURSOR &curstat
ECODE1
ECODE2
ECODE3
OLDALIAS
ILOSC
CURSTAT
SYSPATH
ERRWIN
ERRORS
ERRCODE
MESSAGE
m.xloc = m.xloc
errors
\<Nie
\<Tak
ECODE1
DEFAULTANSY0
OLDALIAS
SYSPATH
SERRWIN
ERRCODE
ERRORS
MESSAGE
@L 99c
@ 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
MONTH
ROKNR
MIESNR
lacjaAREA
IEGA\RETVAL
DENIDENT
MIESIAC
DZIEN
FULLYEAR
exactz
LISTAZW
_olistazw
_owzorzec
TYTUL
DLWZORCA
ILOSC
TOMPODGLADZWROT
POMOC
POLA1
INDEX1
POLA2
INDEX2
POLA3
INDEX3
POLA4
INDEX4
POLA5
INDEX5
MYQUIT
NUMER
IOPEN
EXACT
WZWIERSZE
LISTAZW
_OLISTAZW
_OWZORZEC
SETRIB
WYBPRZEGLAWYBPRO
CLEARRIB
{DNARROW}
{UPARROW}
{TAB}
Koniec danych
PoczF
tek danych
Koniec danych
PoczF
tek danych
SCATTER FIELDS &coret MEMVAR
DO &tompodglad
CORET
STRING
LOKATA
MYSZR
MYSZC
DBLTIME
MYQUIT
CHANGED
DGLAD_OWZORZEC
DLWZORCA
WZWIERSZE
ILOSC
WYBPRZEGLATOMPODGLADSETRIB
POMOC
NUMER
WYBWYKAZ
POLA1
INDEX1
POLA2
INDEX2
POLA3
INDEX3
INDEX4
DPOLA5
INDEX5
ILOSC
SET ORDER TO &kolejnosc
_olbrow
BROWSE NOWAIT WINDOW _olbrow IN WINDOW _olistazw TITLE "Wybierz" COLOR SCHEM 10 FIELDS &pola
_olistazw
{INS}
KOLEJNOSC
_OLBROW
WZWIERSZE
WYBPRO
WYBPRZEGLA
WYBWYKAZ
TALKz
COMPATIBLEz
_qz90osbij
_qz90osbij
@*HT OK
Operacja zakoF
czona.
_qz90osbij
CURRAREA
TALKSTAT
COMPSTAT
_QZ90OSBIJEXITOK
kateg
kateg
kateg
Brak kategorii
kateg:H = 'Kategoria', opiskat:H='Opis'
kateg
RIBBON
KATEG
WYBIERZ
MAINPATH
kat.app
RIBBON
KATEG
Opisy zdarzeF
opisy
nazwa
Brak opisF
nazwa:R:70 :H = 'Nazwa zdarzenia'
nazwa
RIBBON
NAZWA
WYBIERZ
MAINPATH
opis.app
RIBBON
NAZWA
..\EWREMAN\EWREMAN.PRG
C:\KSIEGA\SYSTEM\
..\EWREMAN\EWREMAN.SPR
..\COMMON\STARTLIS.PRG
..\COMMON\LISTA.PRG
..\EWREMAN\DOKSIEGI.SPR
..\COMMON\SCALREM.PRG
..\COMMON\GF.PRG
..\COMMON\CLEARRIB.PRG
..\COMMON\NOTICE.PRG
..\COMMON\TAKNIE.PRG
..\COMMON\TWODIG.PRG
..\COMMON\SETRIB.PRG
..\COMMON\CZEKAJ.PRG
..\COMMON\MAXDAY.PRG
..\COMMON\IDENT.PRG
..\COMMON\D2DATA.PRG
..\COMMON\WYBIERZ.PRG
..\IMPORT\INFO.SPR
..\COMMON\WPISKAT.PRG
..\COMMON\DODKAT.PRG
..\COMMON\WPISOPIS.PRG
..\COMMON\DODOPIS.PRG
..\COMMON\FULLYEAR.PRG
EWREMAN.FXP
EWREMAN.SPX
STARTLIS.FXP
LISTA.FXP
DOKSIEGI.SPX
SCALREM.FXP
GF.FXP
CLEARRIB.FXP
NOTICE.FXP
TAKNIE.FXP
TWODIG.FXP
SETRIB.FXP
CZEKAJ.FXP
MAXDAY.FXP
IDENT.FXP
D2DATA.FXP
WYBIERZ.FXP
INFO.SPX
WPISKAT.FXP
DODKAT.FXP
WPISOPIS.FXP
DODOPIS.FXP
FULLYEAR.FXP