Dispatch xDk, xPoz

      xDk  - to np dokument zamówienia własnego

      nCount = xDk.pozycje.count

      for i=1 to i>nCount
          xPoz = xDk.pozycje.item(i)
          if xDk.czyKorekta then
             xPoz.poKorekcie.PodajKodObcy
             zw_p_kobcy = xPoz.poKorekcie.kodObcy
          else
             xPoz.PodajKodObcy
             zw_p_kobcy = xPoz.kodObcy
          endif