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

MS Visual FoxPro App | 1996-01-21 | 21KB | 402 lines

Ten zapis moF
na tylko ogl
form.app
       WORK
 5123TYP
      FORM
     APP
  FF
form.app
DZIEN
KATEG
KOLUMNA
CLEARRIB
MiesiF
c jest zablokowany
 KsiF
edycja.prg
obejrz.prg
Nie ma F
adnych zapis
A=IIF(poprawka,'A',' ')+IIF(blokada,'*',' ')+_typvat(typ):H='Typ', d=day(data) :2:H='Dz',firma:15:H = 'Nazwa firmy',
prz=ptowar+pinne :17:H ='Przychody':P='99,999,999,999.99', zak=wzakup+wkoszty :17:H = 'Zakupy':P='99,999,999,999.99',
wyd=wpodatek+wprzerob+wreklama+wwyplata+wnatura+winne+wsprzet :17:H='Wydatki':P='99,999,999,999.99'
kiedy
A=IIF(poprawka,'A',' ')+IIF(blokada,'*',' ')+_typvat(typ):H='Typ',firma:15 :H = ' Nazwa firmy',d=day(data) :2:H='Dz',
prz=ptowar+pinne:17: H = 'Przychody':P='99,999,999,999.99', zak=wzakup+wkoszty:17:H = 'Zakupy':P='99,999,999,999.99',
wyd=wpodatek+wprzerob+wreklama+wwyplata+wnatura+winne+wsprzet:17:H='Wydatki':P='99,999,999,999.99'
firma
 KsiF
kaszapis
obejrz.prg
Nie ma F
adnych zapis
A=IIF(poprawka,'A',' ')+IIF(blokada,'*',' ')+_typvat(typ):H='Typ', d=day(data) :2:H='Dz',firma:15:H = 'Nazwa firmy',
prz=ptowar+pinne :17:H ='Przychody':P='99,999,999,999.99', zak=wzakup+wkoszty :17:H = 'Zakupy':P='99,999,999,999.99',
wyd=wpodatek+wprzerob+wreklama+wwyplata+wnatura+winne+wsprzet :17:H='Wydatki':P='99,999,999,999.99'
kiedy
A=IIF(poprawka,'A',' ')+IIF(blokada,'*',' ')+_typvat(typ):H='Typ',firma:15 :H = ' Nazwa firmy',d=day(data):2:H='Dz',
prz=ptowar+pinne:17: H = 'Przychody':P='99,999,999,999.99', zak=wzakup+wkoszty:17:H = 'Zakupy':P='99,999,999,999.99',
wyd=wpodatek+wprzerob+wreklama+wwyplata+wnatura+winne+wsprzet:17:H='Wydatki':P='99,999,999,999.99'
firma
_ksiegadruk
 KsiF
prz=ptowar+pinne:H = 'Przychody':P='99,999,999,999.99', zak=wzakup+wkoszty:H = 'Zakupy':P='99,999,999,999.99',
wyd=wpodatek+wprzerob+wreklama+wwyplata+wnatura+winne+wsprzet:H='Wydatki':P='99,999,999,999.99'
nowyzap.prg
edycja.prg
obejrz.prg
kaszapis
blokzapis
anuluj
ptowar+pinne, wzakup+wkoszty, wpodatek+wprzerob+wreklama+wwyplata+wnatura+winne+wsprzet
A=IIF(poprawka,'A',' ')+IIF(blokada,'*',' ')+_typvat(typ):H='Typ':P='XXX',D=day(data):2:P='99':H='Dz',firma:15:H = 'Nazwa firmy',
kiedy
A=IIF(poprawka,'A',' ')+IIF(blokada,'*',' ')+_typvat(typ):H='Typ':P='XXX',firma:15 :H = ' Nazwa firmy',D=day(data):2:P='99':H='Dz',
firma
bVRIBBON
YGEPL
LISTRIBB
MYDRUK
.PRPOLA
bMIESIACE
PMBLOKADA
NOWYZAP
STARTLIS
AMAINPATH
RNAME
KE.FXKU
JXWYDRUKI
NAZWA
IS.LISTA
_KSIEGADRU
 Nie masz uprawnieF
 do anulowania i odtwarzania
bVMYID
YGEBOSS
TRIBB
POPRAWKA
RAWKA
Nie masz uprawnieF
 do blokowania/odblokowywania
YGEBLOKADA
Zapisu tego typu nie moF
na usun
ewzvf
ewsvf
ewzvr
ewsvr
ewsvfk
ewzvfk
ewsvrk
ewzvrk
bVAREA
YGEISWYPOS
bTAKNIE
MYTYP
USUNEWID
AUSUNWYPOS
bVTAKNIE
YGEEWWYPOS
IDKSIEGI
idksiegi
idksiegi
idksiegi
idksiegi
PowiF
zane zapisy w ewidencji odksi
gowano
bVAL2
YGEMYID
SIEGI
TAKNIE
RIDKSIEGI
bZAKSIEG
pdwzorn
pdwzor
bVNUMER
YGEREC
MIESIACE
RFULLYEAR
bROKNR
PMIESIAC
MIESNR
NUMCIAG
AWORK
NUMPOCZ
MAINPATH
XNAME
_TYPVAT
ANULUJ
BLOKZAPIS
KASZAPIS
USUNWYPOS
USUNEWID
_KSIEGADRU
form.app
exactz
_lowzorzec
_lolistabr
_lowzorzec
TYTUL
    DLWZORCA
MYILOSC
ALIAS
+TOMENTER
TTOMPODGLADINFO
CZYBLOK
POMOC
POLA1
INDEX1
POLA2
INDEX2
POLA3
INDEX3
POLA4
INDEX4
POLA5
INDEX5
IK1NUMER
IOPEN
EXACT
ZAREA
ARILE
ILOWIERSZE
WOL_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
TFCOL
GLADTCOL
TOMENTER
CZYBLOK
BLOKADA
MYILOSC
PROPRZEGLATOMPODGLADSETRIB
POMOC
NUMER
PROWYKAZ
POLA1
INDEX1
POLA2
    INDEX2
ZECPOLA3
INDEX3
INDEX4
+POLA5
TINDEX5
LADMYILOSC
SET ORDER TO &kolejnosc
_olistast
BROWSE NOWAIT WINDOW _olistast     IN WINDOW _lolistabr TITLE "Dane" COLOR SCHEM 10     FIELDS &pola
{INS}
KOLEJNOSC
_OLISTAST
    TROW
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
CURSORz
errors
 WciF
nij dowolny klawisz ...
ECodeF
SET CURSOR &curstat
ECODE1
ECODE2
ECODE3
OLDALIAS
ILOSC
CURSTAT
WSYSPATH
CERRWIN
ERRORS
ERRCODE
MESSAGE
..\ZAPIS\EDYCJA.PRG
C:\KSIEGA\SYSTEM\
..\ZAPIS\NOWYZAP.PRG
..\ZAPIS\ZAPIS.PRG
..\ZAPIS\OBEJRZ.PRG
..\COMMON\STARTLIS.PRG
..\COMMON\LISTA.PRG
..\COMMON\CLEARRIB.PRG
..\COMMON\TAKNIE.PRG
..\COMMON\SETRIB.PRG
..\COMMON\NOTICE.PRG
..\COMMON\FULLYEAR.PRG
EDYCJA.FXP
NOWYZAP.FXP
ZAPIS.FXP
OBEJRZ.FXP
STARTLIS.FXP
LISTA.FXP
CLEARRIB.FXP
TAKNIE.FXP
SETRIB.FXP
NOTICE.FXP
FULLYEAR.FXP