int sub UtworzDokument()
   IORec rec
   rec.SetField("typdk", "PW")
   rec.SetField("seria", "sPW")
   
   rec.SetField("termin", Data())
   rec.SetField("kodMag", "MAG")
   rec.SetField("notatka", "test")
   rec.SetField("opis", "test")
   rec.SetField("nazwaKatalogu", "Dokumenty magazynowe")
   rec.SetField("nazwaRodzaju", "Dokumenty magazynowe ")
   rec.SetField("dataWystawienia",Data())
   rec.SetField("dataOperacji",Data())
   rec.BeginSection("Pozycja dokumentu")
   rec.SetField("kod", "towar_towar")
   rec.SetField("ilosc", "1")
   rec.EndSection()
   long id = rec.ImportMG()
   if !id then
      error "Nie udało się utworzyć dokumentu."
   endif
endsub