BIORec - wystawianie dok. MM
Witam.
Co mam źle w poniższym kodzie, że wystawiają mi się dokumenty w pętli?
Czy jest możliwość 'zmuszenia' symfonii do wystawienia MM+ z automatu?
Kod:
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()
