Index: FLOWTOE2.mac.rou
===================================================================
diff -u -r734 -r921
--- FLOWTOE2.mac.rou	(.../FLOWTOE2.mac.rou)	(revision 734)
+++ FLOWTOE2.mac.rou	(.../FLOWTOE2.mac.rou)	(revision 921)
@@ -7,7 +7,7 @@
  Set TLLNr=$G(TLLNr),Show=$G(Show)
  If '$D(Detail),Show Set Insert="E"
  If $D(Detail),@DL(1)@(6)=$O(Detail(""),-1),Insert="A" Set Insert="E"
- If Insert="R" Do  Quit
+ If Insert="R" Do
  .If 'TLLNr Set TLLNr=Detail(@DL(1)@(6))
  .Do KWNODE(LEVNr,TLNr,TLLNr)
  .Set ^KTO(LEVNr,TLNr,TLLNr)=Rec
@@ -17,7 +17,7 @@
  If Insert="A" Do
  .If 'TLLNr Set TLLNr=100 If $D(Detail) Set TLLNr=Detail(@DL(1)@(6)),@DL(1)@(6)=@DL(1)@(6)+1
  .Set TLLNr=$O(^KTO(LEVNr,TLNr,TLLNr)),Insert=$S('TLLNr:"E",1:"B")
- If Insert="B" Do  Quit
+ If Insert="B" Do
  .If 'TLLNr Set TLLNr=Detail(@DL(1)@(6))
  .Set FromNr=^KTO(LEVNr,TLNr,0),^KTO(LEVNr,TLNr,0)=FromNr+1
  .Set ^KTO(LEVNr,TLNr,FromNr)=Rec,ToNr=FromNr
@@ -27,14 +27,20 @@
  ..Do LSWAP(TLNr,FromNr,ToNr)
  ..Set ToNr=FromNr
  .If Show Do FETCHDET^FLOWTOE,WL^PROC
- If Insert="E" Do  Quit
+ If Insert="E" Do
  .Set TLLNr=^KTO(LEVNr,TLNr,0),^KTO(LEVNr,TLNr,0)=TLLNr+1
  .If $P(Rec,D,2),'$P(Rec,D,13) Set $P(Rec,D,13)=TLLNr-100
  .Set ^KTO(LEVNr,TLNr,TLLNr)=Rec
  .If $L($G(FBRef)),$P(Rec,D,2) Set $P(@FBRef@($P(Rec,D,2)),D,2)=TLNr,@FBRef@($P(Rec,D,2),"TLUNr")=$G(@FBRef@($P(Rec,D,2),"TLUNr"))_D_$P(Rec,D,15)
  .Do SWNODE(LEVNr,TLNr,TLLNr)
  .If $D(UL),$D(UD),UL'>$P(UD,D,2) Set UL=UL+1
  .If Show Do NIEUWV^PROC3(TLLNr)
+ 
+ Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(TLNr)
+ Set ToeleveringModifiedEventData = ##class(TECH.Events.ToeleveringModifiedEventData).%New(Toelevering)
+ Set ToeleveringModifiedEvent = ##class(TECH.Events.ToeleveringModifiedEvent).%New(ToeleveringModifiedEventData)
+ Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(ToeleveringModifiedEvent)
+ 
  Quit
  ;
  ; Insert produkt
@@ -187,6 +193,12 @@
  .Do REMOVE^vhLock("^KOD(KLNr,""F"",ORDNr)")
  Do REMOVE^vhLock("^KPR(OPRNr)")
  Do REMOVE^vhLock("^KPR(NPRNr)")
+ 
+ Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(TLNr)
+ Set ToeleveringModifiedEventData = ##class(TECH.Events.ToeleveringModifiedEventData).%New(Toelevering)
+ Set ToeleveringModifiedEvent = ##class(TECH.Events.ToeleveringModifiedEvent).%New(ToeleveringModifiedEventData)
+ Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(ToeleveringModifiedEvent)
+ 
  Quit
  ;
 GWNODE(LEVNr,TLNr,TLLNr)