Edycja dokumentu magazynowego - dostawy
Witam (HMF2010-2a)
Czy któś z kolegów jest mi wstanie odpowiedzieć na pytanie, dlaczego w pozycji dokumentu magazynowego MM- ,nie mogę dodać konkretnej nazwy dostawy ???.
1. Zakładam dokument magazynowy (przesunięcie magazynowe MM-) (jest OK)
2. Włączam go do edycji poprzez BIOrec (jest OK)
3. Dodaję pozycję (jest OK)
4. Do pozycji dodaję dostawę (i jest problem, dokumet ustawiony w trym "ze wskazaniem dostaw" i mimo tego ,że podaję nazwę dostawy jaka ma być zapamiętana , to handel i tak podstawia nazwę dostawy z FIFO magazynu)
PS. Interesuje mnie każde rozwiązanie które działa na zasadzie :
Zakładam dokumet i poprzez edycję dodaję kolejne pozycje z dostawami.
PS2. Wszystko działa dobrze jak dodaję dokument przy pomocy IORec, ale tam jest tylko import już gotowego dokumetu (w całości), a to mnie nie urządza.
Przyład kodu jaki używam:
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)
PokazBledy("")
xBIORec.SetField("id", Using "%d", xDk.id)
xBIORec.BeginSection("Pozycja dokumentu")
xBIORec.SetField("kod", Wyrob(IleWyrobow - 1).kod)
xBIORec.SetField("ilosc", using "%d", Wyrob(IleWyrobow - 1).ilosc(1))
xBIORec.BeginSection("Dostawa")
xBIORec.SetField("nazwa_dostawy", Wyrob(IleWyrobow - 1).paleta(1))
xBIORec.SetField("ilosc", using "%d", Wyrob(IleWyrobow - 1).ilosc(1))
xBIORec.EndSection()
xBIORec.EndSection()
nErr = xFunkcja.EditMg(xBIORec)
xBIORec.Clear()
PokazBledy("")
Dziwna jest natomiast sytuacja kiedy podaję w sekcji "dostawa" jako nazwę pola dostawa "nazwa_dostawy" nie dodaje się wogóle cała pozycja.
Kod:
xBIORec.SetField("nazwa_dostawy", Wyrob(IleWyrobow - 1).paleta(1))
Natomiast jak jako nazwę dostawy wpisze cokolwiek wówczas nazwa dostawy jest wybrana przez HMF z kolejki z magazynu, a HMF nie zwraca błędu.
Kod:
xBIORec.SetField("blablabla", Wyrob(IleWyrobow - 1).paleta(1))
Pozdrawiam.
