xFunkcja.EditMg(xBIORec)
xBIORec.Clear()
xMg.Load(using "id=%l", lIdDokMg)
fWartoscWPpo=xMg.wartosc   
   xBIORec.SetField("typDk", "MM-")
   xBIORec.SetField("seria", "sMM-")
   xBIORec.SetField("dzial", "MS")
   xBIORec.SetField("rezerwacja", "2")
   xBIORec.BeginSection("danekh")
      xBIORec.SetField("khkod","MZ10")
       xBIORec.EndSection()
       xBIORec.BeginSection("Pozycja dokumentu")
      xBIORec.SetField("kod",sKodTw)
      xBIORec.SetField("opis","")
      xBIORec.SetField("jednostkaMiary","kg")
      xBIORec.BeginSection("Dostawa")
         xBIORec.SetField("nazwaDostawy", sKodDw)
         xBIORec.SetField("ilosc", sRoznicaIlosci)
          xBIORec.EndSection()
       xBIORec.EndSection()
      
   lNrMMMBuf = xFunkcja.ImportMg(xBIORec)
   lNrMMM = WystawDokumentMagazynowy(lNrMMMBuf,1)
   if lNrMMM == 0 then
      message "Nie udało się wystawienie dokumentu MM-"
      GOTO nast
   endif
   xBIORec.Clear()