home *** CD-ROM | disk | FTP | other *** search
MS Visual FoxPro App | 1996-01-21 | 20.8 KB | 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
-