Index: EWTOE.mac.rou
===================================================================
diff -u -r49732 -r50229
--- EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 49732)
+++ EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 50229)
@@ -208,6 +208,7 @@
  ...Set Rec=^KTO(LEVNr,TOENr,TLNr)
  ...New r Set r=$P(Rec,D,28),$P(r,";")=OLNr,$P(Rec,D,28)=r
  ...Set ^KTO(LEVNr,TOENr,TLNr)=Rec
+ ...Do ProductToeleveringLijnGesplitst(LEVNr,TOENr,ToeleveringLijnCode,PRNr,$P(Rec,D,30),AantWMS,$P(Rec,D,56),$P(Rec,D,55),$P(Rec,D,57))
  ..Do REMOVE^vhLock("^KOD(KLNr,""F"",ORDNr)")
  If ORDNr Do
  .Quit:'$D(^KO1(ORDNr,"F"))
@@ -249,6 +250,16 @@
  }
  Quit
  
+ProductToeleveringLijnGesplitst(LeverancierNummer, ToeleveringID, ToeleveringLijnCode, ProductID, ReceptieTijdstip, Aantal, AxConfigId, AxInventTransId, AxMaatwerkGenerischItemId)
+ New ProductToeleveringLijnGesplitstEventData,ProductToeleveringLijnGesplitstEvent
+ If ProductID{	 
+	 #dim LeverancierID As DOM.common.PartijID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefLeverancierPartijID(LeverancierNummer)
+	 Set ProductToeleveringLijnGesplitstEventData = ##class(DOM.AKP.event.ProductToelevLijnGesplitstEventData).%New(ToeleveringID, ToeleveringLijnCode, ProductID, LeverancierID, ReceptieTijdstip, Aantal, AxConfigId, AxInventTransId, AxMaatwerkGenerischItemId)
+	 Set ProductToeleveringLijnGesplitstEvent = ##class(DOM.AKP.event.ProductToelevLijnGesplitst).%New(ProductToeleveringLijnGesplitstEventData)
+	 Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(ProductToeleveringLijnGesplitstEvent)
+ }
+ Quit
+ 
  ; Om KOM-links op niveau van een kind van het product uit het order-lijn te ondersteunen...
 WijzigAantalIndienKind(AantalInToelevering,PRNrUitToelevering,PRNrUitOrder)
 	&SQL(SELECT KindBSKey INTO :Sleutel 
@@ -706,4 +717,3 @@
 
 
 
-