Long IdDk =GetLineID(SetTaggedPos(FS))
Dispatch xDZo = xFactory.NewObject("BDokumentZo")
Int nErr = xDZo.Load("id=" + (Using"%l",IdDk))
Dispatch xTw = xFactory.NewObject("BTowar")
Dispatch xPoz, xRez, xDw


Dispatch excel
Dispatch wb
Dispatch ws

excel.Create("excel.Application")
wb = excel.Workbooks.Add
ws = wb.Worksheets.Add
excel.Range("b:b").numberformat = "@"

int nCount,i,lp

int errorek
lp=0
while IdDk
   nErr = xDZo.Load("id=" + (Using"%l",IdDk))

      lp+=1
      nCount = xDZo.pozycje.count()
   
      for i = 1 to i > nCount
         xPoz = xDZo.pozycje.item(i)
         errorek = xTw.load("kod="+xpoz.kod)         
         message using "%l",errorek //tutaj dostaje błąd 771
next i
IdDk = GetLineID(SetTaggedPos(NX))
wend

errorek = xTw.load((using "kod='%s'",xpoz.kod)) 

while IdDk
   nErr = xDZo.Load("id=" + (Using"%l",IdDk))

      popup(0,"Trwa wykonanie raportu...")
      popup(1,xDzo.numer)      

      nCount = xDZo.pozycje.count()
      
      for i = 1 to i > nCount
      //   lp+=1
         xPoz = xDZo.pozycje.item(i)
         xTw = GetObjByKod("BTowar",xpoz.kod)  //Ładowanie objektu towaru - Po nowemu z includa.
         if xTw.typ != 3 then
            lp+=1
            ws.cells(lp+1,1)= lp //liczba porzadkowa OK
            ws.cells(lp+1,2)= xDZo.dataWystawienia //Data wystawienia dok ZMO OK
            ws.cells(lp+1,3)= xDZo.DaneKh.KhKod //Kod kontrahenta/Wymiennie nazwa :xDZo.DaneKh.KhNazwa OK
            ws.cells(lp+1,4)= DrukujWymiary(IdDk,"zo","Temat")  // zmienna 3 - nazwa wymiaru
            ws.cells(lp+1,5)= xTw.nazwa //Rodzaj - Nazwa towaru OK
            ws.cells(lp+1,6)= fsZnaczikTw(xTw.znacznik) //Znacznik towaru
//TUTAJ COŚ TRZENBA========================
         message   using "%i",xPOz.wlasciwosci.iloscRz
            //ws.cells(lp+1,7)= ///fDoRealizacji(IdDk,i) //ilosc z pozycji nie rozliczona - nie wydana.
//============================================
            ws.cells(lp+1,8)= xpoz.jednostkaMiary   //OK
            ws.cells(lp+1,9)= xPoz.wartoscWP //Wartosć pozycji OK
            ws.cells(lp+1,10)= xDZo.opis //opis dokumentu ZMO OK
            sWaluta = xDZo.waluta
            if xDZo.waluta == "" then sWaluta = "PLN"
            ws.cells(lp+1,11)= sWaluta //OK
         endif
      next i
   

   IdDk = GetLineID(SetTaggedPos(NX))
wend

float sub fDoRealizacji(Long IdZo,int iDpoz)
   
Dispatch xDZMo = xFactory.NewObject("BDokumentZo")
Int nErrZo = xDZMo.Load("id=" + (Using"%l",IdZo))
Dispatch xPozZo, xRez, xDw
   
int k,l
xPozZo = xDZMo.pozycje.item(iDpoz)
   for k=1 to k>xPoz.Wlasciwosci.Rezerwacje.Count()
      xRez = xPoz.Wlasciwosci.Rezerwacje.item(k)
      if xRez.Typ==2 then
         for l=1 to l>xRez.Powiazania.Count()
            xDw=xRez.Powiazania.item(l)

            fDoRealizacji+=xDw.ilosc
   
         next l
      endif   
   next k

endsub