Index: FLOWORD6.mac.rou
===================================================================
diff -u -r3291 -r3941
--- FLOWORD6.mac.rou	(.../FLOWORD6.mac.rou)	(revision 3291)
+++ FLOWORD6.mac.rou	(.../FLOWORD6.mac.rou)	(revision 3941)
@@ -26,6 +26,7 @@
  .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
+ .Do InvoerUitvoerLinkAangemaakt^FLOWTOE2(LEVNr,TOENr,TLNr)
  .Set (SwapFrom,ReturnLocal("NewTLNr"))=TLNr
  .For  Do  Quit:SwapTo'>ModTLNr
  ..Set SwapTo=$O(^KTO(LEVNr,TOENr,SwapFrom),-1)