Index: FLOWTOER.mac.rou =================================================================== diff -u -r47637 -r47781 --- FLOWTOER.mac.rou (.../FLOWTOER.mac.rou) (revision 47637) +++ FLOWTOER.mac.rou (.../FLOWTOER.mac.rou) (revision 47781) @@ -257,7 +257,7 @@ .If LEVNr=$$$LevHalux Do:OLUNr MergeOLUNrs^FLOWORD6(ORDNr,OLUNr) If 'BackOrd .Set ToeleveringLijnCode=$$GeefToeleveringLijnCode^FLOWTOE(LEVNr,TOENr,TLLNr) - .Do ProductToeleveringLijnVerwijderd(LEVNr,TOENr,TLNr,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)) .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) @@ -291,7 +291,7 @@ Quit ProductToeleveringLijnVerwijderd(LeverancierNummer, ToeleveringID, ToeleveringLijnCode, ProductID, ReceptieTijdstip, Aantal, AxConfigId, AxInventTransId, AxMaatwerkGenerischItemId) - New ProductID,ToeleveringLijnCode,ProductToeleveringLijnEventData,ProductToeleveringLijnIngeboekt + 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)