Int Sub Opis_FWewn(Long IdDk)
   
   Dispatch xDz = xFactory.NewObject("BDokumentZk")
   Dispatch xBIORec = xFactory.NewObject("BIORec")
   Dispatch xFunkcja = xFactory.NewObject("BFunkcja")
   Dispatch xPoz
   xDz.Load("id=" + (Using"%l",IdDk))
   string sOpis
   string sNrObcy
   string sNumer
   int k
   Dispatch xP


//if xDz.typDk == "FWO" || xDz.typDk == "FWN" then
if xDz.czyFakturaWewnetrzna then
   If !xDz.czyKorekta >0 Then
      sNumer = xDz.numer
      for k = 1 to k>xDZ.powiazaneDk.count()
         xP = xDz.powiazaneDk.item(k)
      
         if xP.dkId then
            sNrObcy = DokPowiazany(xP.dkId)
         endif
      next k
      
      sOpis = sNumer +" "+sNrObcy
      xBIORec.SetField("id", Using "%l", xDz.id)
      xBIORec.SetField("numer", sOpis)
      xDz.UstawNumerDK

      xFactory.SetSuperUser(1)
      xFunkcja.EditZK(xBIORec)
      
      xFactory.SetSuperUser(0)
   EndIf
endif
EndSub