popup(1,"Tworzenie obiektu integracji..")
dbd.Create(ObjectFK(".BtDatabase"))
dbd.Open(KatalogFK(), UserFK(),BuforFK())
ItgInfo.Create(ObjectFK(".ItgInfo"))
if  ItgInfo.Info("NoRaiseError") then dbd.ErrorMode=3  //Ustawienie wyłacza generowanie wyjątków
dbd.FirmaInfo()

popup(1,"Tworzenie obiektu rozrachunków..")

rozr.Create(ObjectFK(".Rozrachunki"))
rozr.ClearParams
rozr.Open(dbd)
rozr.StanType=0
rozr.Type=3
rozr.SubjectID=131014
rozr.SubjectType=2
rozr.load

err_rozr=rozr.movefirst()
while !err_rozr
   popup(2, (using "%l", rozr.value("idtrans")))
   if rozr.value("subid")==131014 then

   endif   
   err_rozr=rozr.movenext()
wend