Index: KF0A.mac.rou
===================================================================
diff -u -r734 -r921
--- KF0A.mac.rou	(.../KF0A.mac.rou)	(revision 734)
+++ KF0A.mac.rou	(.../KF0A.mac.rou)	(revision 921)
@@ -30,7 +30,9 @@
  I $L(K) Do  G 29:ULT=""
  .S:K?.N&($P(%EXT,"/",2)<%WK) $P(%EXT,"/")=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp(,"J","+1"),"J")
  .S ULT=%EXT
- .Quit:UTYP="C"  Quit:UTYP="A"  Quit:$$DIFFDATE^vhDTyp(ULTTemp,%EXT,"DW")/7'>10
+ .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(ULTTemp,%EXT,"DW")/7'>10
  .Quit:$$^vhTXTPOP("FLOWORD","PLUS10WEKEN","",%EXT,$$DIFFDATE^vhDTyp(ULTTemp,%EXT,"DW")/7,ULTTemp)  ; Ingegeven leverweek is meer dan 10 weken te ver
  .Set ULT=""
 31 I UTYP="C" D  G 29:K="-",47:K="," I $L(K) S ULTE=K
@@ -170,6 +172,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
  ;