Index: BURSTOCK.mac.rou
===================================================================
diff -u -r734 -r3289
--- BURSTOCK.mac.rou	(.../BURSTOCK.mac.rou)	(revision 734)
+++ BURSTOCK.mac.rou	(.../BURSTOCK.mac.rou)	(revision 3289)
@@ -53,6 +53,7 @@
  Set ^KTO(LevNr,TLNr,TLLNr)=Rec
  Do LRECALC^FLOWTOE(LevNr,TLNr,TLLNr,0,1)
  Do SWNODE^FLOWTOE(LevNr,TLNr,TLLNr)
+ Do ProductToeleveringLijnGemaakt^FLOWTOE2(LevNr,TLNr,TLLNr)
  Lock -^KTO(LevNr,TLNr)
  Quit TLNr