Index: FLOWTOE6.mac.rou
===================================================================
diff -u -r3289 -r3941
--- FLOWTOE6.mac.rou	(.../FLOWTOE6.mac.rou)	(revision 3289)
+++ FLOWTOE6.mac.rou	(.../FLOWTOE6.mac.rou)	(revision 3941)
@@ -27,6 +27,7 @@
  .Do SWNODE^FLOWORD(KLNr,ORDNr,OLNr)
  .Do ProductOrderLijnGemaakt^FLOWORD2(KLNr,ORDNr,OLNr)
  .Set R=^KTO(LEVNr,TOENr,TLNr),$P(R,D,28)=OLNr,^KTO(LEVNr,TOENr,TLNr)=R
+ .Do InvoerUitvoerLinkAangemaakt^FLOWTOE2(LEVNr,TOENr,TLNr)
  .Set SwapFrom=OLNr
  .For  Do  Quit:SwapTo'>ModOLNr
  ..Set SwapTo=$O(^KOD(KLNr,"F",ORDNr,SwapFrom),-1)