Index: EWRCPS2.mac.rou
===================================================================
diff -u -r734 -r3289
--- EWRCPS2.mac.rou	(.../EWRCPS2.mac.rou)	(revision 734)
+++ EWRCPS2.mac.rou	(.../EWRCPS2.mac.rou)	(revision 3289)
@@ -75,5 +75,15 @@
  Set ^RCP("D",RCPNr,"D",TOENr,TLUNr,SubTLNr)=SubRec
  Quit
  
+ ; Event bij het inboekenen van een toeleveringlijn
+ProductToeleveringLijnIngeboekt(LeverancierID,ToeleveringID,ToeleveringLijnID)
+ New Rec,ProductID,ToeleveringLijnCode,ProductToeleveringLijnEventData,ProductToeleveringLijnIngeboekt
+ Set Rec=^KTO(LeverancierID,ToeleveringID,ToeleveringLijnID),ProductID=$P(Rec,D,2),ToeleveringLijnCode=$$GeefToeleveringLijnCode^FLOWTOE(LeverancierID,ToeleveringID,ToeleveringLijnID)
+ If ProductID{
+	 Set ProductToeleveringLijnEventData = ##class(DOM.AKP.event.ProductToelevLijnEventData).%New(ToeleveringID, ToeleveringLijnCode, ProductID)
+	 Set ProductToeleveringLijnIngeboekt = ##class(DOM.AKP.event.ProductToelevLijnIngeboekt).%New(ProductToeleveringLijnEventData)
+	 Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(ProductToeleveringLijnIngeboekt)
+ }
+ 
  ; Errormeldingen 
 NOPROD ;"Geen product gedefinieerd in :"_TOENr_";"_TLUNr
\ No newline at end of file