Index: FLOWTOER.mac.rou =================================================================== diff -u -r47796 -r58879 --- FLOWTOER.mac.rou (.../FLOWTOER.mac.rou) (revision 47796) +++ FLOWTOER.mac.rou (.../FLOWTOER.mac.rou) (revision 58879) @@ -257,7 +257,7 @@ .If LEVNr=$$$LevHalux Do:OLUNr MergeOLUNrs^FLOWORD6(ORDNr,OLUNr) If 'BackOrd Do .Set ToeleveringLijnCode=$$GeefToeleveringLijnCode^FLOWTOE(LEVNr,TOENr,TLLNr) - .Do ProductToeleveringLijnVerwijderd(LEVNr,TOENr,ToeleveringLijnCode,PRNr,$P(Rec,D,30),Besteld,$P(Rec,D,56),$P(Rec,D,55),$P(Rec,D,57)) + .Do ProductToeleveringLijnVerwijderd(LEVNr,TOENr,ToeleveringLijnCode,PRNr,$P(Rec,D,30),Besteld,$P(Rec,D,56),$P(Rec,D,55),$P(Rec,D,57),ORDNr,OLNr) .Do KILL(TOENr,TLLNr) If BackOrd Do .Set Rec=^KTO(LEVNr,TOENr,TLLNr) Set:'$P(Rec,D,23) $P(Rec,D,23)=$P(Rec,D,3) @@ -290,11 +290,12 @@ Do REMOVE^vhLock("^KPR(PRNr)") Quit -ProductToeleveringLijnVerwijderd(LeverancierNummer, ToeleveringID, ToeleveringLijnCode, ProductID, ReceptieTijdstip, Aantal, AxConfigId, AxInventTransId, AxMaatwerkGenerischItemId) +ProductToeleveringLijnVerwijderd(LeverancierNummer, ToeleveringID, ToeleveringLijnCode, ProductID, ReceptieTijdstip, Aantal, AxConfigId, AxInventTransId, AxMaatwerkGenerischItemId, OrderId, OrderLijnId) New ProductToeleveringLijnVerwijderEventData,ProductToeleveringLijnVerwijderdEvent If ProductID{ #dim LeverancierID As DOM.common.PartijID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefLeverancierPartijID(LeverancierNummer) Set ProductToeleveringLijnVerwijderEventData = ##class(DOM.AKP.event.ProductToelevLijnVerwijderEventData).%New(ToeleveringID, ToeleveringLijnCode, ProductID, LeverancierID, ReceptieTijdstip, Aantal, AxConfigId, AxInventTransId, AxMaatwerkGenerischItemId) + Do ProductToeleveringLijnVerwijderEventData.SetOrderIdEnOrderlijnId(OrderId, OrderLijnId) Set ProductToeleveringLijnVerwijderdEvent = ##class(DOM.AKP.event.ProductToelevLijnVerwijderd).%New(ProductToeleveringLijnVerwijderEventData) Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(ProductToeleveringLijnVerwijderdEvent) }