PC World Komputer 1996 May

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

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

Wrap

MS Visual FoxPro App | 1995-03-23 | 308KB | 2,148 lines

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 MAINPATH 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 P32P026 P32P031 P32P036 P32P041 P32P046 P32P049 P32P052 FEP32P055 P32P058 P32P061 P32P066 P32P071 P32P075 P32P080 P32P027 P32P032 P32P037 P32P042 P32P062 P32P067 P32P072 FEP32P076 P32P081 P32P030 P32P035 P32P040 P32P045 P32P048 P32P051 P32P054 FEP32P057 P32P060 P32P065 P32P070 P32P074 P32P079 P32P084 P32P089 P32P092 P32P097 P32P102 P32P093 P32P098 P32P103 P32P119 P32P120 P32P125 P32P127 P32P026 P32P027 P32P031 P32P032 P32P036 P32P037 P32P041 FEP32P042 P32P046 P32P049 P32P052 P32P055 P32P058 P32P061 P32P062 P32P066 P32P067 P32P071 P32P072 P32P075 P32P076 P32P080 P32P081 P32P089 P32P092 P32P093 P32P097 P32P098 P32P102 P32P103 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 PREDRUK _PTOWAR0 _PTOWAR1 _PINNE0 _PINNE1 _WZAKUP0 _WZAKUP1 _WKOSZTY0 _WKOSZTY1 _WPODATEK0_WPODATEK1_WPRZEROB0_WPRZEROB1_WREKLAMA0_WREKLAMA1_WWYPLATA0_WWYPLATA1_WNATURA0 _WNATURA1 _WINNE0 _WINNE1 _WSPRZET0 _WSPRZET1 _INNE0 _INNE1 LICZNIK SUMCIAG MODULY GETSUM ROKNR MIESNR OFFSET sSKIP SKIPN PRINTER_FEDIALOG NA_EKRAN PRINT_ERR P_PAPER NEW_PAGE GETSTOP P_RESET -------------------------------------------------------------------------------------------------------------------------------- SKRESLAC OWAR0 OWAR1 AKUP0 AKUP1 _PTOWAR0 _PTOWAR1 _PINNE0 0_PINNE1 K1_WZAKUP0 0_WZAKUP1 1_WKOSZTY0 _WKOSZTY1 _WPODATEK0_WPODATEK1_WPRZEROB0_WPRZEROB1_WREKLAMA0_WREKLAMA1O --------------------------------------------------------------------------------------------------------------------------------- SKRESLAC OWAR0 OWAR1 _WWYPLATA0_WWYPLATA1_WNATURA0 _WNATURA1 _WINNE0 _WINNE1 0_WSPRZET0 _WSPRZET1 _PTOWAR0 _PINNE0 _WZAKUP0 _WKOSZTY0 _WPODATEK0_WPRZEROB0_WREKLAMA0A _WWYPLATA0_WNATURA0 _WINNE0 _WSPRZET0 ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- SKRESLAC ATURA0 PRZET0 ODATEK0_PTOWAR0 0_PTOWAR1 0_PINNE0 _PINNE1 _WZAKUP0 _WZAKUP1 0_WKOSZTY0 _WKOSZTY1 --------------------------------------------------------------------------------------------------------------------------------- SKRESLAC ATURA0 PRZET0 ODATEK0S5 OWAR0 OWAR1 _WPODATEK0_WPODATEK1_WPRZEROB0_WPRZEROB1_WREKLAMA0_WREKLAMA1_WWYPLATA0_WWYPLATA1_WNATURA0 _WNATURA1 _WINNE0 _WINNE1 B1_WSPRZET0 _WSPRZET1 _PTOWAR0 0_PINNE0 _WZAKUP0 _WKOSZTY0 _WPODATEK0_WPRZEROB0_WREKLAMA0_WWYPLATA0_WNATURA0 _WINNE0 0_WSPRZET0 SKRESLAC RZEROB0S2 EKLAMA0S3 YPLATA0S4 ATURA0 PRZET0 _PTOWAR0 _PTOWAR1 0_PINNE0 1_PINNE1 B0_WZAKUP0 1_WZAKUP1 0_WKOSZTY0 _WKOSZTY1 _WREKLAMA0_WREKLAMA1_WWYPLATA0_WWYPLATA1 SKRESLAC RZEROB0S2 EKLAMA0_WINNE0 A0_WINNE1 _INNE0 0_INNE1 _PTOWAR0 0_PINNE0 B0_WZAKUP0 0_WKOSZTY0 _WREKLAMA0_WWPLATA0 _WINNE0 0_INNE0 SKRESLAC AKUP0 OSZTY0 EKLAMA0_PTOWAR0 _PTOWAR1 _PINNE0 _PINNE1 0_WZAKUP0 1_WZAKUP1 0_WKOSZTY0 _WKOSZTY1 SKRESLAC AKUP0 OSZTY0 EKLAMA0_WREKLAMA0_WREKLAMA1_WWYPLATA0_WWYPLATA1_WINNE0 A1_WINNE1 0_INNE0 _INNE1 _PTOWAR0 0_PINNE0 B0_WZAKUP0 0_WKOSZTY0 _WREKLAMA0_WWYPLATA0_WINNE0 0_INNE0 S0KORYGUJ2 S0KORYGUJ3 S0ZERUJ_2 S0ZERUJ_3 S5KORYGUJ1 S5KORYGUJ2 S5ZERUJ_1 S5ZERUJ_2 N0KORYGUJ2 N0KORYGUJ3 N0ZERUJ_2 N0ZERUJ_3 N5KORYGUJ1 N5KORYGUJ2 N5ZERUJ_1 N5ZERUJ_2 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 rrors PRINT_ERR NOTICE (ERRWIN SYSPATH ER_LIN t,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 pdwzorn pdwzor ewreman 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 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 ROSYSPATH SERRWIN PTERRCODE _PERRORS E2MESSAGE 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 FFFFT 0 0 0 21 9 1 24 9 4 3 9 7 7 8 0 16 25 17 1114 C FFF 0 0 0 7 7 33 90 1 42 = F 7 7 31 90 1 42 = F 7 7 29 90 1 42 = F 7 7 27 5 1127 = F 7 7 23 5 1127 = F 7 7 21 5 1127 = F 7 7 13 27 1 64 = F 8 0 18 26 6 1125 C FFF 0 0 0 5 0 20 12 109 1 4 F 5 0 21 12 7 1 3 F 5 0 22 12 17 1 9 F 5 0 23 12 53 1 10 F 5 0 24 14 47 1 7 F 5 0 25 14 72 1 5 F 5 0 26 13 107 1 9 F 5 0 27 14 105 1 13 F 5 0 28 22 8 1 1 F 5 0 29 22 13 1 1 F 5 0 30 22 21 1 1 F 5 0 31 22 42 1 1 F 5 0 32 22 74 1 1 F 5 0 33 22 111 1 1 F 5 0 34 13 11 1 4 F 5 0 35 14 36 1 10 F 8 0 36 24 6 1125 C FFF 0 0 0 8 0 38 24 17 1 10 C FFF 0 0 0 8 0 39 24 59 1 30 C FFF 0 0 0 8 0 40 24 91 1 40 C FFF 0 0 0 8 0 41 25 59 1 31 C FFF 0 0 0 8 0 47 24 12 1 2 48 N FFF 0 0 0 8 0 49 24 6 1 4 50 N FFF 0 0 0 5 0 51 12 11 1 5 F 5 0 52 14 11 1 5 F 5 0 53 13 17 1 10 F 5 0 54 14 31 1 4 F 8 0 55 0 1 1 80 C FFF 0 0 0 5 0 57 8 59 1 8 F 8 0 58 8 67 1 3 59 N FFF 0 0 0 8 0 60 3 1 1 25 C FFF 0 0 0 8 0 63 1 1 1 50 C FFF 0 0 0 8 0 70 2 1 1 40 C FFF 0 0 0 8 0 74 6 51 1 30 C FFF 0 0 0 5 0 77 5 37 1 59 F 5 0 80 9 59 1 7 F 8 0 81 25 17 1 10 C FFF 0 0 0 8 0 82 24 28 1 30 C FFF 0 0 0 8 0 83 25 28 1 30 C FFF 0 0 0 8 0 84 0 0 1 1 87 C FFF 0 0 0 7 7 11 5 17 1 | F 7 7 11 10 17 1 | F 7 7 11 16 17 1 | F 7 7 11 27 17 1 | F 7 7 13 58 15 1 | F 7 7 11 90 23 1 | F 7 7 11 5 1127 = F 7 7 11 131 23 1 | F 8 0 97 25 91 1 40 C FFF 0 0 0 5 0 98 28 119 1 12 F 5 0 99 30 96 1 35 F 8 0 101 32 108 1 23 103 C FFF 0 0 0 18 104 105 F 106 1 0 1iif(kursorek.poprawka=.t.,replicate("-",114)," ") 8iif(licz<m.counter," ",REPLICATE(chr(m.total_sign),125)) "Opis" "Lp." "Nr dowodu" "Kontrahent" "(firma)" "adres" "zdarzenia" "gospodarczego" "mie-" "i nazwisko" 1iif(kursorek.poprawka=.t.,replicate("-",125)," ") left(kursorek.dowod,10) ALLTRIM(kursorek.ulica) left(kursorek.opis,40) iif (len(ALLTRIM(kursorek.miasto))>0 AND len(ALLTRIM(kursorek.kod))>0, ALLTRIM(kursorek.miasto)+", " + ALLTRIM(kursorek.kod), ALLTRIM(kursorek.kod)+ALLTRIM(kursorek.miasto)) day(kursorek.data) licz+m.numpocz "Dzie gowego" dane_firmy(m.firmnr,'nazwa') "Strona: " _pageno + m.offset 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(1,m.miesnr))+" "+ alltrim(str(m.roknr))+" r." ="K S I K A P R Z Y C H O D W I R O Z C H O D substr(kursorek.dowod,11) left(kursorek.firma,30) substr(kursorek.firma,31) 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 substr(kursorek.opis,41) "Suma strony:" %"Przeniesienie z poprzedniej strony:" 9iif( m.sumciag, "Razem od pocz tku roku", "Razem" ) + ":" kursorek.id 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 FFFFT 0 0 0 21 9 1 24 9 4 3 9 7 7 7 7 19 5 1115 = F 8 0 16 24 1 1118 C FFF 0 0 0 8 0 21 24 1 1118 C FFF 0 0 0 8 0 27 26 1 1118 C FFF 0 0 0 8 0 29 24 6 1 16 31 30 N FFF 0 0 0 8 0 32 32 91 1 13 35 34 N FFF 0 0 0 8 0 36 24 91 1 13 38 37 N FFF 0 0 0 5 0 39 12 11 1 1 F 5 0 40 12 62 1 5 F 5 0 41 14 60 1 10 F 5 0 42 12 79 1 6 F 5 0 43 13 79 1 7 F 5 0 44 14 79 1 6 F 8 0 45 24 57 1 16 47 46 N FFF 0 0 0 8 0 48 24 74 1 16 50 49 N FFF 0 0 0 5 0 51 14 94 1 6 F 5 0 52 15 91 1 13 F 5 0 53 16 92 1 9 F 5 0 54 18 94 1 7 F 5 0 55 12 97 1 16 F 5 0 56 22 63 1 2 F 5 0 57 22 81 1 2 F 5 0 58 15 8 1 11 F 5 0 59 15 26 1 9 F 5 0 60 14 45 1 5 F 5 0 61 16 45 1 5 F 8 0 62 24 23 1 16 64 63 N FFF 0 0 0 5 0 65 22 30 1 1 F 5 0 66 22 47 1 1 F 5 0 67 22 13 1 1 F 8 0 68 32 23 1 16 70 69 N FFF 0 0 0 8 0 71 28 6 1 16 73 72 N FFF 0 0 1 8 0 74 28 23 1 16 76 75 N FFF 0 0 1 8 0 77 28 57 1 16 79 78 N FFF 0 0 1 8 0 80 28 74 1 16 82 81 N FFF 0 0 1 8 0 83 28 91 1 13 85 84 N FFF 0 0 1 8 0 86 32 57 1 16 88 87 N FFF 0 0 0 8 0 89 32 74 1 16 92 91 N FFF 0 0 0 5 0 93 16 58 1 14 F 8 0 94 30 6 1 16 97 96 N FFF 0 0 0 8 0 98 30 23 1 16 101 100 N FFF 0 0 0 8 0 102 30 57 1 16 105 104 N FFF 0 0 0 8 0 106 30 74 1 16 109 108 N FFF 0 0 0 8 0 110 30 91 1 13 113 112 N FFF 0 0 0 8 0 114 32 6 1 16 116 115 N FFF 0 0 0 8 0 117 24 40 1 16 120 119 N FFF 0 0 0 7 7 11 0 1120 = F 7 7 13 5 1 52 = F 7 7 13 90 1 30 = F 7 7 21 0 1120 = F 7 7 23 0 1120 = F 7 7 27 0 1120 = F 7 7 29 5 1115 = F 7 7 31 5 1115 = F 7 7 33 5 1115 = F 7 7 11 5 23 1 | F 7 7 13 39 21 1 | F 7 7 13 22 21 1 | F 7 7 11 56 23 1 | F 7 7 11 73 23 1 | F 7 7 11 90 23 1 | F 7 7 13 104 21 1 | F 5 0 121 12 27 1 8 F 5 0 122 14 10 1 7 F 5 0 123 16 10 1 7 F 5 0 124 17 10 1 7 F 5 0 125 14 26 1 9 F 5 0 126 15 44 1 9 F 5 0 127 13 61 1 7 F 5 0 128 15 60 1 10 F 5 0 129 17 94 1 6 F 8 0 130 28 40 1 16 133 132 N FFF 0 0 0 8 0 134 30 40 1 16 137 136 N FFF 0 0 0 8 0 138 32 40 1 16 141 140 N FFF 0 0 0 8 0 142 0 1 1 80 C FFF 0 0 0 5 0 144 8 59 1 8 F 8 0 145 8 67 1 3 146 N FFF 0 0 0 8 0 147 3 1 1 25 C FFF 0 0 0 8 0 150 1 1 1 50 C FFF 0 0 0 8 0 157 2 1 1 40 C FFF 0 0 0 8 0 161 6 51 1 30 C FFF 0 0 0 5 0 164 5 37 1 59 F 8 0 167 1 0 1 1 C FFF 0 0 0 5 0 168 9 59 1 8 F 8 0 169 0 0 1 1 172 C FFF 0 0 0 8 0 182 24 1 1 4 183 N FFF 0 0 0 7 7 11 0 17 1 | F 5 0 184 12 2 1 3 F 5 0 185 22 3 1 1 F 5 0 186 15 105 1 13 F 8 0 187 24 105 1 14 189 188 N FFF 0 0 0 8 0 190 28 105 1 14 192 191 N FFF 0 0 1 8 0 193 30 105 1 14 196 195 N FFF 0 0 0 8 0 197 32 105 1 14 200 199 N FFF 0 0 1 7 7 11 119 23 1 | F 5 0 201 16 107 1 9 F 5 0 202 17 105 1 11 F 5 0 203 22 96 1 2 F 5 0 204 22 111 1 2 F 5 0 205 20 10 1 2 F 5 0 206 20 20 1 2 F 7 7 20 19 1 1 | F 7 7 24 19 9 1 | F 5 0 207 20 27 1 2 F 7 7 20 36 1 1 | F 5 0 208 20 37 1 2 F 7 7 24 36 9 1 | F 5 0 209 20 44 1 2 F 7 7 20 53 1 1 | F 5 0 210 20 54 1 2 F 7 7 24 53 9 1 | F 5 0 211 20 61 1 2 F 7 7 20 70 1 1 | F 5 0 212 20 71 1 2 F 7 7 24 70 9 1 | F 5 0 213 20 78 1 2 F 7 7 20 87 1 1 | F 5 0 214 20 88 1 2 F 7 7 24 87 9 1 | F 5 0 215 20 92 1 2 F 7 7 20 101 1 1 | F 5 0 216 20 102 1 2 F 7 7 24 101 9 1 | F 5 0 217 20 107 1 2 F 7 7 20 116 1 1 | F 5 0 218 20 117 1 2 F 7 7 24 116 9 1 | F 18 219 220 T 221 2 1 18 222 223 F 224 2 0 18 225 226 T 227 2 1 18 228 229 F 230 2 0 18 231 232 T 233 2 1 18 234 235 F 236 2 0 18 237 238 T 239 2 1 18 240 241 F 242 2 0 18 243 244 T 245 2 1 18 246 247 F 248 2 0 18 249 250 T 252 2 1 18 253 254 F 256 2 0 18 257 258 T 259 2 1 18 260 261 F 262 2 0 18 263 264 F 265 1 0 iif(kursorek.poprawka, n0koryguj2(118,kursorek.ptowar,kursorek.pinne, kursorek.wzakup,kursorek.wkoszty,kursorek.wreklama,kursorek.wwyplata)," ") iif(kursorek.typ=50 and kursorek.poprawka=.f., n0koryguj2(0,kursorek.ptowar,kursorek.pinne, kursorek.wzakup,kursorek.wkoszty,kursorek.wreklama, kursorek.wwyplata)," ") 8iif(licz<m.counter," ",REPLICATE(chr(m.total_sign),118)) kursorek.ptowar "9,999,999,999.99" wreklama_1 - _wreklama1 + e8 "99,999,999.99" kursorek.wreklama "99,999,999.99" "Zakup" "handlowych" "Koszty" "uboczne" "zakupu" kursorek.wzakup "9,999,999,999.99" kursorek.wkoszty "9,999,999,999.99" "koszty" "reprezentacji" "i reklamy" "limitem" "Wydatki (koszty)" "sprzedanych" "przychody" "razem" "(7+8)" kursorek.pinne "9,999,999,999.99" pinne_1 - _pinne1 + e2 "9,999,999,999.99" ptowar_0 - _ptowar0 "9,999,999,999.99" pinne_0 - _pinne0 "9,999,999,999.99" wzakup_0 - _wzakup0 "9,999,999,999.99" wkoszty_0 - _wkoszty0 "9,999,999,999.99" wreklama_0 - _wreklama0 "99,999,999.99" wzakup_1 - _wzakup1 + e4 "9,999,999,999.99" wkoszty_1 - _wkoszty1 + e5 "9,999,999,999.99" "w/g cen zakupu" .ptowar_1 - ptowar_0 - _ptowar1 + _ptowar0 + e1 "9,999,999,999.99" *pinne_1 - pinne_0 - _pinne1 + _pinne0 + e2 "9,999,999,999.99" .wzakup_1 - wzakup_0 - _wzakup1 + _wzakup0 + e4 "9,999,999,999.99" 2wkoszty_1 - wkoszty_0 - _wkoszty1 + _wkoszty0 + e5 "9,999,999,999.99" 6wreklama_1 - wreklama_0 - _wreklama1 + _wreklama0 + e8 "99,999,999.99" ptowar_1 - _ptowar1 + e1 "9,999,999,999.99" kursorek.ptowar + kursorek.pinne "9,999,999,999.99" "Przych "warto "towar "i us "pozosta "przychody" "towar "materia multi1_0 - _ptowar0 - _pinne0 "9,999,999,999.99" .multi1_1 - multi1_0 - _ptowar1 + _ptowar0 + e3 "9,999,999,999.99" "multi1_1 - _ptowar1 - _pinne1 + e3 "9,999,999,999.99" dane_firmy(m.firmnr,'nazwa') "Strona: " _pageno + m.offset 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(1,m.miesnr))+" "+ alltrim(str(m.roknr))+" r." ="K S I K A P R Z Y C H O D W I R O Z C H O D n0zeruj_2() 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 licz+m.numpocz "Lp." "wynagrodzenia" kursorek.wwyplata "999,999,999.99" wwyplata_0 - _wwyplata0 "999,999,999.99" 6wwyplata_1 - wwyplata_0 - _wwyplata1 + _wwyplata0 + e9 "999,999,999.99" wwyplata_1 - _wwyplata1 + e9 "999,999,999.99" "w got "i w naturze" PTOWAR_0 kursorek.ptowar PTOWAR_1 kursorek.ptowar PINNE_0 kursorek.pinne PINNE_1 kursorek.pinne WZAKUP_0 kursorek.wzakup WZAKUP_1 kursorek.wzakup WKOSZTY_0 kursorek.wkoszty WKOSZTY_1 kursorek.wkoszty WREKLAMA_0 kursorek.wreklama WREKLAMA_1 kursorek.wreklama MULTI1_0 kursorek.ptowar + kursorek.pinne MULTI1_1 kursorek.ptowar + kursorek.pinne WWYPLATA_0 kursorek.wwyplata WWYPLATA_1 kursorek.wwyplata kursorek.id 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 FFFFT 0 0 0 21 9 1 24 9 4 3 9 7 7 7 7 19 6 1 50 = F 8 0 16 26 1 1106 C FFF 0 0 0 8 0 18 24 1 1106 C FFF 0 0 0 8 0 22 24 1 1106 C FFF 0 0 0 8 0 25 24 6 1 16 27 26 N FFF 0 0 0 8 0 28 24 40 1 16 30 29 N FFF 0 0 0 5 0 31 12 80 1 5 F 5 0 32 12 11 1 1 F 5 0 33 16 10 1 7 F 8 0 34 24 23 1 16 37 36 N FFF 0 0 0 5 0 38 12 22 1 16 F 5 0 39 14 28 1 5 F 5 0 40 15 27 1 7 F 8 0 41 28 6 1 16 43 42 N FFF 0 0 1 8 0 44 30 6 1 16 47 46 N FFF 0 0 0 8 0 48 32 6 1 16 50 49 N FFF 0 0 1 8 0 51 28 23 1 16 54 53 C FFF 0 0 0 8 0 55 32 23 1 16 58 57 C FFF 0 0 0 8 0 59 30 23 1 16 64 63 C FFF 0 0 0 8 0 65 24 57 1 50 C FFF 0 0 0 7 7 11 0 1108 = F 7 7 13 6 1 51 = F 7 7 21 0 1108 = F 7 7 23 0 1108 = F 7 7 27 0 1108 = F 7 7 29 5 1 52 = F 7 7 31 5 1 52 = F 7 7 33 5 1 52 = F 7 7 11 5 23 1 | F 7 7 13 22 21 1 | F 7 7 13 39 21 1 | F 7 7 11 56 23 1 | F 7 7 11 107 17 1 | F 5 0 66 15 9 1 9 F 8 0 67 0 1 1 80 C FFF 0 0 0 5 0 69 8 59 1 8 F 8 0 70 8 67 1 3 71 N FFF 0 0 0 8 0 72 3 1 1 25 C FFF 0 0 0 8 0 75 1 1 1 50 C FFF 0 0 0 8 0 82 2 1 1 40 C FFF 0 0 0 8 0 86 6 51 1 30 C FFF 0 0 0 5 0 89 5 37 1 59 F 8 0 92 1 0 1 1 C FFF 0 0 0 5 0 93 9 59 1 9 F 8 0 94 0 0 1 1 97 C FFF 0 0 0 8 0 107 24 1 1 4 108 N FFF 0 0 0 7 7 11 0 17 1 | F 5 0 109 22 3 1 1 F 5 0 110 12 2 1 3 F 5 0 111 22 12 1 2 F 5 0 112 22 29 1 2 F 8 0 113 28 40 1 16 115 114 N FFF 0 0 1 8 0 116 30 40 1 16 119 118 N FFF 0 0 0 8 0 120 32 40 1 16 122 121 N FFF 0 0 1 5 0 123 16 24 1 14 F 5 0 124 22 47 1 2 F 5 0 125 22 81 1 2 F 5 0 126 20 10 1 2 F 7 7 20 19 1 1 | F 5 0 127 20 20 1 2 F 7 7 24 19 9 1 | F 5 0 128 20 27 1 2 F 7 7 20 36 1 1 | F 5 0 129 20 37 1 2 F 7 7 24 36 9 1 | F 5 0 130 20 44 1 2 F 7 7 20 53 1 1 | F 5 0 131 20 54 1 2 F 7 7 24 53 9 1 | F 18 132 133 T 134 2 1 18 135 136 F 137 2 0 18 138 139 T 141 2 1 18 142 143 F 145 2 0 18 146 147 F 148 1 0 18 149 150 T 151 2 1 18 152 153 F 154 2 0 8iif(licz<m.counter," ",REPLICATE(chr(m.total_sign),106)) _iif(kursorek.typ=50 and kursorek.poprawka=.f., n0koryguj3(0, kursorek.winne,kursorek.inne)," ") Miif(kursorek.poprawka=.t., n0koryguj3(106, kursorek.winne,kursorek.inne)," ") kursorek.winne "9,999,999,999.99" kursorek.inne "9,999,999,999.99" "Uwagi" "wydatki" 6kursorek.wreklama + kursorek.wwyplata + kursorek.winne "9,999,999,999.99" "Wydatki (koszty)" "razem" "wydatki" winne_0 - _winne0 "9,999,999,999.99" +winne_1 - winne_0 - _winne1 + _winne0 + e11 "9,999,999,999.99" winne_1 - _winne1 + e11 "9,999,999,999.99" +multi_0 - _wreklama0 - _wwyplata0 - _winne0 "9,999,999,999.99" 1multi_1 - _wreklama1 - _wwyplata1 - _winne1 + e13 "9,999,999,999.99" ^multi_1 - multi_0 - _wreklama1 +_wreklama0 - _wwyplata1 + _wwyplata0 - _winne1 + _winne0 + e13 "9,999,999,999.99" kursorek.uwagi "pozosta dane_firmy(m.firmnr,'nazwa') "Strona: " _pageno + m.offset 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(1,m.miesnr))+" "+ alltrim(str(m.roknr))+" r." ="K S I K A P R Z Y C H O D W I R O Z C H O D n0zeruj_3() III" 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 licz+m.numpocz "Lp." inne_0 - _inne0 "9,999,999,999.99" 'inne_1 - inne_0 - _inne1 + _inne0 + e14 "9,999,999,999.99" inne_1 - _inne1 + e14 "9,999,999,999.99" "(12 + 13 + 14)" WINNE_0 kursorek.winne WINNE_1 kursorek.winne MULTI_0 6kursorek.wreklama + kursorek.wwyplata + kursorek.winne MULTI_1 6kursorek.wreklama + kursorek.wwyplata + kursorek.winne kursorek.id m.beg_num INNE_0 kursorek.inne INNE_1 kursorek.inne 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 FFFFT 0 0 0 21 9 1 24 9 4 3 9 7 7 7 7 19 131 1 86 = F 8 0 16 25 17 1114 C FFF 0 0 0 8 0 18 26 6 1210 C FFF 0 0 0 8 0 20 24 6 1210 C FFF 0 0 0 8 0 25 24 6 1210 C FFF 0 0 0 8 0 29 25 59 1 31 C FFF 0 0 0 5 0 32 12 109 1 4 F 5 0 33 12 7 1 3 F 5 0 34 12 17 1 9 F 5 0 35 12 53 1 10 F 5 0 36 14 47 1 7 F 5 0 37 14 72 1 5 F 5 0 38 13 107 1 9 F 5 0 39 14 105 1 13 F 5 0 40 22 8 1 1 F 5 0 41 22 13 1 1 F 5 0 42 22 21 1 1 F 5 0 43 22 42 1 1 F 5 0 44 22 74 1 1 F 5 0 45 22 111 1 1 F 8 0 46 24 59 1 30 C FFF 0 0 0 8 0 47 25 59 1 31 C FFF 0 0 0 8 0 53 24 12 1 2 54 N FFF 0 0 0 5 0 55 13 11 1 4 F 5 0 56 14 36 1 10 F 8 0 57 24 132 1 16 59 58 N FFF 0 0 0 5 0 60 12 188 1 5 F 5 0 61 14 186 1 10 F 5 0 62 12 205 1 6 F 5 0 63 13 205 1 7 F 5 0 64 14 205 1 6 F 8 0 65 24 183 1 16 67 66 N FFF 0 0 0 8 0 68 24 200 1 16 70 69 N FFF 0 0 0 5 0 71 22 189 1 2 F 5 0 72 22 207 1 2 F 5 0 73 15 134 1 11 F 5 0 74 15 152 1 9 F 5 0 75 14 171 1 5 F 5 0 76 16 171 1 5 F 5 0 77 22 156 1 1 F 5 0 78 22 173 1 1 F 5 0 79 22 139 1 1 F 8 0 80 28 132 1 16 82 81 N FFF 0 0 1 8 0 83 28 149 1 16 85 84 N FFF 0 0 1 8 0 86 28 183 1 16 88 87 N FFF 0 0 1 8 0 89 28 200 1 16 91 90 N FFF 0 0 1 5 0 92 16 184 1 14 F 8 0 93 24 166 1 16 96 95 N FFF 0 0 0 8 0 97 24 91 1 40 C FFF 0 0 0 7 7 11 5 1212 = F 7 7 21 5 1212 = F 7 7 23 5 1212 = F 7 7 27 5 1212 = F 7 7 13 27 1 64 = F 7 7 13 131 1 52 = F 7 7 29 90 1127 = F 7 7 31 90 1127 = F 7 7 33 90 1127 = F 7 7 11 5 17 1 | F 7 7 11 10 17 1 | F 7 7 11 16 17 1 | F 7 7 11 27 17 1 | F 7 7 13 58 15 1 | F 7 7 11 90 23 1 | F 7 7 11 131 23 1 | F 7 7 13 148 21 1 | F 7 7 13 165 21 1 | F 7 7 11 182 23 1 | F 7 7 11 199 23 1 | F 7 7 11 216 23 1 | F 8 0 98 24 149 1 16 100 99 N FFF 0 0 0 8 0 101 24 6 1 4 102 N FFF 0 0 0 5 0 103 12 11 1 5 F 5 0 104 14 11 1 5 F 5 0 105 13 17 1 10 F 5 0 106 14 31 1 4 F 5 0 107 14 136 1 7 F 5 0 108 16 136 1 7 F 5 0 109 17 136 1 7 F 5 0 110 14 152 1 9 F 5 0 111 15 170 1 9 F 5 0 112 13 187 1 7 F 5 0 113 15 186 1 10 F 5 0 114 12 153 1 8 F 8 0 115 28 166 1 16 118 117 N FFF 0 0 0 8 0 119 1 0 1 1 C FFF 0 0 0 8 0 120 0 1 1 80 C FFF 0 0 0 8 0 122 1 1 1 50 C FFF 0 0 0 5 0 129 8 79 1 8 F 8 0 130 8 87 1 3 131 N FFF 0 0 0 8 0 132 3 1 1 25 C FFF 0 0 0 8 0 135 2 1 1 40 C FFF 0 0 0 8 0 139 6 70 1 30 C FFF 0 0 0 5 0 142 5 56 1 59 F 5 0 145 9 79 1 7 F 8 0 146 30 132 1 16 149 148 N FFF 0 0 0 8 0 150 32 132 1 16 152 151 N FFF 0 0 0 8 0 153 32 149 1 16 155 154 N FFF 0 0 0 8 0 156 30 149 1 16 159 158 N FFF 0 0 0 8 0 160 30 166 1 16 163 162 N FFF 0 0 0 8 0 164 32 166 1 16 167 166 N FFF 0 0 0 8 0 168 32 183 1 16 170 169 N FFF 0 0 0 8 0 171 30 183 1 16 174 173 N FFF 0 0 0 8 0 175 32 200 1 16 178 177 N FFF 0 0 0 8 0 179 30 200 1 16 182 181 N FFF 0 0 0 8 0 183 24 17 1 10 C FFF 0 0 0 8 0 184 25 17 1 10 C FFF 0 0 0 8 0 185 24 28 1 30 C FFF 0 0 0 8 0 186 25 28 1 30 C FFF 0 0 0 8 0 187 0 0 1 1 190 C FFF 0 0 0 8 0 200 25 91 1 40 C FFF 0 0 0 5 0 201 28 119 1 12 F 5 0 202 30 96 1 35 F 5 0 204 20 136 1 2 F 5 0 205 20 146 1 2 F 7 7 20 145 1 1 | F 7 7 24 145 9 1 | F 5 0 206 20 153 1 2 F 5 0 207 20 163 1 2 F 7 7 20 162 1 1 | F 7 7 24 162 9 1 | F 5 0 208 20 170 1 2 F 5 0 209 20 180 1 2 F 7 7 20 179 1 1 | F 7 7 24 179 9 1 | F 5 0 210 20 187 1 2 F 5 0 211 20 197 1 2 F 7 7 20 196 1 1 | F 7 7 24 196 9 1 | F 5 0 212 20 204 1 2 F 5 0 213 20 214 1 2 F 7 7 20 213 1 1 | F 7 7 24 213 9 1 | F 8 0 214 32 108 1 23 216 C FFF 0 0 0 18 217 218 F 219 2 1 18 220 221 F 222 2 0 18 223 224 T 225 2 1 18 226 227 F 228 2 0 18 229 230 T 231 2 1 18 232 233 F 234 2 0 18 235 236 T 237 2 1 18 238 239 F 240 2 0 18 241 242 F 243 1 0 18 244 245 T 247 2 1 18 248 249 F 251 2 0 1iif(kursorek.poprawka=.t.,replicate("-",114)," ") 8iif(licz<m.counter," ",REPLICATE(chr(m.total_sign),210)) iif(kursorek.typ=50 and kursorek.poprawka=.f., s5koryguj1(.f.,kursorek.ptowar,kursorek.pinne,kursorek.wzakup, kursorek.wkoszty)," ") oiif(kursorek.poprawka=.t.,n5koryguj1(210,kursorek.ptowar, kursorek.pinne,kursorek.wzakup,kursorek.wkoszty)," ") @iif(kursorek.poprawka=.t.,"-------------------------------"," ") "Opis" "Lp." "Nr dowodu" "Kontrahent" "(firma)" "adres" "zdarzenia" "gospodarczego" ALLTRIM(kursorek.ulica) iif (len(ALLTRIM(kursorek.miasto))>0 AND len(ALLTRIM(kursorek.kod))>0, ALLTRIM(kursorek.miasto)+", " + ALLTRIM(kursorek.kod), ALLTRIM(kursorek.kod)+ALLTRIM(kursorek.miasto)) day(kursorek.data) "mie-" "i nazwisko" kursorek.ptowar "9,999,999,999.99" "Zakup" "handlowych" "Koszty" "uboczne" "zakupu" kursorek.wzakup "9,999,999,999.99" kursorek.wkoszty "9,999,999,999.99" "sprzedanych" "przychody" "razem" "(7+8)" ptowar_0 - _ptowar0 "9,999,999,999.99" pinne_0 - _pinne0 "9,999,999,999.99" wzakup_0 - _wzakup0 "9,999,999,999.99" wkoszty_0 - _wkoszty0 "9,999,999,999.99" "w/g cen zakupu" kursorek.ptowar + kursorek.pinne "9,999,999,999.99" left(kursorek.opis,40) kursorek.pinne "9,999,999,999.99" licz+m.numpocz "Dzie gowego" "warto "towar "i us "pozosta "przychody" "towar "materia "Przych multi1_0 - _ptowar0 - _pinne0 "9,999,999,999.99" n5zeruj_1() dane_firmy(m.firmnr,'nazwa') 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'),' ') "Strona: " _pageno + m.offset Wiif(len(dane_firmy(m.firmnr,'telefon'))>0,"tel. " + dane_firmy(m.firmnr,'telefon'),' ') odane_firmy(m.firmnr,'kod') + iif(len(dane_firmy(m.firmnr,'miasto'))>0," " + dane_firmy(m.firmnr,'miasto'),' ') >alltrim(get_mies(1,m.miesnr))+" "+ alltrim(str(m.roknr))+" r." ="K S I K A P R Z Y C H O D W I R O Z C H O D .ptowar_1 - ptowar_0 - _ptowar1 + _ptowar0 + e1 "9,999,999,999.99" ptowar_1 - _ptowar1 + e1 "9,999,999,999.99" pinne_1 - _pinne1 + e2 "9,999,999,999.99" *pinne_1 - pinne_0 - _pinne1 + _pinne0 + e2 "9,999,999,999.99" .multi1_1 - multi1_0 - _ptowar1 + _ptowar0 + e3 "9,999,999,999.99" "multi1_1 - _ptowar1 - _pinne1 + e3 "9,999,999,999.99" wzakup_1 - _wzakup1 + e4 "9,999,999,999.99" .wzakup_1 - wzakup_0 - _wzakup1 + _wzakup0 + e4 "9,999,999,999.99" wkoszty_1 - _wkoszty1 + e5 "9,999,999,999.99" 2wkoszty_1 - wkoszty_0 - _wkoszty1 + _wkoszty0 + e5 "9,999,999,999.99" left(kursorek.dowod,10) substr(kursorek.dowod,11) left(kursorek.firma,30) substr(kursorek.firma,31) 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 substr(kursorek.opis,41) "Suma strony:" %"Przeniesienie z poprzedniej strony:" 9iif( m.sumciag, "Razem od pocz tku roku", "Razem" ) + ":" PTOWAR_0 kursorek.ptowar PTOWAR_1 kursorek.ptowar PINNE_0 kursorek.pinne PINNE_1 kursorek.pinne WZAKUP_0 kursorek.wzakup WZAKUP_1 kursorek.wzakup WKOSZTY_0 kursorek.wkoszty WKOSZTY_1 kursorek.wkoszty kursorek.id m.beg_num MULTI1_0 kursorek.ptowar + kursorek.pinne MULTI1_1 kursorek.ptowar + kursorek.pinne 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 FFFFT 0 0 0 21 9 1 24 9 4 3 9 7 7 7 7 19 5 1 81 = F 8 0 16 26 1 1135 C FFF 0 0 0 8 0 18 24 1 1135 C FFF 0 0 0 8 0 23 24 1 1135 C FFF 0 0 0 8 0 27 24 35 1 16 29 28 N FFF 0 0 0 8 0 30 24 69 1 16 32 31 N FFF 0 0 0 5 0 33 12 104 1 5 F 5 0 34 12 56 1 1 F 5 0 35 16 39 1 7 F 8 0 36 24 52 1 16 39 38 N FFF 0 0 0 5 0 40 12 36 1 16 F 5 0 41 14 57 1 5 F 5 0 42 15 56 1 7 F 5 0 43 14 20 1 13 F 8 0 44 24 20 1 14 46 45 N FFF 0 0 0 8 0 47 28 20 1 14 49 48 N FFF 0 0 1 8 0 50 28 35 1 16 52 51 N FFF 0 0 1 5 0 53 8 79 1 8 F 8 0 54 8 87 1 3 55 N FFF 0 0 0 8 0 56 28 52 1 16 59 58 C FFF 0 0 0 8 0 60 1 0 1 1 C FFF 0 0 0 8 0 61 24 6 1 13 63 62 N FFF 0 0 0 5 0 64 14 9 1 6 F 5 0 65 15 6 1 13 F 5 0 66 16 7 1 9 F 5 0 67 18 9 1 7 F 8 0 68 28 6 1 13 70 69 N FFF 0 0 1 8 0 71 24 86 1 50 C FFF 0 0 0 8 0 72 0 1 1 80 C FFF 0 0 0 8 0 74 3 1 1 25 C FFF 0 0 0 8 0 77 1 1 1 50 C FFF 0 0 0 8 0 84 2 1 1 40 C FFF 0 0 0 8 0 88 6 70 1 30 C FFF 0 0 0 7 7 11 0 1137 = F 7 7 13 5 1 81 = F 7 7 21 0 1137 = F 7 7 23 0 1137 = F 7 7 27 0 1137 = F 7 7 29 5 1 81 = F 7 7 31 5 1 81 = F 7 7 33 5 1 81 = F 7 7 11 5 23 1 | F 7 7 13 34 21 1 | F 7 7 13 51 21 1 | F 7 7 13 68 21 1 | F 7 7 11 85 23 1 | F 7 7 11 136 17 1 | F 5 0 91 5 56 1 59 F 5 0 94 9 79 1 8 F 5 0 95 17 9 1 6 F 5 0 96 15 22 1 9 F 5 0 97 15 38 1 9 F 7 7 13 19 21 1 | F 8 0 98 30 20 1 14 101 100 N FFF 0 0 0 8 0 102 32 20 1 14 105 104 N FFF 0 0 1 8 0 106 30 35 1 16 109 108 N FFF 0 0 0 8 0 110 32 35 1 16 112 111 N FFF 0 0 1 8 0 113 30 52 1 16 118 117 C FFF 0 0 0 8 0 119 32 52 1 16 122 121 C FFF 0 0 0 8 0 123 32 6 1 13 126 125 N FFF 0 0 0 8 0 127 30 6 1 13 130 129 N FFF 0 0 0 8 0 131 0 0 1 1 134 C FFF 0 0 0 7 7 11 0 17 1 | F 5 0 144 12 2 1 3 F 5 0 145 22 3 1 1 F 8 0 146 24 1 1 4 147 N FFF 0 0 0 5 0 148 16 21 1 11 F 5 0 149 22 11 1 2 F 5 0 150 22 26 1 2 F 5 0 151 22 41 1 2 F 5 0 152 22 59 1 2 F 8 0 153 28 69 1 16 155 154 N FFF 0 0 1 8 0 156 30 69 1 16 159 158 N FFF 0 0 0 8 0 160 32 69 1 16 162 161 N FFF 0 0 1 5 0 163 16 53 1 14 F 5 0 164 22 75 1 2 F 5 0 165 22 105 1 2 F 5 0 166 20 9 1 2 F 7 7 20 16 1 1 | F 5 0 167 20 17 1 2 F 7 7 24 16 9 1 | F 5 0 168 20 25 1 2 F 7 7 20 31 1 1 | F 5 0 169 20 32 1 2 F 7 7 24 31 9 1 | F 5 0 170 20 41 1 2 F 7 7 20 48 1 1 | F 5 0 171 20 49 1 2 F 7 7 24 48 9 1 | F 5 0 172 20 58 1 2 F 7 7 20 65 1 1 | F 5 0 173 20 66 1 2 F 7 7 24 65 9 1 | F 5 0 174 20 75 1 2 F 7 7 20 82 1 1 | F 5 0 175 20 83 1 2 F 7 7 24 82 9 1 | F 18 176 177 T 178 2 1 18 179 180 F 181 2 0 18 182 183 T 184 2 1 18 185 186 F 187 2 0 18 188 189 T 191 2 1 18 192 193 F 195 2 0 18 196 197 T 198 2 1 18 199 200 F 201 2 0 18 202 203 F 204 1 0 18 205 206 T 207 2 1 18 208 209 F 210 2 0 8iif(licz<m.counter," ",REPLICATE(chr(m.total_sign),135)) iif(kursorek.typ=50 and kursorek.poprawka=.f., n5koryguj2(0,kursorek.wreklama,kursorek.wwyplata, kursorek.winne,kursorek.inne)," ") piif(kursorek.poprawka=.t.,n5koryguj2(135,kursorek.wreklama,kursorek.wwyplata, kursorek.winne,kursorek.inne)," ") kursorek.winne "9,999,999,999.99" kursorek.inne "9,999,999,999.99" "Uwagi" "wydatki" 6kursorek.wreklama + kursorek.wwyplata + kursorek.winne "9,999,999,999.99" "Wydatki (koszty)" "razem" "wydatki" "wynagrodzenia" kursorek.wwyplata "999,999,999.99" wwyplata_0 - _wwyplata0 "999,999,999.99" winne_0 - _winne0 "9,999,999,999.99" "Strona: " _pageno + m.offset +multi_0 - _wreklama0 - _wwyplata0 - _winne0 "9,999,999,999.99" n5zeruj_2() kursorek.wreklama "99,999,999.99" "koszty" "reprezentacji" "i reklamy" "limitem" wreklama_0 - _wreklama0 "99,999,999.99" kursorek.uwagi 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(1,m.miesnr))+" "+ alltrim(str(m.roknr))+" r." ="K S I K A P R Z Y C H O D W I R O Z C H O D "w got "pozosta 6wwyplata_1 - wwyplata_0 - _wwyplata1 + _wwyplata0 + e9 "999,999,999.99" wwyplata_1 - _wwyplata1 + e9 "999,999,999.99" +winne_1 - winne_0 - _winne1 + _winne0 + e11 "9,999,999,999.99" winne_1 - _winne1 + e11 "9,999,999,999.99" ^multi_1 - multi_0 - _wreklama1 +_wreklama0 - _wwyplata1 + _wwyplata0 - _winne1 + _winne0 + e13 "9,999,999,999.99" 1multi_1 - _wreklama1 - _wwyplata1 - _winne1 + e13 "9,999,999,999.99" wreklama_1 - _wreklama1 + e8= "99,999,999.99" 6wreklama_1 - wreklama_0 - _wreklama1 + _wreklama0 + e8 "99,999,999.99" 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 "Lp." licz+m.numpocz "i w naturze" inne_0 - _inne0 "9,999,999,999.99" 'inne_1 - inne_0 - _inne1 + _inne0 + e14 "9,999,999,999.99" inne_1 - _inne1 + e14 "9,999,999,999.99" "(12 + 13 + 14)" WWYPLATA_0 kursorek.wwyplata WWYPLATA_1 kursorek.wwyplata WINNE_0 kursorek.winne WINNE_1 kursorek.winne MULTI_0 6kursorek.wreklama + kursorek.wwyplata + kursorek.winne MULTI_1 6kursorek.wreklama + kursorek.wwyplata + kursorek.winne WREKLAMA_0 kursorek.wreklama WREKLAMA_1 kursorek.wreklama kursorek.id m.beg_num INNE_0 kursorek.inne INNE_1 kursorek.inne 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 FFFFT 0 0 0 21 9 1 24 9 4 3 9 7 7 8 0 16 25 17 1114 C FFF 0 0 0 8 0 18 26 6 1125 C FFF 0 0 0 5 0 20 12 109 1 4 F 5 0 21 12 7 1 3 F 5 0 22 12 17 1 9 F 5 0 23 12 53 1 10 F 5 0 24 14 47 1 7 F 5 0 25 14 72 1 5 F 5 0 26 13 107 1 9 F 5 0 27 14 105 1 13 F 5 0 28 22 8 1 1 F 5 0 29 22 13 1 1 F 5 0 30 22 21 1 1 F 5 0 31 22 42 1 1 F 5 0 32 22 74 1 1 F 5 0 33 22 111 1 1 F 5 0 34 13 11 1 4 F 5 0 35 14 36 1 10 F 8 0 36 24 6 1125 C FFF 0 0 0 8 0 38 24 17 1 10 C FFF 0 0 0 8 0 39 24 59 1 30 C FFF 0 0 0 8 0 40 24 91 1 40 C FFF 0 0 0 8 0 41 25 59 1 31 C FFF 0 0 0 8 0 47 24 12 1 2 48 N FFF 0 0 0 8 0 49 24 6 1 4 50 N FFF 0 0 0 5 0 51 12 11 1 5 F 5 0 52 14 11 1 5 F 5 0 53 13 17 1 10 F 5 0 54 14 31 1 4 F 8 0 55 0 1 1 80 C FFF 0 0 0 5 0 57 8 59 1 8 F 8 0 58 8 67 1 3 59 N FFF 0 0 0 8 0 60 3 1 1 25 C FFF 0 0 0 8 0 63 1 1 1 50 C FFF 0 0 0 8 0 70 2 1 1 40 C FFF 0 0 0 8 0 74 6 51 1 30 C FFF 0 0 0 5 0 77 5 37 1 59 F 5 0 80 9 59 1 7 F 8 0 81 25 17 1 10 C FFF 0 0 0 8 0 82 24 28 1 30 C FFF 0 0 0 8 0 83 25 28 1 30 C FFF 0 0 0 8 0 84 0 0 1 1 87 C FFF 0 0 0 8 0 97 25 91 1 40 C FFF 0 0 0 5 0 98 28 119 1 12 F 5 0 99 30 96 1 35 F 7 4 11 5 17 6 F 7 4 11 10 17 7 F 7 4 11 16 17 12 F 7 4 11 27 17105 F 7 4 21 5 3127 F 7 4 29 90 3 42 F 7 4 11 90 23 42 F 7 4 13 27 15 32 F 7 4 13 58 15 33 F 5 0 101 13 58 1 1 F 5 0 102 27 58 1 1 F 5 0 103 13 90 1 1 F 5 0 104 27 90 1 1 F 5 0 105 21 58 1 1 F 5 0 106 23 58 1 1 F 5 0 107 21 90 1 1 F 5 0 108 23 90 1 1 F 5 0 109 21 27 1 1 F 5 0 110 23 27 1 1 F 5 0 111 13 27 1 1 F 5 0 112 27 27 1 1 F 5 0 113 29 90 1 1 F 5 0 114 31 90 1 1 F 5 0 115 29 131 1 1 F 5 0 116 31 131 1 1 F 5 0 117 21 131 1 1 F 5 0 118 23 131 1 1 F 5 0 119 11 90 1 1 F 5 0 120 27 131 1 1 F 5 0 121 21 16 1 1 F 5 0 122 23 16 1 1 F 5 0 123 21 10 1 1 F 5 0 124 23 10 1 1 F 5 0 125 21 5 1 1 F 5 0 126 23 5 1 1 F 5 0 127 11 27 1 1 F 5 0 128 11 16 1 1 F 5 0 129 27 16 1 1 F 5 0 130 11 10 1 1 F 5 0 131 27 10 1 1 F 8 0 132 32 108 1 23 134 C FFF 0 0 0 10 1 46 40 18 135 136 F 137 1 0 1iif(kursorek.poprawka=.t.,replicate("-",114)," ") 8iif(licz<m.counter," ",REPLICATE(chr(m.total_sign),125)) "Opis" "Lp." "Nr dowodu" "Kontrahent" "(firma)" "adres" "zdarzenia" "gospodarczego" "mie-" "i nazwisko" 1iif(kursorek.poprawka=.t.,replicate("-",125)," ") left(kursorek.dowod,10) ALLTRIM(kursorek.ulica) left(kursorek.opis,40) iif (len(ALLTRIM(kursorek.miasto))>0 AND len(ALLTRIM(kursorek.kod))>0, ALLTRIM(kursorek.miasto)+", " + ALLTRIM(kursorek.kod), ALLTRIM(kursorek.kod)+ALLTRIM(kursorek.miasto)) day(kursorek.data) licz+m.numpocz "Dzie gowego" dane_firmy(m.firmnr,'nazwa') "Strona: " _pageno + m.offset 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(1,m.miesnr))+" "+ alltrim(str(m.roknr))+" r." ="K S I K A P R Z Y C H O D W I R O Z C H O D substr(kursorek.dowod,11) left(kursorek.firma,30) substr(kursorek.firma,31) 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 substr(kursorek.opis,41) "Suma strony:" %"Przeniesienie z poprzedniej strony:" 9iif( m.sumciag, "Razem od pocz tku roku", "Razem" ) + ":" kursorek.id 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 FFFFT 0 0 0 21 9 1 24 9 4 3 9 7 7 8 0 16 24 1 1118 C FFF 0 0 0 8 0 21 24 1 1118 C FFF 0 0 0 8 0 27 26 1 1118 C FFF 0 0 0 8 0 29 24 6 1 16 31 30 N FFF 0 0 0 8 0 32 32 91 1 13 35 34 N FFF 0 0 0 8 0 36 24 91 1 13 38 37 N FFF 0 0 0 5 0 39 12 11 1 1 F 5 0 40 12 62 1 5 F 5 0 41 14 60 1 10 F 5 0 42 12 79 1 6 F 5 0 43 13 79 1 7 F 5 0 44 14 79 1 6 F 8 0 45 24 57 1 16 47 46 N FFF 0 0 0 8 0 48 24 74 1 16 50 49 N FFF 0 0 0 5 0 51 14 94 1 6 F 5 0 52 15 91 1 13 F 5 0 53 16 92 1 9 F 5 0 54 18 94 1 7 F 5 0 55 12 97 1 16 F 5 0 56 22 63 1 2 F 5 0 57 22 81 1 2 F 5 0 58 15 8 1 11 F 5 0 59 15 26 1 9 F 5 0 60 14 45 1 5 F 5 0 61 16 45 1 5 F 8 0 62 24 23 1 16 64 63 N FFF 0 0 0 5 0 65 22 30 1 1 F 5 0 66 22 47 1 1 F 5 0 67 22 13 1 1 F 8 0 68 32 23 1 16 70 69 N FFF 0 0 0 8 0 71 28 6 1 16 73 72 N FFF 0 0 1 8 0 74 28 23 1 16 76 75 N FFF 0 0 1 8 0 77 28 57 1 16 79 78 N FFF 0 0 1 8 0 80 28 74 1 16 82 81 N FFF 0 0 1 8 0 83 28 91 1 13 85 84 N FFF 0 0 1 8 0 86 32 57 1 16 88 87 N FFF 0 0 0 8 0 89 32 74 1 16 92 91 N FFF 0 0 0 5 0 93 16 58 1 14 F 8 0 94 30 6 1 16 97 96 N FFF 0 0 0 8 0 98 30 23 1 16 101 100 N FFF 0 0 0 8 0 102 30 57 1 16 105 104 N FFF 0 0 0 8 0 106 30 74 1 16 109 108 N FFF 0 0 0 8 0 110 30 91 1 13 113 112 N FFF 0 0 0 8 0 114 32 6 1 16 116 115 N FFF 0 0 0 8 0 117 24 40 1 16 120 119 N FFF 0 0 0 5 0 121 12 27 1 8 F 5 0 122 14 10 1 7 F 5 0 123 16 10 1 7 F 5 0 124 17 10 1 7 F 5 0 125 14 26 1 9 F 5 0 126 15 44 1 9 F 5 0 127 13 61 1 7 F 5 0 128 15 60 1 10 F 5 0 129 17 94 1 6 F 8 0 130 28 40 1 16 133 132 N FFF 0 0 0 8 0 134 30 40 1 16 137 136 N FFF 0 0 0 8 0 138 32 40 1 16 141 140 N FFF 0 0 0 8 0 142 0 1 1 80 C FFF 0 0 0 5 0 144 8 59 1 8 F 8 0 145 8 67 1 3 146 N FFF 0 0 0 8 0 147 3 1 1 25 C FFF 0 0 0 8 0 150 1 1 1 50 C FFF 0 0 0 8 0 157 2 1 1 40 C FFF 0 0 0 8 0 161 6 51 1 30 C FFF 0 0 0 5 0 164 5 37 1 59 F 8 0 167 1 0 1 1 C FFF 0 0 0 5 0 168 9 59 1 8 F 8 0 169 0 0 1 1 172 C FFF 0 0 0 8 0 182 24 1 1 4 183 N FFF 0 0 0 5 0 184 12 2 1 3 F 5 0 185 22 3 1 1 F 5 0 186 15 105 1 13 F 8 0 187 24 105 1 14 189 188 N FFF 0 0 0 8 0 190 28 105 1 14 192 191 N FFF 0 0 1 8 0 193 30 105 1 14 196 195 N FFF 0 0 0 8 0 197 32 105 1 14 200 199 N FFF 0 0 1 5 0 201 16 107 1 9 F 5 0 202 17 105 1 11 F 5 0 203 22 96 1 2 F 5 0 204 22 111 1 2 F 5 0 205 20 10 1 2 F 5 0 206 20 20 1 2 F 5 0 207 20 27 1 2 F 5 0 208 20 37 1 2 F 5 0 209 20 44 1 2 F 5 0 210 20 54 1 2 F 5 0 211 20 61 1 2 F 5 0 212 20 71 1 2 F 5 0 213 20 78 1 2 F 5 0 214 20 88 1 2 F 5 0 215 20 92 1 2 F 5 0 216 20 102 1 2 F 5 0 217 20 107 1 2 F 5 0 218 20 117 1 2 F 7 4 11 0 17 6 F 7 4 13 5 21 18 F 7 4 13 22 21 18 F 7 4 11 5 3 52 F 7 4 19 19 3 1 F 7 4 21 0 3120 F 7 4 27 5 7115 F 7 4 29 5 3115 F 7 4 23 19 11 1 F 7 4 23 36 11 1 F 7 4 23 53 11 1 F 7 4 23 70 11 1 F 7 4 23 87 11 1 F 7 4 23 101 11 1 F 7 4 23 116 11 1 F 7 4 19 5 3115 F 7 4 13 39 21 18 F 7 4 11 56 23 18 F 7 4 11 73 23 18 F 7 4 11 90 3 30 F 7 4 13 90 21 15 F 7 4 13 104 21 16 F 7 4 19 36 3 1 F 7 4 19 53 3 1 F 7 4 19 70 3 1 F 7 4 19 87 3 1 F 7 4 19 101 3 1 F 7 4 19 116 3 1 F 5 0 219 19 116 1 1 F 5 0 220 21 116 1 1 F 5 0 221 19 101 1 1 F 5 0 222 21 101 1 1 F 5 0 223 19 87 1 1 F 5 0 224 21 87 1 1 F 5 0 225 19 70 1 1 F 5 0 226 21 70 1 1 F 5 0 227 19 53 1 1 F 5 0 228 21 53 1 1 F 5 0 229 19 36 1 1 F 5 0 230 21 36 1 1 F 5 0 231 13 104 1 1 F 5 0 232 33 104 1 1 F 5 0 233 13 119 1 1 F 5 0 234 19 104 1 1 F 5 0 235 21 104 1 1 F 5 0 236 19 119 1 1 F 5 0 237 21 119 1 1 F 5 0 238 33 116 1 1 F 5 0 239 29 104 1 1 F 5 0 240 31 104 1 1 F 5 0 241 29 119 1 1 F 5 0 242 31 119 1 1 F 5 0 243 27 104 1 1 F 5 0 244 27 119 1 1 F 5 0 245 23 104 1 1 F 5 0 246 23 119 1 1 F 5 0 247 13 90 1 1 F 5 0 248 33 90 1 1 F 5 0 249 19 90 1 1 F 5 0 250 21 90 1 1 F 5 0 251 33 101 1 1 F 5 0 252 29 90 1 1 F 5 0 253 31 90 1 1 F 5 0 254 27 90 1 1 F 5 0 255 23 90 1 1 F 5 0 256 11 90 1 1 F 5 0 257 11 73 1 1 F 5 0 258 33 73 1 1 F 5 0 259 19 73 1 1 F 5 0 260 21 73 1 1 F 5 0 261 33 87 1 1 F 5 0 262 29 73 1 1 F 5 0 263 31 73 1 1 F 5 0 264 27 73 1 1 F 5 0 265 23 73 1 1 F 5 0 266 13 56 1 1 F 5 0 267 33 56 1 1 F 5 0 268 19 56 1 1 F 5 0 269 21 56 1 1 F 5 0 270 33 70 1 1 F 5 0 271 29 56 1 1 F 5 0 272 31 56 1 1 F 5 0 273 27 56 1 1 F 5 0 274 23 56 1 1 F 5 0 275 11 56 1 1 F 5 0 276 19 39 1 1 F 5 0 277 21 39 1 1 F 5 0 278 33 53 1 1 F 5 0 279 29 39 1 1 F 5 0 280 31 39 1 1 F 5 0 281 27 39 1 1 F 5 0 282 33 39 1 1 F 5 0 283 23 39 1 1 F 5 0 284 13 39 1 1 F 5 0 285 21 5 1 1 F 5 0 286 19 19 1 1 F 5 0 287 21 19 1 1 F 5 0 288 19 22 1 1 F 5 0 289 21 22 1 1 F 5 0 290 19 5 1 1 F 5 0 291 29 116 1 1 F 5 0 292 31 116 1 1 F 5 0 293 27 116 1 1 F 5 0 294 23 116 1 1 F 5 0 295 29 101 1 1 F 5 0 296 31 101 1 1 F 5 0 297 27 101 1 1 F 5 0 298 23 101 1 1 F 5 0 299 29 87 1 1 F 5 0 300 31 87 1 1 F 5 0 301 27 87 1 1 F 5 0 302 23 87 1 1 F 5 0 303 29 70 1 1 F 5 0 304 31 70 1 1 F 5 0 305 27 70 1 1 F 5 0 306 23 70 1 1 F 5 0 307 29 53 1 1 F 5 0 308 31 53 1 1 F 5 0 309 27 53 1 1 F 5 0 310 23 53 1 1 F 5 0 311 29 36 1 1 F 5 0 312 31 36 1 1 F 5 0 313 27 36 1 1 F 5 0 314 33 36 1 1 F 5 0 315 23 36 1 1 F 5 0 316 29 19 1 1 F 5 0 317 31 19 1 1 F 5 0 318 27 19 1 1 F 5 0 319 33 19 1 1 F 5 0 320 23 19 1 1 F 5 0 321 29 5 1 1 F 5 0 322 31 5 1 1 F 5 0 323 29 22 1 1 F 5 0 324 31 22 1 1 F 5 0 325 27 22 1 1 F 5 0 326 33 22 1 1 F 5 0 327 27 5 1 1 F 5 0 328 23 22 1 1 F 5 0 329 23 5 1 1 F 5 0 330 21 0 1 1 F 5 0 331 23 0 1 1 F 5 0 332 13 22 1 1 F 5 0 333 13 5 1 1 F 5 0 334 11 5 1 1 F 10 1 95 144 18 335 336 T 337 2 1 18 338 339 F 340 2 0 18 341 342 T 343 2 1 18 344 345 F 346 2 0 18 347 348 T 349 2 1 18 350 351 F 352 2 0 18 353 354 T 355 2 1 18 356 357 F 358 2 0 18 359 360 T 361 2 1 18 362 363 F 364 2 0 18 365 366 T 368 2 1 18 369 370 F 372 2 0 18 373 374 T 375 2 1 18 376 377 F 378 2 0 18 379 380 F 381 1 0 iif(kursorek.poprawka, n0koryguj2(118,kursorek.ptowar,kursorek.pinne, kursorek.wzakup,kursorek.wkoszty,kursorek.wreklama,kursorek.wwyplata)," ") iif(kursorek.typ=50 and kursorek.poprawka=.f., n0koryguj2(0,kursorek.ptowar,kursorek.pinne, kursorek.wzakup,kursorek.wkoszty,kursorek.wreklama, kursorek.wwyplata)," ") 8iif(licz<m.counter," ",REPLICATE(chr(m.total_sign),118)) kursorek.ptowar "9,999,999,999.99" wreklama_1 - _wreklama1 + e8 "99,999,999.99" kursorek.wreklama "99,999,999.99" "Zakup" "handlowych" "Koszty" "uboczne" "zakupu" kursorek.wzakup "9,999,999,999.99" kursorek.wkoszty "9,999,999,999.99" "koszty" "reprezentacji" "i reklamy" "limitem" "Wydatki (koszty)" "sprzedanych" "przychody" "razem" "(7+8)" kursorek.pinne "9,999,999,999.99" pinne_1 - _pinne1 + e2 "9,999,999,999.99" ptowar_0 - _ptowar0 "9,999,999,999.99" pinne_0 - _pinne0 "9,999,999,999.99" wzakup_0 - _wzakup0 "9,999,999,999.99" wkoszty_0 - _wkoszty0 "9,999,999,999.99" wreklama_0 - _wreklama0 "99,999,999.99" wzakup_1 - _wzakup1 + e4 "9,999,999,999.99" wkoszty_1 - _wkoszty1 + e5 "9,999,999,999.99" "w/g cen zakupu" .ptowar_1 - ptowar_0 - _ptowar1 + _ptowar0 + e1 "9,999,999,999.99" *pinne_1 - pinne_0 - _pinne1 + _pinne0 + e2 "9,999,999,999.99" .wzakup_1 - wzakup_0 - _wzakup1 + _wzakup0 + e4 "9,999,999,999.99" 2wkoszty_1 - wkoszty_0 - _wkoszty1 + _wkoszty0 + e5 "9,999,999,999.99" 6wreklama_1 - wreklama_0 - _wreklama1 + _wreklama0 + e8 "99,999,999.99" ptowar_1 - _ptowar1 + e1 "9,999,999,999.99" kursorek.ptowar + kursorek.pinne "9,999,999,999.99" "Przych "warto "towar "i us "pozosta "przychody" "towar "materia multi1_0 - _ptowar0 - _pinne0 "9,999,999,999.99" .multi1_1 - multi1_0 - _ptowar1 + _ptowar0 + e3 "9,999,999,999.99" "multi1_1 - _ptowar1 - _pinne1 + e3 "9,999,999,999.99" dane_firmy(m.firmnr,'nazwa') "Strona: " _pageno + m.offset 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(1,m.miesnr))+" "+ alltrim(str(m.roknr))+" r." ="K S I K A P R Z Y C H O D W I R O Z C H O D n0zeruj_2() 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 licz+m.numpocz "Lp." "wynagrodzenia" kursorek.wwyplata "999,999,999.99" wwyplata_0 - _wwyplata0 "999,999,999.99" 6wwyplata_1 - wwyplata_0 - _wwyplata1 + _wwyplata0 + e9 "999,999,999.99" wwyplata_1 - _wwyplata1 + e9 "999,999,999.99" "w got "i w naturze" PTOWAR_0 kursorek.ptowar PTOWAR_1 kursorek.ptowar PINNE_0 kursorek.pinne PINNE_1 kursorek.pinne WZAKUP_0 kursorek.wzakup WZAKUP_1 kursorek.wzakup WKOSZTY_0 kursorek.wkoszty WKOSZTY_1 kursorek.wkoszty WREKLAMA_0 kursorek.wreklama WREKLAMA_1 kursorek.wreklama MULTI1_0 kursorek.ptowar + kursorek.pinne MULTI1_1 kursorek.ptowar + kursorek.pinne WWYPLATA_0 kursorek.wwyplata WWYPLATA_1 kursorek.wwyplata kursorek.id 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 FFFFT 0 0 0 21 9 1 24 9 4 3 9 7 7 8 0 16 26 1 1106 C FFF 0 0 0 8 0 18 24 1 1106 C FFF 0 0 0 8 0 22 24 1 1106 C FFF 0 0 0 8 0 25 24 6 1 16 27 26 N FFF 0 0 0 8 0 28 24 40 1 16 30 29 N FFF 0 0 0 5 0 31 12 80 1 5 F 5 0 32 12 11 1 1 F 5 0 33 16 10 1 7 F 8 0 34 24 23 1 16 37 36 N FFF 0 0 0 5 0 38 12 22 1 16 F 5 0 39 14 28 1 5 F 5 0 40 15 27 1 7 F 8 0 41 28 6 1 16 43 42 N FFF 0 0 1 8 0 44 30 6 1 16 47 46 N FFF 0 0 0 8 0 48 32 6 1 16 50 49 N FFF 0 0 1 8 0 51 28 23 1 16 54 53 C FFF 0 0 0 8 0 55 32 23 1 16 58 57 C FFF 0 0 0 8 0 59 30 23 1 16 64 63 C FFF 0 0 0 8 0 65 24 57 1 50 C FFF 0 0 0 5 0 66 15 9 1 9 F 8 0 67 0 1 1 80 C FFF 0 0 0 5 0 69 8 59 1 8 F 8 0 70 8 67 1 3 71 N FFF 0 0 0 8 0 72 3 1 1 25 C FFF 0 0 0 8 0 75 1 1 1 50 C FFF 0 0 0 8 0 82 2 1 1 40 C FFF 0 0 0 8 0 86 6 51 1 30 C FFF 0 0 0 5 0 89 5 37 1 59 F 8 0 92 1 0 1 1 C FFF 0 0 0 5 0 93 9 59 1 9 F 8 0 94 0 0 1 1 97 C FFF 0 0 0 8 0 107 24 1 1 4 108 N FFF 0 0 0 5 0 109 22 3 1 1 F 5 0 110 12 2 1 3 F 5 0 111 22 12 1 2 F 5 0 112 22 29 1 2 F 8 0 113 28 40 1 16 115 114 N FFF 0 0 1 8 0 116 30 40 1 16 119 118 N FFF 0 0 0 8 0 120 32 40 1 16 122 121 N FFF 0 0 1 5 0 123 16 24 1 14 F 5 0 124 22 47 1 2 F 5 0 125 22 81 1 2 F 5 0 126 20 10 1 2 F 5 0 127 20 20 1 2 F 5 0 128 20 27 1 2 F 5 0 129 20 37 1 2 F 5 0 130 20 44 1 2 F 5 0 131 20 54 1 2 F 7 4 11 0 17 6 F 7 4 11 5 3 52 F 7 4 13 5 21 18 F 7 4 13 22 21 18 F 7 4 13 39 21 18 F 7 4 27 5 7 52 F 7 4 29 5 3 52 F 7 4 19 5 3 52 F 7 4 19 19 3 1 F 7 4 23 19 11 1 F 7 4 19 36 3 1 F 7 4 23 36 11 1 F 7 4 19 53 3 1 F 7 4 23 53 11 1 F 7 4 11 56 17 52 F 7 4 21 0 3108 F 5 0 132 21 56 1 1 F 5 0 133 21 107 1 1 F 5 0 134 23 56 1 1 F 5 0 135 23 107 1 1 F 5 0 136 23 53 1 1 F 5 0 137 21 53 1 1 F 5 0 138 23 36 1 1 F 5 0 139 21 36 1 1 F 5 0 140 23 19 1 1 F 5 0 141 21 19 1 1 F 5 0 142 21 5 1 1 F 5 0 143 21 39 1 1 F 5 0 144 23 39 1 1 F 5 0 145 21 22 1 1 F 5 0 146 23 22 1 1 F 5 0 147 23 5 1 1 F 5 0 148 21 0 1 1 F 5 0 149 23 0 1 1 F 5 0 150 19 56 1 1 F 5 0 151 27 56 1 1 F 5 0 152 13 56 1 1 F 5 0 153 11 56 1 1 F 5 0 154 29 53 1 1 F 5 0 155 31 53 1 1 F 5 0 156 27 53 1 1 F 5 0 157 33 53 1 1 F 5 0 158 19 53 1 1 F 5 0 159 29 36 1 1 F 5 0 160 31 36 1 1 F 5 0 161 27 36 1 1 F 5 0 162 33 36 1 1 F 5 0 163 19 36 1 1 F 5 0 164 29 19 1 1 F 5 0 165 31 19 1 1 F 5 0 166 27 19 1 1 F 5 0 167 33 19 1 1 F 5 0 168 19 19 1 1 F 5 0 169 19 39 1 1 F 5 0 170 19 22 1 1 F 5 0 171 19 5 1 1 F 5 0 172 29 5 1 1 F 5 0 173 29 56 1 1 F 5 0 174 31 5 1 1 F 5 0 175 31 56 1 1 F 5 0 176 29 39 1 1 F 5 0 177 31 39 1 1 F 5 0 178 29 22 1 1 F 5 0 179 31 22 1 1 F 5 0 180 27 39 1 1 F 5 0 181 33 39 1 1 F 5 0 182 27 22 1 1 F 5 0 183 33 22 1 1 F 5 0 184 27 5 1 1 F 5 0 185 13 39 1 1 F 5 0 186 13 22 1 1 F 5 0 187 13 5 1 1 F 5 0 188 11 5 1 1 F 10 1 49 73 18 189 190 T 191 2 1 18 192 193 F 194 2 0 18 195 196 T 198 2 1 18 199 200 F 202 2 0 18 203 204 F 205 1 0 18 206 207 T 208 2 1 18 209 210 F 211 2 0 8iif(licz<m.counter," ",REPLICATE(chr(m.total_sign),106)) _iif(kursorek.typ=50 and kursorek.poprawka=.f., n0koryguj3(0, kursorek.winne,kursorek.inne)," ") Miif(kursorek.poprawka=.t., n0koryguj3(106, kursorek.winne,kursorek.inne)," ") kursorek.winne "9,999,999,999.99" kursorek.inne "9,999,999,999.99" "Uwagi" "wydatki" 6kursorek.wreklama + kursorek.wwyplata + kursorek.winne "9,999,999,999.99" "Wydatki (koszty)" "razem" "wydatki" winne_0 - _winne0 "9,999,999,999.99" +winne_1 - winne_0 - _winne1 + _winne0 + e11 "9,999,999,999.99" winne_1 - _winne1 + e11 "9,999,999,999.99" +multi_0 - _wreklama0 - _wwyplata0 - _winne0 "9,999,999,999.99" 1multi_1 - _wreklama1 - _wwyplata1 - _winne1 + e13 "9,999,999,999.99" ^multi_1 - multi_0 - _wreklama1 +_wreklama0 - _wwyplata1 + _wwyplata0 - _winne1 + _winne0 + e13 "9,999,999,999.99" kursorek.uwagi "pozosta dane_firmy(m.firmnr,'nazwa') "Strona: " _pageno + m.offset 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(1,m.miesnr))+" "+ alltrim(str(m.roknr))+" r." ="K S I K A P R Z Y C H O D W I R O Z C H O D n0zeruj_3() III" 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 licz+m.numpocz "Lp." inne_0 - _inne0 "9,999,999,999.99" 'inne_1 - inne_0 - _inne1 + _inne0 + e14 "9,999,999,999.99" inne_1 - _inne1 + e14 "9,999,999,999.99" "(12 + 13 + 14)" WINNE_0 kursorek.winne WINNE_1 kursorek.winne MULTI_0 6kursorek.wreklama + kursorek.wwyplata + kursorek.winne MULTI_1 6kursorek.wreklama + kursorek.wwyplata + kursorek.winne kursorek.id m.beg_num INNE_0 kursorek.inne INNE_1 kursorek.inne 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 FFFFT 0 0 0 21 9 1 24 9 4 3 9 7 7 8 0 16 25 17 1114 C FFF 0 0 0 8 0 18 26 6 1210 C FFF 0 0 0 8 0 20 24 6 1210 C FFF 0 0 0 8 0 25 24 6 1210 C FFF 0 0 0 8 0 29 25 59 1 31 C FFF 0 0 0 5 0 32 12 109 1 4 F 5 0 33 12 7 1 3 F 5 0 34 12 17 1 9 F 5 0 35 12 53 1 10 F 5 0 36 14 47 1 7 F 5 0 37 14 72 1 5 F 5 0 38 13 107 1 9 F 5 0 39 14 105 1 13 F 5 0 40 22 8 1 1 F 5 0 41 22 13 1 1 F 5 0 42 22 21 1 1 F 5 0 43 22 42 1 1 F 5 0 44 22 74 1 1 F 5 0 45 22 111 1 1 F 8 0 46 24 59 1 30 C FFF 0 0 0 8 0 47 25 59 1 31 C FFF 0 0 0 8 0 53 24 12 1 2 54 N FFF 0 0 0 5 0 55 13 11 1 4 F 5 0 56 14 36 1 10 F 8 0 57 24 132 1 16 59 58 N FFF 0 0 0 5 0 60 12 188 1 5 F 5 0 61 14 186 1 10 F 5 0 62 12 205 1 6 F 5 0 63 13 205 1 7 F 5 0 64 14 205 1 6 F 8 0 65 24 183 1 16 67 66 N FFF 0 0 0 8 0 68 24 200 1 16 70 69 N FFF 0 0 0 5 0 71 22 189 1 2 F 5 0 72 22 207 1 2 F 5 0 73 15 134 1 11 F 5 0 74 15 152 1 9 F 5 0 75 14 171 1 5 F 5 0 76 16 171 1 5 F 5 0 77 22 156 1 1 F 5 0 78 22 173 1 1 F 5 0 79 22 139 1 1 F 8 0 80 28 132 1 16 82 81 N FFF 0 0 1 8 0 83 28 149 1 16 85 84 N FFF 0 0 1 8 0 86 28 183 1 16 88 87 N FFF 0 0 1 8 0 89 28 200 1 16 91 90 N FFF 0 0 1 5 0 92 16 184 1 14 F 8 0 93 24 166 1 16 96 95 N FFF 0 0 0 8 0 97 24 91 1 40 C FFF 0 0 0 8 0 98 24 149 1 16 100 99 N FFF 0 0 0 8 0 101 24 6 1 4 102 N FFF 0 0 0 5 0 103 12 11 1 5 F 5 0 104 14 11 1 5 F 5 0 105 13 17 1 10 F 5 0 106 14 31 1 4 F 5 0 107 14 136 1 7 F 5 0 108 16 136 1 7 F 5 0 109 17 136 1 7 F 5 0 110 14 152 1 9 F 5 0 111 15 170 1 9 F 5 0 112 13 187 1 7 F 5 0 113 15 186 1 10 F 5 0 114 12 153 1 8 F 8 0 115 28 166 1 16 118 117 N FFF 0 0 0 8 0 119 1 0 1 1 C FFF 0 0 0 8 0 120 0 1 1 80 C FFF 0 0 0 8 0 122 1 1 1 50 C FFF 0 0 0 5 0 129 8 79 1 8 F 8 0 130 8 87 1 3 131 N FFF 0 0 0 8 0 132 3 1 1 25 C FFF 0 0 0 8 0 135 2 1 1 40 C FFF 0 0 0 8 0 139 6 70 1 30 C FFF 0 0 0 5 0 142 5 56 1 59 F 5 0 145 9 79 1 7 F 8 0 146 30 132 1 16 149 148 N FFF 0 0 0 8 0 150 32 132 1 16 152 151 N FFF 0 0 0 8 0 153 32 149 1 16 155 154 N FFF 0 0 0 8 0 156 30 149 1 16 159 158 N FFF 0 0 0 8 0 160 30 166 1 16 163 162 N FFF 0 0 0 8 0 164 32 166 1 16 167 166 N FFF 0 0 0 8 0 168 32 183 1 16 170 169 N FFF 0 0 0 8 0 171 30 183 1 16 174 173 N FFF 0 0 0 8 0 175 32 200 1 16 178 177 N FFF 0 0 0 8 0 179 30 200 1 16 182 181 N FFF 0 0 0 8 0 183 24 17 1 10 C FFF 0 0 0 8 0 184 25 17 1 10 C FFF 0 0 0 8 0 185 24 28 1 30 C FFF 0 0 0 8 0 186 25 28 1 30 C FFF 0 0 0 8 0 187 0 0 1 1 190 C FFF 0 0 0 8 0 200 25 91 1 40 C FFF 0 0 0 5 0 201 28 119 1 12 F 5 0 202 30 96 1 35 F 5 0 204 20 136 1 2 F 5 0 205 20 146 1 2 F 5 0 206 20 153 1 2 F 5 0 207 20 163 1 2 F 5 0 208 20 170 1 2 F 5 0 209 20 180 1 2 F 5 0 210 20 187 1 2 F 5 0 211 20 197 1 2 F 5 0 212 20 204 1 2 F 5 0 213 20 214 1 2 F 7 4 11 5 17 6 F 7 4 11 10 17 7 F 7 4 11 16 17 12 F 7 4 11 27 3 64 F 7 4 21 5 3212 F 7 4 13 27 15 32 F 7 4 13 58 15 33 F 7 4 11 90 23 42 F 7 4 27 90 7127 F 7 4 29 90 3127 F 7 4 11 131 3 52 F 7 4 13 131 21 18 F 7 4 13 148 21 18 F 7 4 13 165 21 18 F 7 4 11 182 23 18 F 7 4 11 199 23 18 F 7 4 19 131 3 86 F 7 4 19 145 3 1 F 7 4 23 145 11 1 F 7 4 19 162 3 1 F 7 4 23 162 11 1 F 7 4 19 179 3 1 F 7 4 23 179 11 1 F 7 4 19 196 3 1 F 7 4 23 196 11 1 F 7 4 19 213 3 1 F 7 4 23 213 11 1 F 5 0 214 33 213 1 1 F 5 0 215 29 213 1 1 F 5 0 216 31 213 1 1 F 5 0 217 27 213 1 1 F 5 0 218 23 213 1 1 F 5 0 219 19 213 1 1 F 5 0 220 21 213 1 1 F 5 0 221 33 196 1 1 F 5 0 222 29 196 1 1 F 5 0 223 31 196 1 1 F 5 0 224 27 196 1 1 F 5 0 225 23 196 1 1 F 5 0 226 19 196 1 1 F 5 0 227 21 196 1 1 F 5 0 228 33 179 1 1 F 5 0 229 29 179 1 1 F 5 0 230 31 179 1 1 F 5 0 231 27 179 1 1 F 5 0 232 23 179 1 1 F 5 0 233 19 179 1 1 F 5 0 234 21 179 1 1 F 5 0 235 33 162 1 1 F 5 0 236 29 162 1 1 F 5 0 237 31 162 1 1 F 5 0 238 27 162 1 1 F 5 0 239 23 162 1 1 F 5 0 240 19 162 1 1 F 5 0 241 21 162 1 1 F 5 0 242 33 145 1 1 F 5 0 243 29 145 1 1 F 5 0 244 31 145 1 1 F 5 0 245 27 145 1 1 F 5 0 246 23 145 1 1 F 5 0 247 19 145 1 1 F 5 0 248 21 145 1 1 F 5 0 249 19 199 1 1 F 5 0 250 19 216 1 1 F 5 0 251 21 199 1 1 F 5 0 252 21 216 1 1 F 5 0 253 19 182 1 1 F 5 0 254 21 182 1 1 F 5 0 255 19 165 1 1 F 5 0 256 21 165 1 1 F 5 0 257 19 148 1 1 F 5 0 258 21 148 1 1 F 5 0 259 19 131 1 1 F 5 0 260 21 131 1 1 F 5 0 261 11 199 1 1 F 5 0 262 33 199 1 1 F 5 0 263 29 199 1 1 F 5 0 264 31 199 1 1 F 5 0 265 29 216 1 1 F 5 0 266 31 216 1 1 F 5 0 267 27 199 1 1 F 5 0 268 27 216 1 1 F 5 0 269 23 199 1 1 F 5 0 270 23 216 1 1 F 5 0 271 13 182 1 1 F 5 0 272 33 182 1 1 F 5 0 273 11 182 1 1 F 5 0 274 29 182 1 1 F 5 0 275 31 182 1 1 F 5 0 276 27 182 1 1 F 5 0 277 23 182 1 1 F 5 0 278 13 165 1 1 F 5 0 279 33 165 1 1 F 5 0 280 29 165 1 1 F 5 0 281 31 165 1 1 F 5 0 282 27 165 1 1 F 5 0 283 23 165 1 1 F 5 0 284 13 148 1 1 F 5 0 285 33 148 1 1 F 5 0 286 29 148 1 1 F 5 0 287 31 148 1 1 F 5 0 288 27 148 1 1 F 5 0 289 23 148 1 1 F 5 0 290 13 131 1 1 F 5 0 291 29 131 1 1 F 5 0 292 31 131 1 1 F 5 0 293 27 131 1 1 F 5 0 294 33 131 1 1 F 5 0 295 23 131 1 1 F 5 0 296 11 131 1 1 F 5 0 297 29 90 1 1 F 5 0 298 31 90 1 1 F 5 0 299 27 90 1 1 F 5 0 300 13 90 1 1 F 5 0 301 21 90 1 1 F 5 0 302 23 90 1 1 F 5 0 303 11 90 1 1 F 5 0 304 13 58 1 1 F 5 0 305 27 58 1 1 F 5 0 306 21 58 1 1 F 5 0 307 23 58 1 1 F 5 0 308 21 27 1 1 F 5 0 309 23 27 1 1 F 5 0 310 13 27 1 1 F 5 0 311 27 27 1 1 F 5 0 312 21 16 1 1 F 5 0 313 23 16 1 1 F 5 0 314 21 10 1 1 F 5 0 315 23 10 1 1 F 5 0 316 21 5 1 1 F 5 0 317 23 5 1 1 F 5 0 318 11 27 1 1 F 5 0 319 11 16 1 1 F 5 0 320 27 16 1 1 F 5 0 321 11 10 1 1 F 5 0 322 27 10 1 1 F 8 0 323 32 108 1 23 325 C FFF 0 0 0 10 1 102 136 18 326 327 F 328 2 1 18 329 330 F 331 2 0 18 332 333 T 334 2 1 18 335 336 F 337 2 0 18 338 339 T 340 2 1 18 341 342 F 343 2 0 18 344 345 T 346 2 1 18 347 348 F 349 2 0 18 350 351 F 352 1 0 18 353 354 T 356 2 1 18 357 358 F 360 2 0 1iif(kursorek.poprawka=.t.,replicate("-",114)," ") 8iif(licz<m.counter," ",REPLICATE(chr(m.total_sign),210)) iif(kursorek.typ=50 and kursorek.poprawka=.f., s5koryguj1(.f.,kursorek.ptowar,kursorek.pinne,kursorek.wzakup, kursorek.wkoszty)," ") oiif(kursorek.poprawka=.t.,n5koryguj1(210,kursorek.ptowar, kursorek.pinne,kursorek.wzakup,kursorek.wkoszty)," ") @iif(kursorek.poprawka=.t.,"-------------------------------"," ") "Opis" "Lp." "Nr dowodu" "Kontrahent" "(firma)" "adres" "zdarzenia" "gospodarczego" ALLTRIM(kursorek.ulica) iif (len(ALLTRIM(kursorek.miasto))>0 AND len(ALLTRIM(kursorek.kod))>0, ALLTRIM(kursorek.miasto)+", " + ALLTRIM(kursorek.kod), ALLTRIM(kursorek.kod)+ALLTRIM(kursorek.miasto)) day(kursorek.data) "mie-" "i nazwisko" kursorek.ptowar "9,999,999,999.99" "Zakup" "handlowych" "Koszty" "uboczne" "zakupu" kursorek.wzakup "9,999,999,999.99" kursorek.wkoszty "9,999,999,999.99" "sprzedanych" "przychody" "razem" "(7+8)" ptowar_0 - _ptowar0 "9,999,999,999.99" pinne_0 - _pinne0 "9,999,999,999.99" wzakup_0 - _wzakup0 "9,999,999,999.99" wkoszty_0 - _wkoszty0 "9,999,999,999.99" "w/g cen zakupu" kursorek.ptowar + kursorek.pinne "9,999,999,999.99" left(kursorek.opis,40) kursorek.pinne "9,999,999,999.99" licz+m.numpocz "Dzie gowego" "warto "towar "i us "pozosta "przychody" "towar "materia "Przych multi1_0 - _ptowar0 - _pinne0 "9,999,999,999.99" n5zeruj_1() dane_firmy(m.firmnr,'nazwa') 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'),' ') "Strona: " _pageno + m.offset Wiif(len(dane_firmy(m.firmnr,'telefon'))>0,"tel. " + dane_firmy(m.firmnr,'telefon'),' ') odane_firmy(m.firmnr,'kod') + iif(len(dane_firmy(m.firmnr,'miasto'))>0," " + dane_firmy(m.firmnr,'miasto'),' ') >alltrim(get_mies(1,m.miesnr))+" "+ alltrim(str(m.roknr))+" r." ="K S I K A P R Z Y C H O D W I R O Z C H O D .ptowar_1 - ptowar_0 - _ptowar1 + _ptowar0 + e1 "9,999,999,999.99" ptowar_1 - _ptowar1 + e1 "9,999,999,999.99" pinne_1 - _pinne1 + e2 "9,999,999,999.99" *pinne_1 - pinne_0 - _pinne1 + _pinne0 + e2 "9,999,999,999.99" .multi1_1 - multi1_0 - _ptowar1 + _ptowar0 + e3 "9,999,999,999.99" "multi1_1 - _ptowar1 - _pinne1 + e3 "9,999,999,999.99" wzakup_1 - _wzakup1 + e4 "9,999,999,999.99" .wzakup_1 - wzakup_0 - _wzakup1 + _wzakup0 + e4 "9,999,999,999.99" wkoszty_1 - _wkoszty1 + e5 "9,999,999,999.99" 2wkoszty_1 - wkoszty_0 - _wkoszty1 + _wkoszty0 + e5 "9,999,999,999.99" left(kursorek.dowod,10) substr(kursorek.dowod,11) left(kursorek.firma,30) substr(kursorek.firma,31) 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 substr(kursorek.opis,41) "Suma strony:" %"Przeniesienie z poprzedniej strony:" 9iif( m.sumciag, "Razem od pocz tku roku", "Razem" ) + ":" PTOWAR_0 kursorek.ptowar PTOWAR_1 kursorek.ptowar PINNE_0 kursorek.pinne PINNE_1 kursorek.pinne WZAKUP_0 kursorek.wzakup WZAKUP_1 kursorek.wzakup WKOSZTY_0 kursorek.wkoszty WKOSZTY_1 kursorek.wkoszty kursorek.id m.beg_num MULTI1_0 kursorek.ptowar + kursorek.pinne MULTI1_1 kursorek.ptowar + kursorek.pinne 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 FFFFT 0 0 0 21 9 1 24 9 4 3 9 7 7 8 0 16 26 1 1135 C FFF 0 0 0 8 0 18 24 1 1135 C FFF 0 0 0 8 0 23 24 1 1135 C FFF 0 0 0 8 0 27 24 35 1 16 29 28 N FFF 0 0 0 8 0 30 24 69 1 16 32 31 N FFF 0 0 0 5 0 33 12 104 1 5 F 5 0 34 12 56 1 1 F 5 0 35 16 39 1 7 F 8 0 36 24 52 1 16 39 38 N FFF 0 0 0 5 0 40 12 36 1 16 F 5 0 41 14 57 1 5 F 5 0 42 15 56 1 7 F 5 0 43 14 20 1 13 F 8 0 44 24 20 1 14 46 45 N FFF 0 0 0 8 0 47 28 20 1 14 49 48 N FFF 0 0 1 8 0 50 28 35 1 16 52 51 N FFF 0 0 1 5 0 53 8 79 1 8 F 8 0 54 8 87 1 3 55 N FFF 0 0 0 8 0 56 28 52 1 16 59 58 C FFF 0 0 0 8 0 60 1 0 1 1 C FFF 0 0 0 8 0 61 24 6 1 13 63 62 N FFF 0 0 0 5 0 64 14 9 1 6 F 5 0 65 15 6 1 13 F 5 0 66 16 7 1 9 F 5 0 67 18 9 1 7 F 8 0 68 28 6 1 13 70 69 N FFF 0 0 1 8 0 71 24 86 1 50 C FFF 0 0 0 8 0 72 0 1 1 80 C FFF 0 0 0 8 0 74 3 1 1 25 C FFF 0 0 0 8 0 77 1 1 1 50 C FFF 0 0 0 8 0 84 2 1 1 40 C FFF 0 0 0 8 0 88 6 70 1 30 C FFF 0 0 0 5 0 91 5 56 1 59 F 5 0 94 9 79 1 8 F 5 0 95 17 9 1 6 F 5 0 96 15 22 1 9 F 5 0 97 15 38 1 9 F 8 0 98 30 20 1 14 101 100 N FFF 0 0 0 8 0 102 32 20 1 14 105 104 N FFF 0 0 1 8 0 106 30 35 1 16 109 108 N FFF 0 0 0 8 0 110 32 35 1 16 112 111 N FFF 0 0 1 8 0 113 30 52 1 16 118 117 C FFF 0 0 0 8 0 119 32 52 1 16 122 121 C FFF 0 0 0 8 0 123 32 6 1 13 126 125 N FFF 0 0 0 8 0 127 30 6 1 13 130 129 N FFF 0 0 0 8 0 131 0 0 1 1 134 C FFF 0 0 0 5 0 144 12 2 1 3 F 5 0 145 22 3 1 1 F 8 0 146 24 1 1 4 147 N FFF 0 0 0 5 0 148 16 21 1 11 F 5 0 149 22 11 1 2 F 5 0 150 22 26 1 2 F 5 0 151 22 41 1 2 F 5 0 152 22 59 1 2 F 8 0 153 28 69 1 16 155 154 N FFF 0 0 1 8 0 156 30 69 1 16 159 158 N FFF 0 0 0 8 0 160 32 69 1 16 162 161 N FFF 0 0 1 5 0 163 16 53 1 14 F 5 0 164 22 75 1 2 F 5 0 165 22 105 1 2 F 5 0 166 20 9 1 2 F 5 0 167 20 17 1 2 F 5 0 168 20 25 1 2 F 5 0 169 20 32 1 2 F 5 0 170 20 41 1 2 F 5 0 171 20 49 1 2 F 5 0 172 20 58 1 2 F 5 0 173 20 66 1 2 F 5 0 174 20 75 1 2 F 5 0 175 20 83 1 2 F 7 4 11 0 17 6 F 7 4 21 0 3137 F 7 4 11 5 3 81 F 7 4 13 5 21 15 F 7 4 27 5 7 81 F 7 4 29 5 3 81 F 7 4 19 5 3 81 F 7 4 13 19 21 16 F 7 4 13 34 21 18 F 7 4 13 51 21 18 F 7 4 13 68 21 18 F 7 4 11 85 17 52 F 7 4 19 16 3 1 F 7 4 23 16 11 1 F 7 4 19 31 3 1 F 7 4 23 31 11 1 F 7 4 19 48 3 1 F 7 4 23 48 11 1 F 7 4 19 65 3 1 F 7 4 23 65 11 1 F 7 4 19 82 3 1 F 7 4 23 82 11 1 F 5 0 176 33 82 1 1 F 5 0 177 29 82 1 1 F 5 0 178 31 82 1 1 F 5 0 179 27 82 1 1 F 5 0 180 23 82 1 1 F 5 0 181 19 82 1 1 F 5 0 182 21 82 1 1 F 5 0 183 33 65 1 1 F 5 0 184 29 65 1 1 F 5 0 185 31 65 1 1 F 5 0 186 27 65 1 1 F 5 0 187 23 65 1 1 F 5 0 188 19 65 1 1 F 5 0 189 21 65 1 1 F 5 0 190 33 48 1 1 F 5 0 191 29 48 1 1 F 5 0 192 31 48 1 1 F 5 0 193 27 48 1 1 F 5 0 194 23 48 1 1 F 5 0 195 19 48 1 1 F 5 0 196 21 48 1 1 F 5 0 197 33 31 1 1 F 5 0 198 29 31 1 1 F 5 0 199 31 31 1 1 F 5 0 200 27 31 1 1 F 5 0 201 23 31 1 1 F 5 0 202 19 31 1 1 F 5 0 203 21 31 1 1 F 5 0 204 29 16 1 1 F 5 0 205 31 16 1 1 F 5 0 206 27 16 1 1 F 5 0 207 33 16 1 1 F 5 0 208 23 16 1 1 F 5 0 209 19 16 1 1 F 5 0 210 21 16 1 1 F 5 0 211 13 85 1 1 F 5 0 212 27 85 1 1 F 5 0 213 19 85 1 1 F 5 0 214 21 85 1 1 F 5 0 215 11 85 1 1 F 5 0 216 23 85 1 1 F 5 0 217 21 136 1 1 F 5 0 218 23 136 1 1 F 5 0 219 13 68 1 1 F 5 0 220 33 68 1 1 F 5 0 221 19 68 1 1 F 5 0 222 21 68 1 1 F 5 0 223 29 68 1 1 F 5 0 224 31 68 1 1 F 5 0 225 29 85 1 1 F 5 0 226 31 85 1 1 F 5 0 227 27 68 1 1 F 5 0 228 23 68 1 1 F 5 0 229 13 51 1 1 F 5 0 230 33 51 1 1 F 5 0 231 19 51 1 1 F 5 0 232 21 51 1 1 F 5 0 233 29 51 1 1 F 5 0 234 31 51 1 1 F 5 0 235 27 51 1 1 F 5 0 236 23 51 1 1 F 5 0 237 13 34 1 1 F 5 0 238 33 34 1 1 F 5 0 239 19 34 1 1 F 5 0 240 21 34 1 1 F 5 0 241 29 34 1 1 F 5 0 242 31 34 1 1 F 5 0 243 27 34 1 1 F 5 0 244 23 34 1 1 F 5 0 245 19 19 1 1 F 5 0 246 21 19 1 1 F 5 0 247 29 19 1 1 F 5 0 248 31 19 1 1 F 5 0 249 27 19 1 1 F 5 0 250 33 19 1 1 F 5 0 251 13 19 1 1 F 5 0 252 23 19 1 1 F 5 0 253 19 5 1 1 F 5 0 254 21 5 1 1 F 5 0 255 29 5 1 1 F 5 0 256 31 5 1 1 F 5 0 257 27 5 1 1 F 5 0 258 13 5 1 1 F 5 0 259 23 5 1 1 F 5 0 260 11 5 1 1 F 5 0 261 21 0 1 1 F 5 0 262 23 0 1 1 F 10 1 71 109 18 263 264 T 265 2 1 18 266 267 F 268 2 0 18 269 270 T 271 2 1 18 272 273 F 274 2 0 18 275 276 T 278 2 1 18 279 280 F 282 2 0 18 283 284 T 285 2 1 18 286 287 F 288 2 0 18 289 290 F 291 1 0 18 292 293 T 294 2 1 18 295 296 F 297 2 0 8iif(licz<m.counter," ",REPLICATE(chr(m.total_sign),135)) iif(kursorek.typ=50 and kursorek.poprawka=.f., n5koryguj2(0,kursorek.wreklama,kursorek.wwyplata, kursorek.winne,kursorek.inne)," ") piif(kursorek.poprawka=.t.,n5koryguj2(135,kursorek.wreklama,kursorek.wwyplata, kursorek.winne,kursorek.inne)," ") kursorek.winne "9,999,999,999.99" kursorek.inne "9,999,999,999.99" "Uwagi" "wydatki" 6kursorek.wreklama + kursorek.wwyplata + kursorek.winne "9,999,999,999.99" "Wydatki (koszty)" "razem" "wydatki" "wynagrodzenia" kursorek.wwyplata "999,999,999.99" wwyplata_0 - _wwyplata0 "999,999,999.99" winne_0 - _winne0 "9,999,999,999.99" "Strona: " _pageno + m.offset +multi_0 - _wreklama0 - _wwyplata0 - _winne0 "9,999,999,999.99" n5zeruj_2() kursorek.wreklama "99,999,999.99" "koszty" "reprezentacji" "i reklamy" "limitem" wreklama_0 - _wreklama0 "99,999,999.99" kursorek.uwagi 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(1,m.miesnr))+" "+ alltrim(str(m.roknr))+" r." ="K S I K A P R Z Y C H O D W I R O Z C H O D "w got "pozosta 6wwyplata_1 - wwyplata_0 - _wwyplata1 + _wwyplata0 + e9 "999,999,999.99" wwyplata_1 - _wwyplata1 + e9 "999,999,999.99" +winne_1 - winne_0 - _winne1 + _winne0 + e11 "9,999,999,999.99" winne_1 - _winne1 + e11 "9,999,999,999.99" ^multi_1 - multi_0 - _wreklama1 +_wreklama0 - _wwyplata1 + _wwyplata0 - _winne1 + _winne0 + e13 "9,999,999,999.99" 1multi_1 - _wreklama1 - _wwyplata1 - _winne1 + e13 "9,999,999,999.99" wreklama_1 - _wreklama1 + e8B "99,999,999.99" 6wreklama_1 - wreklama_0 - _wreklama1 + _wreklama0 + e8 "99,999,999.99" 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 "Lp." licz+m.numpocz "i w naturze" inne_0 - _inne0 "9,999,999,999.99" 'inne_1 - inne_0 - _inne1 + _inne0 + e14 "9,999,999,999.99" inne_1 - _inne1 + e14 "9,999,999,999.99" "(12 + 13 + 14)" WWYPLATA_0 kursorek.wwyplata WWYPLATA_1 kursorek.wwyplata WINNE_0 kursorek.winne WINNE_1 kursorek.winne MULTI_0 6kursorek.wreklama + kursorek.wwyplata + kursorek.winne MULTI_1 6kursorek.wreklama + kursorek.wwyplata + kursorek.winne WREKLAMA_0 kursorek.wreklama WREKLAMA_1 kursorek.wreklama kursorek.id m.beg_num INNE_0 kursorek.inne INNE_1 kursorek.inne pdwzorn &dst = &dst + &src DST 5 0 RODZAJ 129 miesiace MIES 5 0 AREA IOPEN 9 RETVAL 8MIESIACE MAINPATH PODM MC MIESIAC FULLYEAR SUMCIAG ..\DRUK\DRUKUTIL.PRG C:\KSIEGA\SYSTEM\ ..\DRUK\PPDWZOR.PRG ..\COMMON\TAKNIE.PRG ..\COMMON\ERRHAND.PRG ..\COMMON\NOTICE.PRG ..\COMMON\CLEAR.PRG ..\COMMON\PYTANIE.PRG ..\DRUK\SKIP.PRG ..\COMMON\CZYTAK.PRG C:\KSIEGA\DRUK\ ..\DRUK\SKIPN.PRG ..\DRUK\GETSUM.PRG ..\COMMON\FULLYEAR.PRG DRUKUTIL.FXP PPDWZOR.FXP TAKNIE.FXP ERRHAND.FXP NOTICE.FXP CLEAR.FXP PYTANIE.FXP SKIP.FXP CZYTAK.FXP D0WZORN1.FRX D0WZORN1.FRT D0WZORN2.FRX D0WZORN2.FRT D0WZORN3.FRX D0WZORN3.FRT D5WZORN1.FRX D5WZORN1.FRT D5WZORN2.FRX D5WZORN2.FRT N0WZORN1.FRX N0WZORN1.FRT N0WZORN2.FRX N0WZORN2.FRT N0WZORN3.FRX N0WZORN3.FRT N5WZORN1.FRX N5WZORN1.FRT N5WZORN2.FRX N5WZORN2.FRT SKIPN.FXP GETSUM.FXP FULLYEAR.FXP