#include "Wydruki - include"

int Sub Dekretacje()
Obliczenia obl
string sWN, sKwota, sMA, sKw, sKnt
int y
int KolTab2(1)
grow KolTab2,3
int   tbl2
int bc = Styl ( "nagłówek", 0, "bc" )
int nc = Styl ( "tekst", 0, "nc" )
int kr = Styl ( "kwota", 1, "kr" )
int j


      y = str.Pozycja(#B)+50
      tbl2 = tabela 1,4004, 200,bc,250,bc,200,bc

         ramka od 0,y,650,10,0,20

         tabela #tbl2, od 0,0
            kolumna 1, "WN"
            kolumna 2, "Kwota"
            kolumna 3, "MA"
         koniec
      koniec
      tbl2 = tabela 1,4004, 200,nc,250,kr,200,nc
      obl.Add(32,iddok)
      if obl.GetFirstZap() then
         j=0
         Do
            if j == obl.PozycjaZap then
               if sKw == kwota(obl.KwotaZap) && sKnt != obl.StronaZap then
                  if obl.StronaZap=="WN" then
                     buf = sWN
                     delete regular "\n$"
                     sWN = buf
                     sWN += obl.KontoZap + LF
                  else
                     buf = sMA
                     delete regular "\n$"
                     sMA = buf
                     sMA += obl.KontoZap + LF
                  endif
                  sKw = ""
                  sKnt = ""
               else
                  sKWota += kwota(obl.KwotaZap) + LF
                  sKw = kwota(obl.KwotaZap)
                  sKnt = obl.StronaZap
                  if obl.StronaZap=="WN" then
                     sWN += obl.KontoZap + LF
                     sMA += LF
                  else
                     sMA += obl.KontoZap + LF
                     sWN += LF
                  endif
               endif
            else
               ramka od 0,#Y,str.szer,10,0
                  tabela #tbl2, od 0,0
                     kolumna 2, sKwota
                     sKwota = ""
                     kolumna 1, sWN
                     sWN = ""
                     kolumna 3, sMA
                     sMA = ""
                  koniec
               koniec
               sKWota += kwota(obl.KwotaZap) + LF
               sKw = kwota(obl.KwotaZap)
               sKnt = obl.StronaZap
               if obl.StronaZap=="WN" then
                  sWN += obl.KontoZap + LF
                  sMA += LF
               else
                  sMA += obl.KontoZap + LF
                  sWN += LF
               endif
            endif
            j=obl.PozycjaZap
         Loop While ( obl.GetNextZap() )
         ramka od 0,#Y,str.szer,10,0
            tabela #tbl2, od 0,0
               kolumna 2, sKwota
               sKwota = ""
               kolumna 1, sWN
               sWN = ""
               kolumna 3, sMA
               sMA = ""
            koniec
         koniec
      endif


EndSub

Footer(1)

Dekretacje()