Index: FLOWTOE3.mac.rou
===================================================================
diff -u -r2589 -r3289
--- FLOWTOE3.mac.rou	(.../FLOWTOE3.mac.rou)	(revision 2589)
+++ FLOWTOE3.mac.rou	(.../FLOWTOE3.mac.rou)	(revision 3289)
@@ -96,6 +96,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)
+ .Do ProductToeleveringLijnAnnulatie^FLOWTOE2(LEVNr,FromToe,FromLijn)
  .Kill ^KTO3(FromToe,$P(R,D,13,14)_D_FromLijn)
  .If LEVNr'=5005 Do
  ..Set UniekLNr=$P(R,D,13)
@@ -107,6 +108,7 @@
  Set ^KTO(LEVNr,ToToe,ToLijn)=R
  Quit:'PRNr
  Do SWNODE^FLOWTOE(LEVNr,ToToe,ToLijn)
+ Do ProductToeleveringLijnGemaakt^FLOWTOE2(LEVNr,ToToe,ToLijn)
  If ORDNr,OLNr Do
  .Set KLNr=$P(^KO1(ORDNr,"F"),D)
  .For  Do ADD^vhLock("^KOD(KLNr,""F"",ORDNr)") Quit:%TC  Do LDISP^vhLock("^KOD(KLNr,""F"",ORDNr)","Order "_ORDNr)
@@ -227,7 +229,9 @@
  .Kill ^KTOK(LEVNr,TLNr,TLLNr)
  .Quit:Extern
  .Set KLNr=$P(^KO1(ORDNr,"F"),D)
- .Do DELLINE^FLOWORD3(ORDNr,OLNr,1),RecalcCommKort^FLOWMANL("KOD",KLNr,ORDNr)
+ .Do DELLINE^FLOWORD3(ORDNr,OLNr,1)
+ .Do RecalcCommKort^FLOWMANL("KOD",KLNr,ORDNr)
+ Do ProductToeleveringLijnAnnulatie^FLOWTOE2(LEVNr,TLNr,TLLNr)
  Kill ^KTO(LEVNr,TLNr,TLLNr)
  If Extern,$O(^KTO(LEVNr,TLNr,100))="" Do
  .Set ABNr=$P(^KTO(LEVNr,TLNr,1),D,10)