Witam zgodnie z obietnicą przedstwaiam kod dzieki ktoremu mozemy modyfikowac dokument magazynowy.
idMG to id dokumentu w bazie
Kod:
Dispatch xDk
Dispatch xBIORec
Dispatch xFunkcja
xDk = xFactory.NewObject("BDokumentMg")
xBIORec = xFactory.NewObject("BIORec")
xFunkcja = xFactory.NewObject("BFunkcja")
nErr = xDk.Load(using "id=%d", idMG)
xBIORec.SetField("id", Using "%d", xDk.id)
xBIORec.BeginSection("Pozycja dokumentu")
xBIORec.SetField("kod", tutaj kod pozycji dokumentu)
xBIORec.SetField("ilosc", tutaj ilosc)
xBIORec.SetField("nazwaDostawy", tutaj nazwa dostawy)
xBIORec.EndSection()
nErr = xFunkcja.EditMg(xBIORec)
xBIORec.Clear()
Oczywiscie mozna edytowac wszystkie pola w dokumencie. Ja w przykladzie uzylem tylko tych ktore byly mi potrzebne.
Oby poznac pola ktore sa dostepne do edycji, najlepiej wyeksportowac sobie do tekstu jeden dokument magazynowy. W srodku bedziemy mieli piekna liste pol i sekcji.
Pozdrawiam.
