Index: FLOWORD7.mac.rou
===================================================================
diff -u -r3289 -r3941
--- FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 3289)
+++ FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 3941)
@@ -545,6 +545,7 @@
  Set $P(^KTO(LEVNr,TOENr,TLNr),D,27,28)=ORDNr_D_OLNr
  Do SWNODE^FLOWORD(KLNr,ORDNr,OLNr)
  Do SWNODE^FLOWTOE(LEVNr,TOENr,TLNr)
+ Do InvoerUitvoerLinkAangemaakt^FLOWTOE2(LEVNr,TOENr,TLNr)
  Quit
  
  ; De levertermijnen laten overeenkomen