//"mixnds.sci","Mix-soft Nierozliczone dokumenty - include",70012,0,1.1.3,SYSTEM
//" Raporty Mix-soft",2400,14,62


Int st1 = Styl(Font(42,"Arial CE"),0,"styl1")
Int st2 = Styl(Font(42,"Arial CE"),-1,"styl2")
Int st3 = Styl(Font(42,"Arial CE"),1,"styl3")

int tblH = tabela 1,3, 50,st1,275,st1,225,st1, 195, st1,225, st1,250, st1,250, st1
int tblL = tabela 1,3, 50,st3,275,st2,225,st1, 195, st1,225, st3,250, st3,250, st3
int tblF = tabela 1,3, 225, st3,250, st3,250, st3

float fSumaKwota, fSumaPozostalo
int iLicz, iPierwszy
date dDataOd
date dDataDo

BaseDK mDK
int mErr

mDK.Open()


mDk.SetKey("rozliczone")
mDk.SetKeySeg("ok","0")
mDk.SetKeySeg("plattermin","")


mErr = mDk.GetRec( GE )

while mErr == 0
   //if mDk.GetField("oki") != 0 then exit
   if (mDk.GetField("khid")  == Getfield(dk,"khid")) then
   
   if iPierwszy == 0 then
   
         SetStyl ( nbl )
         print lf+"Nierozliczone dokumenty na dzień : "+ Data()+lf

         ramka od #X,#Y,1475,10,0,nGray
         tabela #tblH, od #X, #Y
                     kolumna 1, "Lp"
                     kolumna 2, "Dokument"
                     kolumna 3, "Z dnia"
                     kolumna 4, "Termin"
                     kolumna 5, "Dni po"
                     kolumna 6, "Kwota"
                     kolumna 7, "Pozostało"
         koniec
         koniec


      iPierwszy = 1
   endif


         tabela #tblL, od #X, #Y
                     kolumna 1, using "%d", iLicz+=1
                     kolumna 2, mDk.GetField("kod")
                     kolumna 3, mDk.GetField("data")
                     kolumna 4, mDk.GetField("plattermin")

                        dDataOd.FromStr(mDk.GetField("plattermin"))
                        dDataDo.Today()
                        
                     if (mDk.GetField("plattermin") < Data()) then
                        kolumna 5, Kwota( dDataDo.DaysUntil(dDataOd) )
                     else
                        kolumna 5, Kwota( 0 )            
                     endif


                     kolumna 6, Kwota(mDk.GetField("netto") + mDk.GetField("vat"))
                              fSumaKwota += mDk.GetField("netto") + mDk.GetField("vat")
                     kolumna 7, Kwota(mDk.GetField("netto") + mDk.GetField("vat") - mDk.GetField("wplaty"))
                              fSumaPozostalo += mDk.GetField("netto") + mDk.GetField("vat") - mDk.GetField("wplaty")
         koniec
   endif   
   mErr = mDk.GetRec( NX )
wend

if iPierwszy == 1 then
   ramka od #X+745,#Y,725,10,0,nGray
   tabela #tblF, od #X, #Y
               kolumna 1, "RAZEM"
               kolumna 2, Kwota(fSumaKwota)
               kolumna 3, Kwota(fSumaPozostalo)
   koniec
   koniec
endif

mDk.Close()

PrintPlatWyd(0, 1)
Notatka()
NotatkaRodz()
Dekretacje()

#include "Mix-soft Nierozliczone dokumenty - include"