Index: KF0AD.mac.rou
===================================================================
diff -u -r2782 -r3289
--- KF0AD.mac.rou	(.../KF0AD.mac.rou)	(revision 2782)
+++ KF0AD.mac.rou	(.../KF0AD.mac.rou)	(revision 3289)
@@ -178,6 +178,7 @@
  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)
+ Do ProductToeleveringLijnGemaakt^FLOWTOE2(LEVNr,TOENr,LIJNNr)
  Set B(127)=TOENr,B(128)=LIJNNr
  Do SetDueOutProductieTOELEV^FLOWHALUX(TOENr)
  Quit KLevWeek