Index: FLOWTOE3.mac.rou
===================================================================
diff -u -r734 -r921
--- FLOWTOE3.mac.rou	(.../FLOWTOE3.mac.rou)	(revision 734)
+++ FLOWTOE3.mac.rou	(.../FLOWTOE3.mac.rou)	(revision 921)
@@ -107,6 +107,17 @@
  Set ^KTO(LEVNr,ToToe,ToLijn)=R
  Quit:'PRNr
  Do SWNODE^FLOWTOE(LEVNr,ToToe,ToLijn)
+ 
+ Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(FromToe)
+ Set ToeleveringModifiedEventData = ##class(TECH.Events.ToeleveringModifiedEventData).%New(Toelevering)
+ Set ToeleveringModifiedEvent = ##class(TECH.Events.ToeleveringModifiedEvent).%New(ToeleveringModifiedEventData)
+ Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(ToeleveringModifiedEvent)
+ 
+ Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(ToToe)
+ Set ToeleveringModifiedEventData = ##class(TECH.Events.ToeleveringModifiedEventData).%New(Toelevering)
+ Set ToeleveringModifiedEvent = ##class(TECH.Events.ToeleveringModifiedEvent).%New(ToeleveringModifiedEventData)
+ Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(ToeleveringModifiedEvent)
+ 
  If ORDNr,OLNr Do
  .Set KLNr=$P(^KO1(ORDNr,"F"),D)
  .For  Do ADD^vhLock("^KOD(KLNr,""F"",ORDNr)") Quit:%TC  Do LDISP^vhLock("^KOD(KLNr,""F"",ORDNr)","Order "_ORDNr)
@@ -232,6 +243,10 @@
  If Extern,$O(^KTO(LEVNr,TLNr,100))="" Do
  .Set ABNr=$P(^KTO(LEVNr,TLNr,1),D,10)
  .Kill ^KTO1(TLNr),^KTOB(TLNr),^KTO2(LEVNr,TLNr),^KTO(LEVNr,TLNr),^BLBeri("Z",TLNr)
+ .// Genereren van een deleted event voor de toelevering, gebeurt wanneer het order wordt verwijderd
+ .Set ToeleveringDeletedEventData = ##class(TECH.Events.ToeleveringDeletedEventData).%New(TLNr)
+ .Set ToeleveringDeletedEvent = ##class(TECH.Events.ToeleveringDeletedEvent).%New(ToeleveringDeletedEventData)
+ .Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(ToeleveringDeletedEvent)
  .Do KILLAB(LEVNr,TLNr,ABNr)
  Do REMOVE^vhLock("^KTO(LEVNr,TLNr,TLLNr)")
  Quit