kursorek bilans umowa dowolny ESCSTAT DIALOG KURSOREK IOPEN ALIASB DOWOLNY PRINT_ERR ESCON TAKNIE GETSTOP _mies ODMIANA NAZWA IOPEN _MIES SYSPATH podmioty podmioty m.nazwa=podmioty.&pole KTORY NAZWA OTWARTE PODMIOTY PODMPATH SYMBOL WaitWin errors errors komunikF ONOFF CZEKAC KOMUNIK1 KOMUNIK2 KOMUNIK3 MIOTY ILOSC IOPEN WOLNY WAITWIN ERRORS SYSPATH ERRCODE MESSAGE NA_EKRAN PYTANIE NA_EKRAN WYSUW DIALOG TAKNIE GETSTOP PRINTER_FE FAKTURY KORYGUJ RACHUNKI KORYGUJ FAKTURY VAT RACHUNKI UPROSZCZONE ERMES ERLIN ERLINNO ERDZIEN ERRHAND FEGETSTOP P32P028 P32P033 P32P038 P32P043 P32P046 P32P049 P32P052 FEP32P055 P32P058 P32P063 P32P068 P32P072 P32P077 P32P029 P32P034 P32P039 P32P059 P32P064 P32P069 P32P073 FEP32P078 P32P032 P32P037 P32P042 P32P045 P32P048 P32P051 P32P054 FEP32P057 P32P062 P32P067 P32P071 P32P076 P32P081 P32P086 P32P089 P32P094 P32P099 P32P090 P32P095 P32P100 P32P116 P32P120 P32P122 P32P028 P32P029 P32P033 P32P034 P32P038 P32P039 P32P043 FEP32P046 P32P049 P32P052 P32P055 P32P058 P32P059 P32P063 P32P064 P32P068 P32P069 P32P072 P32P073 P32P077 P32P078 P32P086 P32P089 P32P090 P32P094 P32P095 P32P099 P32P100 FEGETSTOP ESCOUT GET_MIES DANE_FIRMY DIALOG PRINTER_FE WYSUW NEW_PAGE PODTYTUL MY_ERRH SUM_85 SUM_86 SUM_88 SUM_107 SUM_108 SUM_128 SUM_DOCH SUM_DZIE 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 20 9 4 2 9 7 7 8 0 16 21 1 1 88 C FFF 0 0 0 5 0 18 17 3 1 1 F 5 0 19 23 60 1 11 F 5 0 20 25 49 1 22 F 5 0 21 27 65 1 6 F 5 0 22 9 57 1 8 F 8 0 23 9 65 1 3 24 N FFF 0 0 0 8 0 25 20 7 1 30 C FFF 0 0 0 8 0 26 20 54 1 17 28 27 N FFF 0 0 0 8 0 29 20 72 1 17 32 31 N FFF 0 0 0 5 0 33 14 2 1 3 F 8 0 34 25 72 1 17 37 36 N FFF 0 0 0 8 0 38 7 50 1 30 C FFF 0 0 0 5 0 41 14 19 1 5 F 8 0 42 20 38 1 4 C FFF 0 0 0 5 0 43 14 39 1 2 F 8 0 44 20 43 1 10 46 45 N FFF 0 0 0 5 0 47 14 45 1 5 F 5 0 48 14 60 1 4 F 5 0 49 17 20 1 1 F 5 0 50 17 39 1 1 F 5 0 51 17 47 1 1 F 5 0 52 17 62 1 1 F 5 0 53 17 80 1 1 F 5 0 54 15 72 1 6 F 5 0 55 15 79 1 9 F 7 7 13 0 1 90 = F 7 7 16 0 1 89 = F 7 7 18 0 1 89 = F 7 7 22 0 1 89 = F 7 7 24 42 1 48 = F 7 7 26 42 1 48 = F 7 7 28 42 1 48 = F 7 7 14 0 9 1 | F 7 7 14 42 14 1 | F 7 7 14 71 14 1 | F 7 7 14 89 14 1 | F 5 0 56 7 48 1 1 F 8 0 57 20 1 1 5 58 N FFF 0 0 0 5 0 59 5 56 1 15 F 5 0 60 6 47 1 34 F 5 0 62 14 77 1 7 F 7 7 14 6 9 1 | F 7 7 14 37 9 1 | F 7 7 14 53 9 1 | F 8 0 63 23 72 1 17 65 64 N FFF 0 0 0 8 0 66 27 72 1 17 68 67 N FFF 0 0 0 8 0 69 0 0 1 1 72 C FFF 0 0 0 8 0 82 0 1 1 80 C FFF 0 0 0 8 0 84 3 1 1 25 C FFF 0 0 0 8 0 87 1 1 1 50 C FFF 0 0 0 8 0 94 2 1 1 40 C FFF 0 0 0 18 98 99 T 101 2 1 18 102 103 F 105 2 0 18 106 107 T 108 1 0 7iif(liczalltrim(get_mies(2,m.miesnr))+" "+ alltrim(str(m.roknr))+" r." "Nazwa" ALLTRIM(kursorek.jm) kursorek.ilosc "999,999.99" "Cena" "(kol.4" "x kol. 5)" "R E M A N E N T" $"dla cel w prowadzonej dzia "Warto wartosc_0 "99,999,999,999.99" wartosc_1 + e1 "99,999,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 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'),' ') WARTOSC_0 kursorek.ilosc * kursorek.cena WARTOSC_1 kursorek.ilosc * kursorek.cena kursorek.nazwa 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 20 9 4 2 9 7 7 8 0 16 21 1 1 88 C FFF 0 0 0 5 0 18 17 3 1 1 F 5 0 19 23 60 1 11 F 5 0 20 25 49 1 22 F 5 0 21 27 65 1 6 F 5 0 22 9 57 1 8 F 8 0 23 9 65 1 3 24 N FFF 0 0 0 7 4 13 0 10 7 F 7 4 13 6 10 32 F 7 4 13 37 10 6 F 7 4 13 42 10 12 F 7 4 13 53 10 19 F 7 4 22 42 7 48 F 7 4 24 42 3 48 F 7 4 13 71 16 19 F 7 4 16 0 3 90 F 5 0 25 16 71 1 1 F 5 0 26 16 89 1 1 F 5 0 27 18 71 1 1 F 5 0 28 18 89 1 1 F 5 0 29 16 53 1 1 F 5 0 30 18 53 1 1 F 5 0 31 16 42 1 1 F 5 0 32 18 42 1 1 F 5 0 33 16 37 1 1 F 5 0 34 18 37 1 1 F 5 0 35 16 6 1 1 F 5 0 36 18 6 1 1 F 5 0 37 16 0 1 1 F 5 0 38 18 0 1 1 F 5 0 39 24 71 1 1 F 5 0 40 26 71 1 1 F 5 0 41 24 89 1 1 F 5 0 42 26 89 1 1 F 5 0 43 22 71 1 1 F 5 0 44 28 71 1 1 F 5 0 45 22 89 1 1 F 5 0 46 13 71 1 1 F 5 0 47 24 42 1 1 F 5 0 48 26 42 1 1 F 5 0 49 22 53 1 1 F 5 0 50 22 42 1 1 F 5 0 51 13 53 1 1 F 5 0 52 13 42 1 1 F 5 0 53 13 37 1 1 F 5 0 54 22 37 1 1 F 5 0 55 13 6 1 1 F 5 0 56 22 6 1 1 F 5 0 57 14 2 1 3 F 8 0 58 7 50 1 30 C FFF 0 0 0 5 0 61 14 19 1 5 F 5 0 62 14 39 1 2 F 5 0 63 14 45 1 5 F 5 0 64 14 60 1 4 F 5 0 65 17 20 1 1 F 5 0 66 17 39 1 1 F 5 0 67 17 47 1 1 F 5 0 68 17 62 1 1 F 5 0 69 17 78 1 1 F 5 0 70 15 72 1 6 F 5 0 71 15 79 1 9 F 5 0 72 7 48 1 1 F 8 0 73 20 7 1 30 C FFF 0 0 0 8 0 74 20 38 1 4 C FFF 0 0 0 8 0 75 20 43 1 10 77 76 N FFF 0 0 0 8 0 78 20 54 1 17 80 79 N FFF 0 0 0 8 0 81 20 72 1 17 84 83 N FFF 0 0 0 8 0 85 25 72 1 17 88 87 N FFF 0 0 0 8 0 89 20 1 1 5 90 N FFF 0 0 0 5 0 91 5 57 1 15 F 5 0 92 14 77 1 7 F 5 0 93 6 47 1 34 F 8 0 95 23 72 1 17 97 96 N FFF 0 0 0 8 0 98 27 72 1 17 100 99 N FFF 0 0 0 8 0 101 0 0 1 1 104 C FFF 0 0 0 8 0 114 0 1 1 80 C FFF 0 0 0 8 0 116 3 1 1 25 C FFF 0 0 0 8 0 119 1 1 1 50 C FFF 0 0 0 8 0 126 2 1 1 40 C FFF 0 0 0 10 1 8 41 18 130 131 T 133 2 1 18 134 135 F 137 2 0 18 138 139 T 140 1 0 7iif(liczalltrim(get_mies(2,m.miesnr))+" "+ alltrim(str(m.roknr))+" r." "Nazwa" "Cena" "(kol.4" "x kol. 5)" ALLTRIM(kursorek.nazwa) ALLTRIM(kursorek.jm) kursorek.ilosc "999,999.99" kursorek.cena "99,999,999,999.99" kursorek.ilosc * kursorek.cena "99,999,999,999.99" wartosc_1 - wartosc_0 + e1 "99,999,999,999.99" "R E M A N E N T" "Warto $"dla cel w prowadzonej dzia wartosc_0 "99,999,999,999.99" wartosc_1 + e1 "99,999,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 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'),' ') WARTOSC_0 kursorek.ilosc * kursorek.cena WARTOSC_1 kursorek.ilosc * kursorek.cena kursorek.nazwa m.beg_num m.xloc = m.xloc errors \