int sub ust_RodzTw(long lId)
   dispatch xParams
   dispatch xRodzTW = xFactory.NewObject("BRodzTW")
   dispatch xTowar = xFactory.NewObject("BTowar")
   xTowar.Load(using "id=%l", lId)
//   string sKodTw=xTowar.kod: message sKodTw
   string sRodzTw=xTowar.Rodzaj.Kod:message sRodzTw
   xTowar.Edit()
   xRodzTW.Load("nazwa= 'test'")
   xTowar.UstawRodzaj(xRodzTw)
   xTowar.Save()
endsub

#define wypacz dispatch

int sub ust_RodzTw(long lId)
wypacz xParams
wypacz xTowar = xFactory.NewObject("BTowar")
xTowar.Load(using "id=%l", lId)
.....

   string sKodZo="..."
   dispatch xParams
   dispatch xZo = xFactory.NewObject("BDokumentZo")
   xZo.Load(using "kod='%s'",sKodZo)
   dispatch xKatalogZO = xFactory.NewObject("BKatalogZO")
   xZo.Edit()
   xKatalogZO.Load()
   xParams=xKatalogZO.Params()
   xParams.nazwa="\\skany"
   dispatch xWybKatZo = xKatalogZO.Give(xParams)
message xWybKatZo.nazwa
   xZo.UstawKatalog(xWybKatZo.nazwa)
   xZo.Save()