long sub WystawDokWz()
   
   int i, ok
   long id_dk_buf
   dok_mg.Clear()
         
      dok_mg.SetField("typDk", TypDokumentu)
      dok_mg.SetField("seria", Seria)
      dok_mg.SetField("dataWystawienia",datawyst )
      dok_mg.SetField("dataOperacji", dataOper )
      dok_mg.SetField("dzial", KodMagazynu)
      
      dok_mg.BeginSection("DaneKh")
      dok_mg.SetField("KhKod",KodKontrahenta)//Kod_kontrahenta(rec_dok_wz(1).idkhdokwz) )      
      dok_mg.EndSection()   
      dok_mg.SetField("Opis",opis)      
      
            dok_mg.BeginSection("Pozycja dokumentu")   
               dok_mg.SetField("Kod", KodTowaru )
               dok_mg.SetField("Lp", "1" )
               dok_mg.SetField("Ilosc", ilosc )
            dok_mg.EndSection()
         
      //dok_mg.EndSection()
      id_dk_buf = ImportMg(dok_mg)
      if id_dk_buf != 0 then   
         czyWystawiony = 1
         dokumId = WystawDokumentMagazynowy (id_dk_buf)
         if dokumId != 0 then
            czyWystawiony = 2
            sDokumId = using "%l",dokumId
            dok_mg.clear()
            dok_mg.SetField("id", sDokumId)
            dok_mg.SetField("Seria", "1000")
            dok_mg.SetField("kod", "Test")
            EditMG(dok_mg)
         endif
      endif
      
endsub