Index: FLOWTOE3.mac.rou
===================================================================
diff -u -r3431 -r3941
--- FLOWTOE3.mac.rou	(.../FLOWTOE3.mac.rou)	(revision 3431)
+++ FLOWTOE3.mac.rou	(.../FLOWTOE3.mac.rou)	(revision 3941)
@@ -97,6 +97,7 @@
  Set R=^KTO(LEVNr,FromToe,FromLijn),PRNr=$P(R,D,2),ORDNr=$P(R,D,27),OLNr=$P($P(R,D,28),";")
  If PRNr Do
  .Do KWNODE^FLOWTOE(LEVNr,FromToe,FromLijn)
+ .If ORDNr,OLNr Do InvoerUitvoerLinkVerbroken^FLOWTOE2(LEVNr,FromToe,FromLijn)
  .Do ProductToeleveringLijnAnnulatie^FLOWTOE2(LEVNr,FromToe,FromLijn)
  .Kill ^KTO3(FromToe,$P(R,D,13,14)_D_FromLijn)
  .If LEVNr'=5005 Do
@@ -115,6 +116,7 @@
  .For  Do ADD^vhLock("^KOD(KLNr,""F"",ORDNr)") Quit:%TC  Do LDISP^vhLock("^KOD(KLNr,""F"",ORDNr)","Order "_ORDNr)
  .Set R=^KOD(KLNr,"F",ORDNr,OLNr),$P(R,D,27)=ToToe,$P(R,D,28)=ToLijn,^KOD(KLNr,"F",ORDNr,OLNr)=R
  .Do REMOVE^vhLock("^KOD(KLNr,""F"",ORDNr)")
+ .Do InvoerUitvoerLinkAangemaakt^FLOWTOE2(LEVNr,ToToe,ToLijn)
  If $D(^KTOK(LEVNr,FromToe,FromLijn)) Do
  .Set R=^KTOK(LEVNr,FromToe,FromLijn),^KTOK(LEVNr,ToToe,ToLijn)=R
  .Kill ^KTOK(LEVNr,FromToe,FromLijn)