dispatch xDK=xFactory.NewObject("BDokumentZk")
long idObiektu = 128072
xDk.Load("id="+(using "%l",idObiektu))
message xdk.kod

xDk.Edit()
xDk.UstawNumerObcy("XXXXYYYY")

int nrKom = xDk.Save()
if nrKom==0 then
   Message "Zapisano"
else
   message "Nie udalo sie. Kod: "+(using "%l",nrKom)
endif

int i
string sStndError

if xFactory.komunikaty.count then
   for i=1 to i>xFactory.komunikaty.count
      if xFactory.komunikaty.item(i).status then
         sStndError+= "Błąd nr."+(using "%d",xFactory.komunikaty.item(i).id)+": '"+xFactory.komunikaty.item(i).tresc+"'\n"//Atrybut: "+xFactory.komunikaty.item(i).nazwapola+"\n"
      else
         sStndError+="OSTRZEŻENIE !! "+xFactory.komunikaty.item(i).tresc+"\n"
      endif
   next i
   xFactory.komunikaty.clear()
else
   sStndError = "Nieznany błąd"
endif
Message sStndError


nooutput()