Index: FLOWTOE2.mac.rou
===================================================================
diff -u -r3872 -r3941
--- FLOWTOE2.mac.rou	(.../FLOWTOE2.mac.rou)	(revision 3872)
+++ FLOWTOE2.mac.rou	(.../FLOWTOE2.mac.rou)	(revision 3941)
@@ -381,7 +381,22 @@
  }
  Quit
  ;
- ; Event bij verbreken van een KOM-link
+ ; Event bij het aanmaken van een KOM-link
+InvoerUitvoerLinkAangemaakt(LeverancierID,ToeleveringID,ToeleveringLijnID)
+ New Rec,ProductID,ToeleveringLijnCode,InvoerUitvoerLinkEventData,InvoerUitvoerLinkVerbrokenEvent,KlantID,OrderID,OrderLijnID,OrderLijnCode
+ Set Rec=^KTO(LeverancierID,ToeleveringID,ToeleveringLijnID),ProductID=$P(Rec,D,2),ToeleveringLijnCode=$$GeefToeleveringLijnCode^FLOWTOE(LeverancierID,ToeleveringID,ToeleveringLijnID)
+ Set OrderID=$P(Rec,D,27),OrderLijnID=$P(Rec,D,28)
+ If ProductID,OrderID{
+	 Set KlantID=$P(^KO1(OrderID,"F"),D)
+	 Set OrderLijnCode=$$GeefOrderLijnCode^FLOWORD(KlantID,OrderID,OrderLijnID)	 
+	 Set InvoerUitvoerLinkEventData = ##class(DOM.ProdRes.event.InvoerUitvoerLinkEventData).%New(ToeleveringID, ToeleveringLijnCode, OrderID, OrderLijnCode)
+	 Set InvoerUitvoerLinkAangemaaktEvent = ##class(DOM.ProdRes.event.InvoerUitvoerLinkAangemaaktEvent).%New(InvoerUitvoerLinkEventData)
+	 Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(InvoerUitvoerLinkAangemaaktEvent)
+	
+ }
+ Quit
+ ;
+ ; Event bij het verbreken van een KOM-link
 InvoerUitvoerLinkVerbroken(LeverancierID,ToeleveringID,ToeleveringLijnID)
  New Rec,ProductID,ToeleveringLijnCode,InvoerUitvoerLinkEventData,InvoerUitvoerLinkVerbrokenEvent,KlantID,OrderID,OrderLijnID,OrderLijnCode
  Set Rec=^KTO(LeverancierID,ToeleveringID,ToeleveringLijnID),ProductID=$P(Rec,D,2),ToeleveringLijnCode=$$GeefToeleveringLijnCode^FLOWTOE(LeverancierID,ToeleveringID,ToeleveringLijnID)