Index: FLOWORD6.mac.rou
===================================================================
diff -u -r3289 -r3291
--- FLOWORD6.mac.rou	(.../FLOWORD6.mac.rou)	(revision 3289)
+++ FLOWORD6.mac.rou	(.../FLOWORD6.mac.rou)	(revision 3291)
@@ -24,6 +24,7 @@
  .Set TLUNr=$O(^TO("IU",TOENr,TLUNr),-1)+1,$P(R,D,15)=TLUNr,$P(R,D,28)=OLNr
  .Set ^KTO(LEVNr,TOENr,TLNr)=R
  .Do SWNODE^FLOWTOE(LEVNr,TOENr,TLNr)
+ .Do ProductToeleveringLijnGemaakt^FLOWTOE2(LEVNr,TOENr,TLNr)
  .Set R=^KOD(KLNr,"F",ORDNr,OLNr),$P(R,D,28)=TLNr,^KOD(KLNr,"F",ORDNr,OLNr)=R
  .Set (SwapFrom,ReturnLocal("NewTLNr"))=TLNr
  .For  Do  Quit:SwapTo'>ModTLNr