Index: FLOWTOER.mac.rou
===================================================================
diff -u -r46411 -r47637
--- FLOWTOER.mac.rou	(.../FLOWTOER.mac.rou)	(revision 46411)
+++ FLOWTOER.mac.rou	(.../FLOWTOER.mac.rou)	(revision 47637)
@@ -226,8 +226,8 @@
  .Do ONE^BLHIST(PRNr,RDate,Receive,(CifPPL*Receive),("T;"_TOENr))
  .Do ##class(BL.Flow.RecuPak.Main).ToelevDO(LEVNr,PRNr,Receive,TOENr,TLUNr)
  Do ##class(BL.Legacy.EWRCPS2).RegistreerReceptieTijdstipIndienGelinktInOrder(TOENr, TLUNr)
- Do ProductToeleveringLijnIngeboekt^EWRCPS2(LEVNr,TOENr,TLLNr)
  Do KWNODE^FLOWTOE(LEVNr,TOENr,TLLNr)
+ Do ProductToeleveringLijnIngeboekt^EWRCPS2(LEVNr,TOENr,TLLNr)
  For  Do ADD^vhLock("^KSPW(PRNr)") Quit:%TC  Hang 1
  Set Decimals=$$MUNT^vhRtn1(,4),R=TOENr
  For  Quit:'$D(^KSPW(PRNr,LevTW,R))  Set R=R+.1
@@ -255,7 +255,10 @@
  .Do:ASAP ASAP^EWTOE(ORDNr)
  .Set OLUNr=$P(Rec,D,15)
  .If LEVNr=$$$LevHalux Do:OLUNr MergeOLUNrs^FLOWORD6(ORDNr,OLUNr)
- If 'BackOrd Do KILL(TOENr,TLLNr)
+ 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 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)
  .Set $P(Rec,D,9)=$J(($P(Rec,D,9)/$P(Rec,D,3)*BackOrd),0,##class(APPS.VKP.OrderlijnPrijsBepaler).GeefAantalDecimalen())
@@ -286,6 +289,15 @@
  If ORDNr Do REMOVE^vhLock("^KOD(KLNr,""F"",ORDNr)")
  Do REMOVE^vhLock("^KPR(PRNr)")
  Quit
+ 
+ProductToeleveringLijnVerwijderd(LeverancierNummer, ToeleveringID, ToeleveringLijnCode, ProductID, ReceptieTijdstip, Aantal, AxConfigId, AxInventTransId, AxMaatwerkGenerischItemId)
+ New ProductID,ToeleveringLijnCode,ProductToeleveringLijnEventData,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)
+	 Set ProductToeleveringLijnVerwijderdEvent = ##class(DOM.AKP.event.ProductToelevLijnVerwijderd).%New(ProductToeleveringLijnVerwijderEventData)
+	 Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(ProductToeleveringLijnVerwijderdEvent)
+ }
  ;
  ; Opkuis bestanden
 KILL(TOENr,TLLNr)