Index: FLOWTOE6.mac.rou
===================================================================
diff -u -r734 -r921
--- FLOWTOE6.mac.rou	(.../FLOWTOE6.mac.rou)	(revision 734)
+++ FLOWTOE6.mac.rou	(.../FLOWTOE6.mac.rou)	(revision 921)
@@ -13,6 +13,12 @@
  Set TLNr=^KTO(LEVNr,TOENr,0),^KTO(LEVNr,TOENr,0)=TLNr+1
  Set $P(R,D,13)=TLNr-100,^KTO(LEVNr,TOENr,TLNr)=R,ORDNr=$P(R,D,27),(OLNr,ModOLNr)=$P(R,D,28)
  Do SWNODE^FLOWTOE(LEVNr,TOENr,TLNr)
+ 
+ Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(TOENr)
+ 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 Do
  .Set KLNr=$P(^KO1(ORDNr,"F"),D),R=^KOD(KLNr,"F",ORDNr,OLNr),Aantal=$P(R,D,3)
  .For I=9,10,16 Set:Aantal $P(R,D,I)=$P(R,D,I)/Aantal Set $P(R,D,I)=$J($P(R,D,I)*BOQty,0,2)
@@ -50,7 +56,11 @@
  .Do SWNODE^FLOWTOE(LEVNr,TOENr,TLNr)
  Else  Do
  .Kill ^KTO(LEVNr,TOENr,TLNr)
- .Do CHKDEL^FLOWTOE(TOENr)
+ Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(TOENr)
+ 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 'Aantal Do CHKDEL^FLOWTOE(TOENr)
  Do:ORDNr MODOAANT(,ORDNr,OLNr,Aantal)
  Quit
  ;
@@ -76,6 +86,12 @@
  Set R=^KTO(LEVNr,TOENr,TLNr),$P(R,D,25)=LevWk,^KTO(LEVNr,TOENr,TLNr)=R
  Set ORDNr=$P(R,D,27),OLNr=$P(R,D,28)
  Do SWNODE^FLOWTOE(LEVNr,TOENr,TLNr)
+ 
+ Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(TOENr)
+ 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 $L(ModOrd),ORDNr,OLNr Do
  .Do:ModOrd
  ..Set KLNr=$P(^KO1(ORDNr,"F"),D)