Generowanie Faktury na podstawie zamówienia obcego
Witam,
Próbuję utworzyć dokument sprzedaży na podstawie Zamówienia Obcego. Dokument sprzedaży tworzę bez problemu jednak nie wiąże mi go do zamówienia (zamówienie jest dalej w statusie "Do realizacji"):
Kod:
Dim func As Object
Dim fact As Object
Dim oRec As Object
Dim err As Long
Dim id As Long
Dim idnew As Long
fact = hmf.GetApplication.PropertyAp("HFactory")
oRec = fact.NewObject("BIORec")
err = oRec.SetField("typDk", "FVS")
err = oRec.SetField("Opis", "W/g zamówienia nr: 0002/20/ZMO")
err = oRec.BeginSection("danekh")
err = oRec.SetField("khKod", "Sklep Butik")
err = oRec.EndSection()
err = oRec.BeginSection("Pozycja dokumentu")
err = oRec.SetField("kod", "testowy")
err = oRec.SetField("ilosc", "2")
err = oRec.EndSection()
func = fact.NewObject("BFunkcja")
idnew = func.ImportSp(oRec)
If idnew = 0 Then
MsgBox("Błąd dodawania dokumentu " + idnew.ToString() + " + " + err.ToString())
Else
err = func.PowiazanieZMdoHN("id1=3802 id2=" + idnew.ToString + " create=1")
MsgBox(err.ToString())
End If
nie rzuca błędem, kod się wykonuje, a PowiazanieZMdoHN zwraca 0. Jednak w programie zamówienie dalej "Do realizacji". Numer zamówienia i ID na razie wstawiłem na sztywno do testów.
Czy przypadkiem nie ma funkcji podobnej do UtworzDokumentMagazynowy która tworzyłaby odrazu powiązany dokument handlowy?
