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)
Index: EWTOE.mac.rou
===================================================================
diff -u -r47636 -r47781
--- EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 47636)
+++ EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 47781)
@@ -175,7 +175,7 @@
  If 'AantBo 
  .Set ToeleveringLijnCode=$$GeefToeleveringLijnCode^FLOWTOE(LEVNr,TOENr,TLNr)
  .Do KILL(TOENr,TLNr)
- .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))
  If AantBo Do
  .Set Rec=^KTO(LEVNr,TOENr,TLNr) Set:'$P(Rec,D,23) $P(Rec,D,23)=$P(Rec,D,3)
  .Set $P(Rec,D,9)=$J(($P(Rec,D,9)/$P(Rec,D,3)*AantBo),0,##class(APPS.VKP.OrderlijnPrijsBepaler).GeefAantalDecimalen())
@@ -240,7 +240,7 @@
  Quit
  
 ProductToeleveringLijnVerwijderd(LeverancierNummer, ToeleveringID, ToeleveringLijnCode, ProductID, ReceptieTijdstip, Aantal, AxConfigId, AxInventTransId, AxMaatwerkGenerischItemId)
- New ProductID,ToeleveringLijnCode,ProductToeleveringLijnEventData,ProductToeleveringLijnIngeboekt
+ New ProductToeleveringLijnVerwijderEventData,ProductToeleveringLijnIngeboekt
  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)
@@ -707,4 +707,3 @@
 
 
 
-