Index: KF0AD.mac.rou
===================================================================
diff -u -r734 -r921
--- KF0AD.mac.rou	(.../KF0AD.mac.rou)	(revision 734)
+++ KF0AD.mac.rou	(.../KF0AD.mac.rou)	(revision 921)
@@ -33,6 +33,7 @@
  I $L(K) Do  I ULT="" S ULT=ULTTemp G 29
  .S ULTTemp=ULT,ULT=%INT
  .Quit:UTYP="C"  Quit:UTYP="A"
+ .If ##Class(DOM.CRM.impl.KlantVerlofPeriode).IsVerlofDag(KC,%INT) Set:'$$^vhTXTPOP("FLOW","KLVERLOF","",%EXT,$P(^KKL(^KK1(KC),0),D,2)) ULT="" Quit  ; Verlof klant
  .Quit:$$DIFFDATE^vhDTyp($$EXTDATE^vhDTyp(DefLeverDag),%EXT,"DK")\7'>10
  .Quit:$$^vhTXTPOP("FLOWORD","PLUS10WEKENPD","",%EXT,$J($$DIFFDATE^vhDTyp($$EXTDATE^vhDTyp(DefLeverDag),%EXT,"DK")\7+.5,0,0),$$EXTDATE^vhDTyp(DefLeverDag)) ; Ingegeven leverweek is meer dan 10 weken te ver
  .Set ULT=""
@@ -175,6 +176,12 @@
  Set $P(R,D,13)=LIJNNr-100,TLUNr=$$UNIEKLNR^FLOWTOE(LEVNr,TOENr),$P(R,D,15)=TLUNr
  Set ^KTO(LEVNr,TOENr,LIJNNr)=R
  Do SWNODE^FLOWTOE(LEVNr,TOENr,LIJNNr)
+ 
+ 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)
+ 
  Set B(127)=TOENr,B(128)=LIJNNr
  Quit KLevWeek
  ;