Index: KF0AD.mac.rou
===================================================================
diff -u -r948 -r1845
--- KF0AD.mac.rou	(.../KF0AD.mac.rou)	(revision 948)
+++ KF0AD.mac.rou	(.../KF0AD.mac.rou)	(revision 1845)
@@ -177,6 +177,7 @@
  Set ^KTO(LEVNr,TOENr,LIJNNr)=R
  Do SWNODE^FLOWTOE(LEVNr,TOENr,LIJNNr)
  Set B(127)=TOENr,B(128)=LIJNNr
+ Do SetDueOutProductieTOELEV^FLOWHALUX(TOENr)
  Quit KLevWeek
  ;
 C1 S FP=2454 W:ULT'="?" @F,"[] = ",$$EXTDATE^vhDTyp(ULT) Q