PC World Komputer 1996 May

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

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

Wrap

MS Visual FoxPro App | 1996-01-21 | 117KB | 1,008 lines

kursorek bilans umowa dowolny <ESCSTAT DIALOG KURSOREK FPLIK VIOPEN ALIASB fkyTAG2 @AREA siegaTAG1 DOWOLNY PRINT_ERR ESCON <TAKNIE GETSTOP _mies ODMIANA NAZWA FPLIK VIOPEN _MIES kySYSPATH podmioty podmioty m.nazwa=podmioty.&pole KTORY <POLE NAZWA FOTWARTE VPODMIOTY PODMPATH ySYMBOL WaitWin errors errors komunikF ONOFF <CZEKAC KOMUNIK1 KOMUNIK2 FKOMUNIK3 MIOTY yAREA @ILOSC gaIOPEN WOLNY WAITWIN ERRORS SYSPATH ERRCODE Y_MESSAGE NA_EKRAN <PYTANIE NA_EKRAN <P_FF WYSUW DIALOG TAKNIE FGETSTOP VDRUK PRINTER_FE FAKTURY KORYGUJ RACHUNKI KORYGUJ FAKTURY VAT RACHUNKI UPROSZCZONE <ERMES ERLIN FERLINNO VERDZIEN ERRHAND FEGETSTOP P32P028 <P32P033 P32P038 P32P043 FP32P046 VP32P049 P32P052 FEP32P055 @P32P058 gaP32P063 P32P068 P32P072 P32P077 P32P029 <P32P034 P32P039 P32P059 FP32P064 VP32P069 P32P073 FEP32P078 P32P032 <P32P037 P32P042 P32P045 FP32P048 VP32P051 P32P054 FEP32P057 @P32P062 gaP32P067 P32P071 P32P076 P32P081 P32P086 <P32P089 P32P094 P32P099 P32P090 <P32P095 P32P100 P32P116 <P32P120 P32P122 P32P028 <P32P029 P32P033 P32P034 FP32P038 VP32P039 P32P043 FEP32P046 @P32P049 gaP32P052 P32P055 P32P058 P32P059 P32P063 P32P064 Y_P32P068 INP32P069 EGP32P072 P32P073 P32P077 P32P078 P32P086 <P32P089 P32P090 P32P094 FP32P095 VP32P099 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 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 CURSORz errors WciF nij dowolny klawisz ... ECodeF SET CURSOR &curstat ECODE1 ECODE2 ECODE3 OLDALIAS ILOSC CURSTAT SYSPATH ERRWIN ERRORS ERRCODE MESSAGE LOCALENV7 ksiega.fky2 ksiega MY_QUIT MAINMENU KSIEGA errors komunikF QUEST KOMUNIK1 KOMUNIK2 KOMUNIK3 ILOSC IOPEN SYSPATH INFOTOM FOTOM ERRORS ERRCODE MESSAGE CZYTAK kursorek PREDRUK LICZNIK MODULY OFFSET KURSOREK PRINTER_FEDIALOG NA_EKRAN PRINT_ERR P_PAPER 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 m.xloc = m.xloc errors \<Nie \<Tak ECODE1 DEFAULTANSY0 OLDALIAS SYSPATH SERRWIN ERRCODE ERRORS MESSAGE 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 F 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 107 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 33 32 N FFF 0 0 0 5 0 34 17 39 1 1 F 5 0 35 17 55 1 1 F 5 0 36 17 73 1 1 F 5 0 37 17 88 1 1 F 8 0 38 20 67 1 13 40 39 N FFF 0 0 0 5 0 41 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 80 11 1 | F 7 7 13 98 11 1 | F 7 7 13 116 11 1 | F 8 0 42 0 1 1 80 C FFF 0 0 0 8 0 44 3 1 1 25 C FFF 0 0 0 8 0 47 1 1 1 50 C FFF 0 0 0 8 0 54 2 1 1 40 C FFF 0 0 0 8 0 58 20 1 1 3 59 N FFF 0 0 0 5 0 60 5 51 1 19 F 5 0 61 13 9 1 15 F 8 0 62 0 0 1 1 65 C FFF 0 0 0 5 0 75 13 71 1 6 F 5 0 76 14 69 1 9 F 5 0 77 15 69 1 9 F 5 0 78 13 32 1 13 F 5 0 79 14 32 1 6 F 5 0 80 14 39 1 8 F 5 0 81 15 32 1 8 F 5 0 82 13 52 1 8 F 5 0 83 14 50 1 12 F 8 0 84 20 49 1 17 86 85 N FFF 0 0 0 5 0 87 13 85 1 10 F 5 0 88 14 83 1 13 F 8 0 89 20 81 1 17 93 92 N FFF 0 0 0 5 0 94 13 100 1 15 F 8 0 95 20 99 1 17 98 97 N FFF 0 0 0 5 0 99 13 120 1 10 F 8 0 100 20 117 1 14 102 101 N FFF 0 0 0 5 0 103 17 124 1 1 F 7 7 13 131 11 1 | F 5 0 104 9 57 1 7 F 18 105 106 T 107 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 "99,999,999,999.99" kursorek.koszt "99,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" "Wynagrodzenie" "brutto" "(got "+natura)" aty " "opodatkowane" kursorek.doplata "99,999,999,999.99" "Doch d do " "opodatkowania" Around(kursorek.brutto+kursorek.doplata-kursorek.koszt,_parz_doch) "99,999,999,999.99" "Nale ny podatek" %kursorek.zaliczka+kursorek.odliczenie "99,999,999,999.99" "Odliczenia" kursorek.odliczenie "999,999,999.99" 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 F 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 8 0 19 8 63 1 3 20 N FFF 0 0 0 5 0 21 13 1 1 3 F 8 0 22 6 53 1 30 C FFF 0 0 0 5 0 25 8 55 1 7 F 5 0 26 13 101 1 24 F 8 0 28 20 59 1 17 30 29 N FFF 0 0 0 8 0 31 20 41 1 17 33 32 N FFF 0 0 0 5 0 34 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 22 11 1 | F 7 7 13 40 11 1 | F 7 7 13 58 11 1 | F 7 7 13 76 11 1 | F 7 7 13 94 11 1 | F 7 7 13 131 11 1 | F 8 0 35 0 1 1 80 C FFF 0 0 0 8 0 37 3 1 1 25 C FFF 0 0 0 8 0 40 1 1 1 50 C FFF 0 0 0 8 0 47 2 1 1 40 C FFF 0 0 0 8 0 51 20 1 1 3 52 N FFF 0 0 0 5 0 53 5 51 1 19 F 8 0 54 0 0 1 1 57 C FFF 0 0 0 5 0 67 13 78 1 10 F 8 0 68 20 23 1 17 71 70 N FFF 0 0 0 5 0 72 13 41 1 15 F 8 0 73 20 5 1 17 75 74 N FFF 0 0 0 5 0 76 13 8 1 11 F 5 0 77 14 5 1 17 F 5 0 78 13 25 1 13 F 5 0 79 14 24 1 16 F 5 0 80 13 62 1 7 F 5 0 81 14 59 1 15 F 8 0 82 20 77 1 17 84 83 N FFF 0 0 0 5 0 85 17 12 1 1 F 5 0 86 17 31 1 2 F 5 0 87 17 48 1 2 F 5 0 88 17 67 1 2 F 5 0 89 17 84 1 2 F 5 0 90 17 115 1 2 F 5 0 91 9 57 1 8 F 18 92 93 T 94 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:" "Data i podpis pracownika" kursorek.dolicz "99,999,999,999.99" kursorek.inneodl "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" 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 "Do wyp 2kursorek.brutto+kursorek.doplata-kursorek.zaliczka "99,999,999,999.99" "Inne odliczenia" kursorek.zaliczka "99,999,999,999.99" "Zaliczka na" "podatek dochodowy" "Wynagrodzenie" "po opodatkowaniu" "Dop "nieopodatkowane" kursorek.netto "99,999,999,999.99" 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 F 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 107 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 33 32 N FFF 0 0 0 5 0 34 17 39 1 1 F 5 0 35 17 55 1 1 F 5 0 36 17 73 1 1 F 5 0 37 17 88 1 1 F 8 0 38 20 67 1 13 40 39 N FFF 0 0 0 5 0 41 6 51 1 1 F 8 0 42 20 1 1 3 43 N FFF 0 0 0 5 0 44 5 51 1 19 F 5 0 45 13 9 1 15 F 8 0 46 0 0 1 1 49 C FFF 0 0 0 5 0 59 13 71 1 6 F 5 0 60 14 69 1 9 F 5 0 61 15 69 1 9 F 5 0 62 13 32 1 13 F 5 0 63 14 32 1 6 F 5 0 64 14 39 1 8 F 5 0 65 15 32 1 8 F 5 0 66 13 52 1 8 F 5 0 67 14 50 1 12 F 8 0 68 20 49 1 17 70 69 N FFF 0 0 0 5 0 71 13 85 1 10 F 5 0 72 14 83 1 13 F 8 0 73 20 81 1 17 77 76 N FFF 0 0 0 5 0 78 13 100 1 15 F 8 0 79 20 99 1 17 82 81 N FFF 0 0 0 5 0 83 13 120 1 10 F 8 0 84 20 117 1 14 86 85 N FFF 0 0 0 5 0 87 17 124 1 1 F 7 4 12 0 5132 F 7 4 12 0 12 5 F 7 4 18 0 6132 F 7 4 12 30 12 19 F 7 4 12 66 12 15 F 7 4 12 98 12 19 F 7 4 16 131 3 1 F 5 0 88 18 131 1 1 F 5 0 89 16 131 1 1 F 5 0 90 18 98 1 1 F 5 0 91 23 98 1 1 F 5 0 92 18 116 1 1 F 5 0 93 23 116 1 1 F 5 0 94 12 98 1 1 F 5 0 95 16 98 1 1 F 5 0 96 12 116 1 1 F 5 0 97 16 116 1 1 F 5 0 98 18 66 1 1 F 5 0 99 23 66 1 1 F 5 0 100 18 80 1 1 F 5 0 101 23 80 1 1 F 5 0 102 12 66 1 1 F 5 0 103 16 66 1 1 F 5 0 104 12 80 1 1 F 5 0 105 16 80 1 1 F 5 0 106 18 30 1 1 F 5 0 107 23 30 1 1 F 5 0 108 18 48 1 1 F 5 0 109 23 48 1 1 F 5 0 110 12 30 1 1 F 5 0 111 16 30 1 1 F 5 0 112 12 48 1 1 F 5 0 113 16 48 1 1 F 5 0 114 18 0 1 1 F 5 0 115 18 4 1 1 F 5 0 116 23 4 1 1 F 5 0 117 16 0 1 1 F 5 0 118 12 4 1 1 F 5 0 119 16 4 1 1 F 5 0 120 9 57 1 7 F 8 0 121 0 1 1 80 C FFF 0 0 0 8 0 123 3 1 1 25 C FFF 0 0 0 8 0 126 1 1 1 50 C FFF 0 0 0 8 0 133 2 1 1 40 C FFF 0 0 0 10 1 40 39 18 137 138 T 139 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 "99,999,999,999.99" kursorek.koszt "99,999,999.99" "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" "Wynagrodzenie" "brutto" "(got "+natura)" aty " "opodatkowane" kursorek.doplata "99,999,999,999.99" "Doch d do " "opodatkowania" Around(kursorek.brutto+kursorek.doplata-kursorek.koszt,_parz_doch) "99,999,999,999.99" "Nale ny podatek" %kursorek.zaliczka+kursorek.odliczenie "99,999,999,999.99" "Odliczenia" kursorek.odliczenie "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'),' ') 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 F 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 8 0 19 8 63 1 3 20 N FFF 0 0 0 5 0 21 13 1 1 3 F 8 0 22 6 53 1 30 C FFF 0 0 0 5 0 25 8 55 1 7 F 5 0 26 13 101 1 24 F 8 0 28 20 59 1 17 30 29 N FFF 0 0 0 8 0 31 20 41 1 17 33 32 N FFF 0 0 0 5 0 34 6 51 1 1 F 8 0 35 20 1 1 3 36 N FFF 0 0 0 5 0 37 5 51 1 19 F 8 0 38 0 0 1 1 41 C FFF 0 0 0 5 0 51 13 78 1 10 F 8 0 52 20 23 1 17 55 54 N FFF 0 0 0 5 0 56 13 41 1 15 F 8 0 57 20 5 1 17 59 58 N FFF 0 0 0 5 0 60 13 8 1 11 F 5 0 61 13 25 1 13 F 5 0 62 14 24 1 16 F 5 0 63 13 62 1 7 F 5 0 64 14 59 1 15 F 8 0 65 20 77 1 17 67 66 N FFF 0 0 0 5 0 68 17 12 1 1 F 5 0 69 17 31 1 2 F 5 0 70 17 48 1 2 F 5 0 71 17 67 1 2 F 5 0 72 17 84 1 2 F 5 0 73 17 115 1 2 F 7 4 12 0 12132 F 7 4 16 0 3132 F 7 4 12 4 12 19 F 7 4 12 40 12 19 F 7 4 12 76 12 19 F 5 0 74 16 76 1 1 F 5 0 75 18 76 1 1 F 5 0 76 16 94 1 1 F 5 0 77 18 94 1 1 F 5 0 78 12 76 1 1 F 5 0 79 23 76 1 1 F 5 0 80 12 94 1 1 F 5 0 81 23 94 1 1 F 5 0 82 16 40 1 1 F 5 0 83 18 40 1 1 F 5 0 84 16 58 1 1 F 5 0 85 18 58 1 1 F 5 0 86 12 40 1 1 F 5 0 87 23 40 1 1 F 5 0 88 12 58 1 1 F 5 0 89 23 58 1 1 F 5 0 90 16 4 1 1 F 5 0 91 18 4 1 1 F 5 0 92 16 22 1 1 F 5 0 93 18 22 1 1 F 5 0 94 12 4 1 1 F 5 0 95 23 4 1 1 F 5 0 96 12 22 1 1 F 5 0 97 23 22 1 1 F 5 0 98 16 0 1 1 F 5 0 99 16 131 1 1 F 5 0 100 18 0 1 1 F 5 0 101 18 131 1 1 F 5 0 102 14 5 1 17 F 5 0 103 9 57 1 8 F 8 0 104 0 1 1 80 C FFF 0 0 0 8 0 106 3 1 1 25 C FFF 0 0 0 8 0 109 1 1 1 50 C FFF 0 0 0 8 0 116 2 1 1 40 C FFF 0 0 0 10 1 30 33 18 120 121 T 122 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:" "Data i podpis pracownika" kursorek.dolicz "99,999,999,999.99" kursorek.inneodl "99,999,999,999.99" "L I S T A P A C" 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 "Do wyp 2kursorek.brutto+kursorek.doplata-kursorek.zaliczka "99,999,999,999.99" "Inne odliczenia" kursorek.zaliczka "99,999,999,999.99" "Zaliczka na" "Wynagrodzenie" "po opodatkowaniu" "Dop "nieopodatkowane" kursorek.netto "99,999,999,999.99" "podatek dochodowy" 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'),' ') 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 97230 F F FFFFF 0 0 0 21 9 1 20 9 4 3 9 7 2 8 0 16 22 1 1229 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 111 1 3 21 N FFF 0 0 0 5 0 22 13 1 1 3 F 5 0 23 17 98 1 1 F 8 0 24 6 101 1 30 C FFF 0 0 0 5 0 27 8 103 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 14 33 32 N FFF 0 0 0 5 0 34 17 37 1 1 F 5 0 35 17 53 1 1 F 5 0 36 17 68 1 1 F 5 0 37 17 82 1 1 F 8 0 38 20 62 1 13 40 39 N FFF 0 0 0 5 0 41 6 99 1 1 F 8 0 42 20 1 1 3 43 N FFF 0 0 0 5 0 44 5 99 1 19 F 5 0 45 13 9 1 15 F 8 0 46 0 0 1 1 49 C FFF 0 0 0 5 0 59 13 66 1 6 F 5 0 60 14 64 1 9 F 5 0 61 15 64 1 9 F 5 0 62 13 31 1 13 F 5 0 63 14 31 1 6 F 5 0 64 14 37 1 8 F 5 0 65 15 31 1 8 F 5 0 66 13 48 1 8 F 5 0 67 14 46 1 12 F 8 0 68 20 47 1 14 70 69 N FFF 0 0 0 5 0 71 13 78 1 10 F 5 0 72 14 76 1 13 F 8 0 73 20 76 1 14 77 76 N FFF 0 0 0 8 0 78 20 91 1 14 81 80 N FFF 0 0 0 5 0 82 13 107 1 10 F 8 0 83 20 106 1 12 85 84 N FFF 0 0 0 5 0 86 17 111 1 1 F 7 4 12 0 12230 F 7 4 12 0 12 5 F 7 4 16 0 3230 F 7 4 12 30 12 16 F 7 4 12 61 12 15 F 7 4 12 90 12 16 F 7 4 12 118 12 16 F 7 4 12 148 12 16 F 7 4 12 178 12 16 F 5 0 87 16 178 1 1 F 5 0 88 18 178 1 1 F 5 0 89 16 193 1 1 F 5 0 90 18 193 1 1 F 5 0 91 12 178 1 1 F 5 0 92 23 178 1 1 F 5 0 93 12 193 1 1 F 5 0 94 23 193 1 1 F 5 0 95 16 148 1 1 F 5 0 96 18 148 1 1 F 5 0 97 16 163 1 1 F 5 0 98 18 163 1 1 F 5 0 99 12 148 1 1 F 5 0 100 23 148 1 1 F 5 0 101 12 163 1 1 F 5 0 102 23 163 1 1 F 5 0 103 16 118 1 1 F 5 0 104 18 118 1 1 F 5 0 105 16 133 1 1 F 5 0 106 18 133 1 1 F 5 0 107 12 118 1 1 F 5 0 108 23 118 1 1 F 5 0 109 12 133 1 1 F 5 0 110 23 133 1 1 F 5 0 111 16 90 1 1 F 5 0 112 18 90 1 1 F 5 0 113 16 105 1 1 F 5 0 114 18 105 1 1 F 5 0 115 12 90 1 1 F 5 0 116 23 90 1 1 F 5 0 117 12 105 1 1 F 5 0 118 23 105 1 1 F 5 0 119 16 61 1 1 F 5 0 120 18 61 1 1 F 5 0 121 16 75 1 1 F 5 0 122 18 75 1 1 F 5 0 123 12 61 1 1 F 5 0 124 23 61 1 1 F 5 0 125 12 75 1 1 F 5 0 126 23 75 1 1 F 5 0 127 16 30 1 1 F 5 0 128 18 30 1 1 F 5 0 129 16 45 1 1 F 5 0 130 18 45 1 1 F 5 0 131 12 30 1 1 F 5 0 132 23 30 1 1 F 5 0 133 12 45 1 1 F 5 0 134 23 45 1 1 F 5 0 135 16 0 1 1 F 5 0 136 16 4 1 1 F 5 0 137 18 0 1 1 F 5 0 138 18 4 1 1 F 5 0 139 16 229 1 1 F 5 0 140 18 229 1 1 F 5 0 141 12 4 1 1 F 5 0 142 23 4 1 1 F 8 0 143 20 164 1 14 145 144 N FFF 0 0 0 8 0 146 20 149 1 14 148 147 N FFF 0 0 0 5 0 149 13 182 1 10 F 8 0 150 20 134 1 14 153 152 N FFF 0 0 0 8 0 154 20 119 1 14 156 155 N FFF 0 0 0 5 0 157 13 120 1 11 F 5 0 158 13 135 1 13 F 5 0 159 13 167 1 7 F 8 0 160 20 179 1 14 162 161 N FFF 0 0 0 5 0 163 17 125 1 1 F 5 0 164 17 141 1 2 F 5 0 165 17 155 1 2 F 5 0 166 17 171 1 2 F 5 0 167 17 185 1 2 F 5 0 168 17 211 1 2 F 5 0 169 13 200 1 6 F 5 0 170 13 207 1 6 F 5 0 171 13 214 1 10 F 5 0 172 13 94 1 8 F 5 0 173 14 94 1 7 F 5 0 174 14 122 1 8 F 5 0 175 15 121 1 9 F 5 0 176 14 140 1 2 F 5 0 177 15 135 1 13 F 5 0 178 13 154 1 5 F 5 0 179 14 151 1 10 F 5 0 180 14 164 1 14 F 5 0 181 15 169 1 2 F 8 0 182 0 1 1 80 C FFF 0 0 0 8 0 184 3 1 1 25 C FFF 0 0 0 8 0 187 1 1 1 50 C FFF 0 0 0 8 0 194 2 1 1 40 C FFF 0 0 0 10 1 39 65 18 198 199 T 200 1 0 8iif(licz<m.counter," ",REPLICATE(chr(m.total_sign),229)) _pageno + m.offset "Lp." =alltrim(get_mies(2,m.miesnr))+" "+alltrim(str(m.roknr))+" r." "Strona:" ALLTRIM(kursorek.imie1) ALLTRIM(kursorek.nazwisko) kursorek.brutto "999,999,999.99" kursorek.koszt "99,999,999.99" "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" "Wynagrodzenie" "brutto" "(got "+natura)" aty " "opodatkowane" kursorek.doplata "999,999,999.99" "Doch d do " "opodatkowania" Around(kursorek.brutto+kursorek.doplata-kursorek.koszt,_parz_doch) "999,999,999.99" %kursorek.zaliczka+kursorek.odliczenie "999,999,999.99" "Odliczenia" kursorek.odliczenie "9,999,999.99" kursorek.dolicz "999,999,999.99" kursorek.inneodl "999,999,999.99" "Do wyp 2kursorek.brutto+kursorek.doplata-kursorek.zaliczka "999,999,999.99" kursorek.zaliczka "999,999,999.99" "Zaliczka na" "Wynagrodzenie" "Dop kursorek.netto "999,999,999.99" "Data i" "podpis" "pracownika" "Nale "podatek" "podatek " "dochodowy" "opodatkowaniu" "Inne " "odliczenia" "nieopodatkowa-" 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'),' ') 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 97230 F F FFFFF 0 0 0 21 9 1 20 9 4 3 9 7 1 8 0 16 22 1 1228 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 111 1 3 21 N FFF 0 0 0 5 0 22 13 1 1 3 F 5 0 23 17 98 1 1 F 8 0 24 6 101 1 30 C FFF 0 0 0 5 0 27 8 103 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 14 33 32 N FFF 0 0 0 5 0 34 17 37 1 1 F 5 0 35 17 53 1 1 F 5 0 36 17 68 1 1 F 5 0 37 17 82 1 1 F 8 0 38 20 62 1 13 40 39 N FFF 0 0 0 5 0 41 6 99 1 1 F 8 0 42 20 1 1 3 43 N FFF 0 0 0 5 0 44 5 99 1 19 F 5 0 45 13 9 1 15 F 8 0 46 0 0 1 1 49 C FFF 0 0 0 5 0 59 13 66 1 6 F 5 0 60 14 64 1 9 F 5 0 61 15 64 1 9 F 5 0 62 13 31 1 13 F 5 0 63 14 31 1 6 F 5 0 64 14 37 1 8 F 5 0 65 15 31 1 8 F 5 0 66 13 48 1 8 F 5 0 67 14 46 1 12 F 8 0 68 20 47 1 14 70 69 N FFF 0 0 0 5 0 71 13 78 1 10 F 5 0 72 14 76 1 13 F 8 0 73 20 76 1 14 77 76 N FFF 0 0 0 8 0 78 20 91 1 14 81 80 N FFF 0 0 0 5 0 82 13 107 1 10 F 8 0 83 20 106 1 12 85 84 N FFF 0 0 0 5 0 86 17 111 1 1 F 8 0 87 20 164 1 14 89 88 N FFF 0 0 0 8 0 90 20 149 1 14 92 91 N FFF 0 0 0 5 0 93 13 182 1 10 F 8 0 94 20 134 1 14 97 96 N FFF 0 0 0 8 0 98 20 119 1 14 100 99 N FFF 0 0 0 5 0 101 13 120 1 11 F 5 0 102 13 135 1 13 F 5 0 103 13 167 1 7 F 8 0 104 20 179 1 14 106 105 N FFF 0 0 0 5 0 107 17 125 1 1 F 5 0 108 17 141 1 2 F 5 0 109 17 155 1 2 F 5 0 110 17 171 1 2 F 5 0 111 17 185 1 2 F 5 0 112 17 211 1 2 F 5 0 113 13 200 1 6 F 5 0 114 13 207 1 6 F 5 0 115 13 214 1 10 F 5 0 116 13 94 1 8 F 5 0 117 14 94 1 7 F 5 0 118 14 122 1 8 F 5 0 119 15 121 1 9 F 5 0 120 14 140 1 2 F 5 0 121 15 135 1 13 F 5 0 122 13 154 1 5 F 5 0 123 14 151 1 10 F 5 0 124 14 164 1 14 F 5 0 125 15 169 1 2 F 8 0 126 0 1 1 80 C FFF 0 0 0 8 0 128 3 1 1 25 C FFF 0 0 0 8 0 131 1 1 1 50 C FFF 0 0 0 8 0 138 2 1 1 40 C FFF 0 0 0 7 7 12 0 1230 = F 7 7 16 0 1230 = F 7 7 18 0 1230 = F 7 7 23 0 1230 = F 7 7 12 0 12 1 | F 7 7 12 4 12 1 | F 7 7 12 30 12 1 | F 7 7 12 45 12 1 | F 7 7 12 61 12 1 | F 7 7 12 75 12 1 | F 7 7 12 90 12 1 | F 7 7 12 105 12 1 | F 7 7 12 118 12 1 | F 7 7 12 133 12 1 | F 7 7 12 148 12 1 | F 7 7 12 163 12 1 | F 7 7 12 178 12 1 | F 7 7 12 193 12 1 | F 7 7 12 229 12 1 | F 18 142 143 T 144 1 0 8iif(licz<m.counter," ",REPLICATE(chr(m.total_sign),228)) _pageno + m.offset "Lp." =alltrim(get_mies(2,m.miesnr))+" "+alltrim(str(m.roknr))+" r." "Strona:" ALLTRIM(kursorek.imie1) ALLTRIM(kursorek.nazwisko) kursorek.brutto "999,999,999.99" kursorek.koszt "99,999,999.99" "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" "Wynagrodzenie" "brutto" "(got "+natura)" aty " "opodatkowane" kursorek.doplata "999,999,999.99" "Doch d do " "opodatkowania" Around(kursorek.brutto+kursorek.doplata-kursorek.koszt,_parz_doch) "999,999,999.99" %kursorek.zaliczka+kursorek.odliczenie "999,999,999.99" "Odliczenia" kursorek.odliczenie "9,999,999.99" kursorek.dolicz "999,999,999.99" kursorek.inneodl "999,999,999.99" "Do wyp 2kursorek.brutto+kursorek.doplata-kursorek.zaliczka "999,999,999.99" kursorek.zaliczka "999,999,999.99" "Zaliczka na" "Wynagrodzenie" "Dop kursorek.netto "999,999,999.99" "Data i" "podpis" "pracownika" "Nale "podatek" "podatek " "dochodowy" "opodatkowaniu" "Inne " "odliczenia" "nieopodatkowa-" 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'),' ') kursorek.imie1 m.beg_num..\DRUK\DRUKUTIL.PRG C:\KSIEGA\SYSTEM\ ..\COMMON\TAKNIE.PRG ..\COMMON\ERRHAND.PRG ..\COMMON\NOTICE.PRG ..\COMMON\CLEAR.PRG ..\COMMON\PYTANIE.PRG ..\DRUK\WYDRUK.PRG ..\DRUK\SKIP.PRG ..\COMMON\CZYTAK.PRG C:\KSIEGA\DRUK\ DRUKUTIL.FXP TAKNIE.FXP ERRHAND.FXP NOTICE.FXP CLEAR.FXP PYTANIE.FXP WYDRUK.FXP SKIP.FXP CZYTAK.FXP D0PLAC1.FRX D0PLAC1.FRT D0PLAC2.FRX D0PLAC2.FRT N0PLAC1.FRX N0PLAC1.FRT N0PLAC2.FRX N0PLAC2.FRT N5PLAC.FRX N5PLAC.FRT D5PLAC.FRX D5PLAC.FRT