IORec dok_mg
string TypDokumentu = "MM-"
string Seria = "sMM-"
string KodMagazynu = "MAXSTAL"
string KodKontrahenta = "KOMNINO"
string sKodtw = "TGWC000300X0300XK0000S235JRN---TC1G4SERU"
string sIlosc = "3"
int czyWystawiony

long sub WystawDokMg()

   int i, ok
   long id_dk_buf
   dok_mg.Clear()

   i=1
    ok = 1
//   for i=1 to i>size(rec_tw_wz)
//      if rec_tw_wz(i).ilosctw != 0 then ok = 1 : exit
//   next i
   
   if ok == 1 then
      //dok_mg.BeginSection("DokumentMG")         
      dok_mg.SetField("typDk", TypDokumentu)
      dok_mg.SetField("seria", Seria)
      dok_mg.SetField("dataWystawienia", data() )
      dok_mg.SetField("dataOperacji", data() )
      dok_mg.SetField("numer_obcy","" )
      dok_mg.SetField("dzial", KodMagazynu)
      
      dok_mg.BeginSection("DaneKh")
         dok_mg.SetField("KhKod",KodKontrahenta)//Kod_kontrahenta(rec_dok_wz(1).idkhdokwz) )   
         //dok_mg.SetField("Khnazwa", )      
         //dok_mg.SetField("Khadres", )
         //dok_mg.SetField("Khnip", )      
         //dok_mg.SetField("Khkodpocz", )
         //dok_mg.SetField("Khmiasto", )      
      dok_mg.EndSection()   
      //dok_mg.SetField("NumerZnacznika",(using "%d",GetField(dk, "znaczniki") ) )
      //dok_mg.SetField("Notatka", )
      //dok_mg.SetField("Opis", GetField(dk, "opis"))   
   
   //   for i=1 to i>1
   
   //      if rec_tw_wz(i).ilosctw != 0 then
            dok_mg.BeginSection("Pozycja dokumentu")   
               dok_mg.SetField("Kod", (sKodtw) )
               dok_mg.SetField("Lp", (using "%d",i) )
               dok_mg.SetField("Ilosc", (sIlosc) )
            //   dok_mg.SetField("Wartosc",(using "%f",rec_tw_wz(i).wartnettotw) )      
            dok_mg.EndSection()
   //      endif
   
   //   next i
   
      //dok_mg.EndSection()
      id_dk_buf = ImportMg(dok_mg)
      message using "%i",id_dk_buf
      if id_dk_buf != 0 then   
      UtworzDokumentMagazynowy(id_dk_buf,1,1)
         czyWystawiony = 1
         if WystawDokumentMagazynowy (id_dk_buf) != 0 then czyWystawiony = 2
      endif
   else
      czyWystawiony = 3
   endif

endsub