PC World Komputer 1996 May

home *** CD-ROM | disk | FTP | other *** search

/ PC World Komputer 1996 May / PCW596.iso / polskie / insert / rachmist / system.arj / PEWLIST.APP (.txt) < prev next >

Wrap

MS Visual FoxPro App | 1996-01-21 | 40.8 KB | 550 lines

OBJTYPE OBJCODE HEIGHT WIDTH STYLE PICTURE ORDER UNIQUE COMMENT ENVIRON BOXCHAR FILLCHAR FLOAT STRETCH NOREPEAT RESETRPT PAGEBREAK RESETPAGE SWAPHEADER SWAPFOOTER EJECTBEFOR EJECTAFTER PLAIN SUMMARY ADDALIAS OFFSET TOPMARGIN BOTMARGIN TOTALTYPE RESETTOTAL 1 0 97132 F T FFFFF 0 0 0 21 9 1 20 9 4 3 9 7 2 8 0 16 22 1 1130 C FFF 0 0 0 5 0 18 17 2 1 1 F 5 0 19 17 16 1 1 F 8 0 20 8 63 1 3 21 N FFF 0 0 0 5 0 22 13 1 1 3 F 5 0 23 17 116 1 1 F 8 0 24 6 53 1 30 C FFF 0 0 0 5 0 27 8 55 1 7 F 8 0 28 20 5 1 15 C FFF 0 0 0 8 0 29 21 5 1 25 C FFF 0 0 0 8 0 31 20 31 1 17 34 33 N FFF 0 0 0 5 0 35 17 39 1 1 F 5 0 36 17 57 1 1 F 5 0 37 13 67 1 17 F 5 0 38 17 75 1 1 F 5 0 39 17 93 1 1 F 5 0 40 13 105 1 24 F 8 0 42 20 85 1 17 44 43 N FFF 0 0 0 8 0 45 20 49 1 17 47 46 N FFF 0 0 0 8 0 48 20 67 1 17 50 49 N FFF 0 0 0 5 0 51 6 51 1 1 F 7 7 12 0 1132 = F 7 7 16 0 1132 = F 7 7 18 0 1132 = F 7 7 23 0 1132 = F 7 7 13 0 11 1 | F 7 7 13 4 11 1 | F 7 7 13 30 11 1 | F 7 7 13 48 11 1 | F 7 7 13 66 11 1 | F 7 7 13 84 11 1 | F 7 7 13 102 11 1 | F 7 7 13 131 11 1 | F 8 0 52 0 1 1 80 C FFF 0 0 0 8 0 54 3 1 1 25 C FFF 0 0 0 8 0 57 1 1 1 50 C FFF 0 0 0 8 0 64 2 1 1 40 C FFF 0 0 0 8 0 68 20 1 1 3 69 N FFF 0 0 0 5 0 70 5 51 1 19 F 5 0 71 13 9 1 15 F 8 0 72 0 0 1 1 75 C FFF 0 0 0 5 0 85 13 54 1 6 F 5 0 86 14 52 1 9 F 5 0 87 15 52 1 9 F 5 0 88 13 35 1 7 F 5 0 89 14 35 1 6 F 5 0 90 13 88 1 10 F 18 91 92 T 93 1 0 8iif(licz<m.counter," ",REPLICATE(chr(m.total_sign),130)) _pageno + m.offset "Lp." =alltrim(get_mies(2,m.miesnr))+" "+alltrim(str(m.roknr))+" r." "Strona:" ALLTRIM(kursorek.imie1) ALLTRIM(kursorek.nazwisko) kursorek.brutto+kursorek.doplata "99,999,999,999.99" "Podatek dochodowy" "Data i podpis pracownika" kursorek.netto "99,999,999,999.99" kursorek.koszt "99,999,999,999.99" kursorek.zaliczka "99,999,999,999.99" dane_firmy(m.firmnr,'nazwa') Wiif(len(dane_firmy(m.firmnr,'telefon'))>0,"tel. " + dane_firmy(m.firmnr,'telefon'),' ') dane_firmy(m.firmnr,'adres') +iif(len(dane_firmy(m.firmnr,'nr_domu'))>0,", " + dane_firmy(m.firmnr,'nr_domu'),' ') +iif(len(dane_firmy(m.firmnr,'nr_lokalu'))>0,"/" + dane_firmy(m.firmnr,'nr_lokalu'),' ') odane_firmy(m.firmnr,'kod') + iif(len(dane_firmy(m.firmnr,'miasto'))>0," " + dane_firmy(m.firmnr,'miasto'),' ') "L I S T A P A C" i nazwisko" Aiif(p_paper=1 .and. _pageno>1 and predruk=.f., new_page(.t.)," ") 4Wywo anie funkcji new_page(.t.) (kt ra wtedy wy wietla komunikat "W kartk ..itd." oraz wysuwa stron tylko w sytuacji, gdy: - drukarka przyjmuje pojedy cze kartki - dana strona nie jest stron pierwsz aktualnego raportu - raport nie jest wykonywany w trybie predruk (czyli tylko do pami "Koszty" "uzyskania" "przychodu" "Warto "brutto" "Do wyp kursorek.imie1 m.beg_num OBJTYPE OBJCODE HEIGHT WIDTH STYLE PICTURE ORDER UNIQUE COMMENT ENVIRON BOXCHAR FILLCHAR FLOAT STRETCH NOREPEAT RESETRPT PAGEBREAK RESETPAGE SWAPHEADER SWAPFOOTER EJECTBEFOR EJECTAFTER PLAIN SUMMARY ADDALIAS OFFSET TOPMARGIN BOTMARGIN TOTALTYPE RESETTOTAL 1 0 97132 F T FFFFF 0 0 0 21 9 1 20 9 4 3 9 7 2 8 0 16 22 1 1130 C FFF 0 0 0 5 0 18 17 2 1 1 F 5 0 19 17 16 1 1 F 8 0 20 8 63 1 3 21 N FFF 0 0 0 7 4 12 0 12 5 F 7 4 16 0 3132 F 7 4 12 4 12 27 F 7 4 12 30 12 19 F 7 4 12 48 12 19 F 7 4 12 66 12 19 F 7 4 12 84 12 19 F 7 4 12 102 12 30 F 5 0 22 12 102 1 1 F 5 0 23 23 102 1 1 F 5 0 24 16 102 1 1 F 5 0 25 18 102 1 1 F 5 0 26 16 131 1 1 F 5 0 27 18 131 1 1 F 5 0 28 12 84 1 1 F 5 0 29 23 84 1 1 F 5 0 30 16 84 1 1 F 5 0 31 18 84 1 1 F 5 0 32 12 66 1 1 F 5 0 33 23 66 1 1 F 5 0 34 16 66 1 1 F 5 0 35 18 66 1 1 F 5 0 36 12 48 1 1 F 5 0 37 23 48 1 1 F 5 0 38 16 48 1 1 F 5 0 39 18 48 1 1 F 5 0 40 12 30 1 1 F 5 0 41 23 30 1 1 F 5 0 42 16 30 1 1 F 5 0 43 18 30 1 1 F 5 0 44 16 4 1 1 F 5 0 45 18 4 1 1 F 5 0 46 12 4 1 1 F 5 0 47 23 4 1 1 F 5 0 48 16 0 1 1 F 5 0 49 18 0 1 1 F 5 0 50 13 1 1 3 F 5 0 51 17 116 1 1 F 5 0 52 8 55 1 7 F 8 0 53 20 5 1 15 C FFF 0 0 0 8 0 54 21 5 1 25 C FFF 0 0 0 8 0 56 20 31 1 17 59 58 N FFF 0 0 0 5 0 60 17 39 1 1 F 5 0 61 17 57 1 1 F 5 0 62 13 67 1 17 F 5 0 63 17 75 1 1 F 5 0 64 17 93 1 1 F 5 0 65 13 105 1 24 F 8 0 67 20 85 1 17 69 68 N FFF 0 0 0 8 0 70 20 49 1 17 72 71 N FFF 0 0 0 8 0 73 20 67 1 17 75 74 N FFF 0 0 0 5 0 76 6 51 1 1 F 8 0 77 0 1 1 80 C FFF 0 0 0 8 0 79 3 1 1 25 C FFF 0 0 0 8 0 82 1 1 1 50 C FFF 0 0 0 8 0 89 2 1 1 40 C FFF 0 0 0 8 0 93 6 53 1 30 C FFF 0 0 0 8 0 96 20 1 1 3 97 N FFF 0 0 0 5 0 98 5 51 1 19 F 5 0 99 13 9 1 15 F 8 0 100 0 0 1 1 103 C FFF 0 0 0 5 0 113 13 35 1 8 F 5 0 114 14 35 1 6 F 5 0 115 13 54 1 7 F 5 0 116 14 53 1 9 F 5 0 117 15 53 1 9 F 5 0 118 13 88 1 10 F 10 1 5 36 18 119 120 T 121 1 0 8iif(licz<m.counter," ",REPLICATE(chr(m.total_sign),130)) _pageno + m.offset "Lp." "Strona:" ALLTRIM(kursorek.imie1) ALLTRIM(kursorek.nazwisko) kursorek.brutto+kursorek.doplata "99,999,999,999.99" "Podatek dochodowy" "Data i podpis pracownika" kursorek.netto "99,999,999,999.99" kursorek.koszt "99,999,999,999.99" kursorek.zaliczka "99,999,999,999.99" dane_firmy(m.firmnr,'nazwa') Wiif(len(dane_firmy(m.firmnr,'telefon'))>0,"tel. " + dane_firmy(m.firmnr,'telefon'),' ') dane_firmy(m.firmnr,'adres') +iif(len(dane_firmy(m.firmnr,'nr_domu'))>0,", " + dane_firmy(m.firmnr,'nr_domu'),' ') +iif(len(dane_firmy(m.firmnr,'nr_lokalu'))>0,"/" + dane_firmy(m.firmnr,'nr_lokalu'),' ') odane_firmy(m.firmnr,'kod') + iif(len(dane_firmy(m.firmnr,'miasto'))>0," " + dane_firmy(m.firmnr,'miasto'),' ') =alltrim(get_mies(2,m.miesnr))+" "+alltrim(str(m.roknr))+" r." "L I S T A P A C" i nazwisko" Aiif(p_paper=1 .and. _pageno>1 and predruk=.f., new_page(.t.)," ") 4Wywo anie funkcji new_page(.t.) (kt ra wtedy wy wietla komunikat "W kartk ..itd." oraz wysuwa stron tylko w sytuacji, gdy: - drukarka przyjmuje pojedy cze kartki - dana strona nie jest stron pierwsz aktualnego raportu - raport nie jest wykonywany w trybie predruk (czyli tylko do pami "Warto "brutto" "Koszty " "uzyskania" "przychodu" "Do wyp kursorek.imie1 m.beg_num kursorek PREDRUK dmiotyLICZNIK MODULY OFFSET podSKIP KURSOREK PRINTER_FEDIALOG NA_EKRAN PRINT_ERR P_PAPER &P_FF NEW_PAGE GETSTOP P_RESET pdwzorn pdwzor ewreman ewpprzej ewprach ewspvat ewspnaz ewzakvat ewzakdet katup ewsrtr RODZAJ PTOWAR_1 _PTOWAR1 PINNE_1 _PINNE1 MULTI1_1 WZAKUP_1 _WZAKUP1 WKOSZTY_1 _WKOSZTY1 WREKLAMA_1_WREKLAMA1E9 WWYPLATA_1_WWYPLATA1E10 WINNE_1 _WINNE1 MULTI_1 A1INNE_1 _INNE1 PINNE1 WPODATEK_1_WPODATEK1WPRZEROB_1_WPRZEROB1WNATURA_1 _WNATURA1 WSPRZET_1 _WSPRZET1 WARTOSC_1 ZUS_S_1 FUND_S_1 WYN_S_1 DIF_S_1 ZUS_K_1 FUND_K_1 WYN_K_1 NET22_1 VAT22_1 NET12_1 VAT12_1 NET7_1 VAT7_1 NET0_1 NETZW_1 PODATEK_1 BRUTTO_1 NETINW1_1 NETINW2_1 VATINW2_1 NETINW3_1 VATINW3_1 NETINNE1_1NETINNE2_1VATINNE2_1NETINNE3_1VATINNE3_1PRZYCHOD_1ZAKUPY_1 KOSZTY_1 WYDATKI_1 DOCHOD_1 KWOTAODP11RATAODP11 KWOTAODP21RATAODP21 kursorek bilans umowa dowolny ESCSTAT DIALOG KURSOREK IOPEN ALIASB DOWOLNY PRINT_ERR ESCON TAKNIE GETSTOP _mies ODMIANA NAZWA IOPEN _MIES SYSPATH podmioty podmioty m.nazwa=podmioty.&pole KTORY NAZWA OTWARTE PODMIOTY PODMPATH SYMBOL WaitWin errors errors komunikF ONOFF CZEKAC KOMUNIK1 KOMUNIK2 KOMUNIK3 MIOTY ILOSC IOPEN WOLNY WAITWIN ERRORS SYSPATH ERRCODE MESSAGE NA_EKRAN PYTANIE NA_EKRAN WYSUW DIALOG TAKNIE GETSTOP PRINTER_FE FAKTURY KORYGUJ RACHUNKI KORYGUJ FAKTURY VAT RACHUNKI UPROSZCZONE ERMES ERLIN ERLINNO ERDZIEN ERRHAND FEGETSTOP P32P028 P32P033 P32P038 P32P043 P32P046 P32P049 P32P052 FEP32P055 P32P058 P32P063 P32P068 P32P072 P32P077 P32P029 P32P034 P32P039 P32P059 P32P064 P32P069 P32P073 FEP32P078 P32P032 P32P037 P32P042 P32P045 P32P048 P32P051 P32P054 FEP32P057 P32P062 P32P067 P32P071 P32P076 P32P081 P32P086 P32P089 P32P094 P32P099 P32P090 P32P095 P32P100 P32P116 P32P120 P32P122 P32P028 P32P029 P32P033 P32P034 P32P038 P32P039 P32P043 FEP32P046 P32P049 P32P052 P32P055 P32P058 P32P059 P32P063 P32P064 P32P068 P32P069 P32P072 P32P073 P32P077 P32P078 P32P086 P32P089 P32P090 P32P094 P32P095 P32P099 P32P100 FEGETSTOP ESCOUT GET_MIES DANE_FIRMY DIALOG PRINTER_FE WYSUW NEW_PAGE PODTYTUL MY_ERRH SUM_85 SUM_86 SUM_88 SUM_107 SUM_108 SUM_128 SUM_DOCH SUM_DZIE m.xloc = m.xloc errors \<Nie \<Tak ECODE1 DEFAULTANSY0 OLDALIAS SYSPATH SERRWIN ERRCODE ERRORS MESSAGE errors komunikF QUEST KOMUNIK1 KOMUNIK2 KOMUNIK3 ILOSC IOPEN SYSPATH INFOTOM FOTOM ERRORS ERRCODE MESSAGE CZYTAK Brak dostepu do danych w sieci... UWAGA !!! Aby wykonaF operacj potrzeba wi cej pami ci operacyjnej. 80286 W tym celu naleF y zmieni komputer na 80386 (lub lepszy) z 4 MB pamiF W tym celu naleF y dokupi pamiF ci RAM lub inaczej skonfigurowa komupter. UWAGA !!! NastapiF d systemowy. Uruchom program ADMIN i wykonaj operacjF PIERWSZA POMOC li pomimo u ycia opcji PIERWSZA POMOC powtarza to skontaktuj siF z InsERT'em. Koniecznie TERAZ ZAPISZ: - operacje, ktF re wykonywa przed wyst pieniem awarii; - poniF sze 6 linii ekranu: 2. FF 4. FF ERMES ERLIN ERLINNO ERDZIEN PRINT_ERR NOTICE ERRWIN SYSPATH ER_LIN ER_NO ER_MES ER_LIN1 PR_NAME ER_DATE RACHVER CLEAR m.xloc = m.xloc errors \<Nie \<Tak ECODE1 DEFAULTANSY0 DZIEN OLDALIAS RXLOC SPATH SYSPATH SERRWIN ERRCODE ERRORS MESSAGE CURSORz errors WciF nij dowolny klawisz ... ECodeF SET CURSOR &curstat ECODE1 ORSECODE2 SAGECODE3 INOLDALIAS ILOSC LEARCURSTAT SYSPATH ERRWIN ERRORS ERRCODE MESSAGE LOCALENV7 ksiega.fky2 ksiega MY_QUIT MAINMENU KSIEGA C:\KSIEGA\DRUK\ ..\DRUK\WYDRUK.PRG C:\KSIEGA\SYSTEM\ ..\DRUK\SKIP.PRG ..\DRUK\DRUKUTIL.PRG ..\COMMON\TAKNIE.PRG ..\COMMON\PYTANIE.PRG ..\COMMON\ERRHAND.PRG ..\COMMON\CZYTAK.PRG ..\COMMON\NOTICE.PRG ..\COMMON\CLEAR.PRG DWLIST.FRX DWLIST.FRT NWLIST.FRX NWLIST.FRT WYDRUK.FXP SKIP.FXP DRUKUTIL.FXP TAKNIE.FXP PYTANIE.FXP ERRHAND.FXP CZYTAK.FXP NOTICE.FXP CLEAR.FXP