Index: FLOWORD.mac.rou
===================================================================
diff -u -r2314 -r2617
--- FLOWORD.mac.rou	(.../FLOWORD.mac.rou)	(revision 2314)
+++ FLOWORD.mac.rou	(.../FLOWORD.mac.rou)	(revision 2617)
@@ -623,8 +623,28 @@
  ..For  Set TempORDNr=$O(ORDNrs(TempORDNr)) Quit:TempORDNr=""  Kill:$$ISORGAL^FLOWCHK("O",TempORDNr) ORDNrs(TempORDNr)
  ..If $$ISORGAL^FLOWCHK("O",ORDNrs) Set ORDNrs=$O(ORDNrs("")) Kill:ORDNrs ORDNrs(ORDNrs)
  .Do PRINT(.Data)
+ 
+ // Event raisen dat het order gesloten is
+ Do RaiseOrderGeslotenEvent(ORDNr)
+ 
+ // Ook een event raisen voor alle gelinkte orders die zijn aangemaakt
+ New GelinkteOrders,GelinkteOrdersIterator
+ Set GelinkteOrders = $Piece(^KOD(KLNr,"F",ORDNr,1),D,41)
+ Set GelinkteOrdersIterator = ##class(TECH.PiecesIterator).%New(GelinkteOrders,";")
+ While (GelinkteOrdersIterator.HasNext())
+ {
+	 Do RaiseOrderGeslotenEvent(GelinkteOrdersIterator.Next())
+ }
+ 
  Quit
  
+RaiseOrderGeslotenEvent(ORDNr)
+ New EventData,Event
+ Set EventData = ##class(DOM.VKP.event.OrderGeslotenEventData).%New(ORDNr)
+ Set Event = ##class(DOM.VKP.event.OrderGeslotenEvent).%New(EventData)
+ Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(Event)
+ Quit
+ 
  ;
  ; Call back voor het opnemen van de elementen 'fax voorblad'
 PopUpInclElement(Element)
Index: DOM/VKP/event/OrderGeslotenEventData.cls.xml
===================================================================
diff -u
--- DOM/VKP/event/OrderGeslotenEventData.cls.xml	(revision 0)
+++ DOM/VKP/event/OrderGeslotenEventData.cls.xml	(revision 2617)
@@ -0,0 +1,43 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.VKP.event.OrderGeslotenEventData">
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.PubSub.EventData</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="OrderID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>OrderID:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..OrderID = OrderID
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrderID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..OrderID
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>OrderGeslotenEventDataState</State>
+<Data name="OrderGeslotenEventDataState">
+<Structure>listnode</Structure>
+<Subscript>"DOM.VKP.event.OrderGeslotenEventData"</Subscript>
+<Value name="1">
+<Value>OrderID</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: DOM/VKP/event/OrderGeslotenEvent.cls.xml
===================================================================
diff -u
--- DOM/VKP/event/OrderGeslotenEvent.cls.xml	(revision 0)
+++ DOM/VKP/event/OrderGeslotenEvent.cls.xml	(revision 2617)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.VKP.event.OrderGeslotenEvent">
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.PubSub.Event</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="%OnNew">
+<FormalSpec>Data:DOM.VKP.event.OrderGeslotenEventData</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+ 	Set ..Type = "OrderGeslotenEvent"
+	Quit ##super(Data)
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+</Storage>
+</Class>
+</Export>