Index: FLOWTOE6.mac.rou
===================================================================
diff -u -r921 -r948
--- FLOWTOE6.mac.rou	(.../FLOWTOE6.mac.rou)	(revision 921)
+++ FLOWTOE6.mac.rou	(.../FLOWTOE6.mac.rou)	(revision 948)
@@ -14,11 +14,6 @@
  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)
@@ -56,10 +51,6 @@
  .Do SWNODE^FLOWTOE(LEVNr,TOENr,TLNr)
  Else  Do
  .Kill ^KTO(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 'Aantal Do CHKDEL^FLOWTOE(TOENr)
  Do:ORDNr MODOAANT(,ORDNr,OLNr,Aantal)
  Quit
@@ -87,11 +78,6 @@
  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)
@@ -203,4 +189,13 @@
 DELALLDEVSAVE
  Kill ^DEVSAVE($I,"ALLTOE")
  Quit
- ;
\ No newline at end of file
+ ;
+ ; Rebuild ^KTO2
+RebuildKTO2
+ New LEVNr,TOENr
+ Kill ^KTO2
+ Set LEVNr=0
+ For  Set LEVNr=$O(^KTO(LEVNr)) Quit:LEVNr=""  Do
+ . Set TOENr=""
+ . For  Set TOENr=$O(^KTO(LEVNr,TOENr)) Quit:TOENr=""  Set ^KTO2(LEVNr,TOENr)=""
+ Quit
\ No newline at end of file