Index: KPSBT.mac.rou
===================================================================
diff -u -r734 -r920
--- KPSBT.mac.rou	(.../KPSBT.mac.rou)	(revision 734)
+++ KPSBT.mac.rou	(.../KPSBT.mac.rou)	(revision 920)
@@ -107,6 +107,10 @@
  .N R
  .S R=$$^vhTXTPOP("FLOW","WARNLINES",,UZ-100,70)
  D SWNODE^FLOWTOE(LC,TR,UZ)
+ Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(TR)
+ Set ToeleveringModifiedEventData = ##class(TECH.Events.ToeleveringModifiedEventData).%New(Toelevering)
+ Set ToeleveringModifiedEvent = ##class(TECH.Events.ToeleveringModifiedEvent).%New(ToeleveringModifiedEventData)
+ Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(ToeleveringModifiedEvent)
 71 D S2 G YZ
  ;
  ; Wijzigen lijn
@@ -116,6 +120,10 @@
  D KWNODE^FLOWTOE(LC,$P(TAB(TA(6)),D,1),UZ)
 85 D S3 S $P(K,D,15)=TLUNr,@("^"_Q_"TO(LC,$P(TAB(TA(6)),D,1),UZ)")=K
  D SWNODE^FLOWTOE(LC,$P(TAB(TA(6)),D,1),UZ)
+ Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering($P(TAB(TA(6)),D,1))
+ Set ToeleveringModifiedEventData = ##class(TECH.Events.ToeleveringModifiedEventData).%New(Toelevering)
+ Set ToeleveringModifiedEvent = ##class(TECH.Events.ToeleveringModifiedEvent).%New(ToeleveringModifiedEventData)
+ Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(ToeleveringModifiedEvent)
  D S2 G YZ
  ;
  ; Verwijderen lijn
@@ -131,6 +139,14 @@
  .Set ABNr=$P(^KTO(LC,$P(K,D,1),1),D,10)
  .Do KILLAB^FLOWTOE3(LC,$P(K,D,1),ABNr)
  .K @("^"_Q_"TO(LC,$P(K,D,1))"),@("^"_Q_"TO1($P(K,D,1))"),@("^"_Q_"TO2(LC,$P(K,D,1))"),@("^"_Q_"TOB($P(K,D,1))"),^BLBeri("Z",$P(K,D,1))
+ .Set ToeleveringDeletedEventData = ##class(TECH.Events.ToeleveringDeletedEventData).%New($P(K,D,1))
+ .Set ToeleveringDeletedEvent = ##class(TECH.Events.ToeleveringDeletedEvent).%New(ToeleveringDeletedEventData)
+ .Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(ToeleveringDeletedEvent)
+ Else  Do
+ .Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering($P(K,D,1))
+ .Set ToeleveringModifiedEventData = ##class(TECH.Events.ToeleveringModifiedEventData).%New(Toelevering)
+ .Set ToeleveringModifiedEvent = ##class(TECH.Events.ToeleveringModifiedEvent).%New(ToeleveringModifiedEventData)
+ .Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(ToeleveringModifiedEvent)
 98 S KK="S" D S2
 99 S K=COMM
  ;