Index: FOLTECL.mac.rou
===================================================================
diff -u -r734 -r2782
--- FOLTECL.mac.rou	(.../FOLTECL.mac.rou)	(revision 734)
+++ FOLTECL.mac.rou	(.../FOLTECL.mac.rou)	(revision 2782)
@@ -120,7 +120,8 @@
  .Set R=^KOD(KLNr,"F",ORDNr,OLNr),PRNr=$P(R,D,2),BlockId=$P(R,D,18)
  .If PRNr Do
  ..Set OLUNr=$P(R,D,15),PakketNr=$P(R,D,31) Set:'PakketNr PakketNr=999999
- ..Do KWNODE^FLOWORD(KLNr,ORDNr,OLNr) 
+ ..Do KWNODE^FLOWORD(KLNr,ORDNr,OLNr)
+ ..Do ProductOrderLijnAnnulatie^FLOWORD2(KLNr,ORDNr,OLNr)
  .If $P(BlockId,";",2)="P",$P(BlockId,";",3)=OLUNr Do  Quit
  ..Merge ^HULP(%J,$J(Count,3)_$J(PakketNr,7)_" "_Key_" "_OLNr)=^KOD(KLNr,"F",ORDNr,OLNr)
  ..Kill ^KOD(KLNr,"F",ORDNr,OLNr)
@@ -141,6 +142,7 @@
  .Set R=^KOD(KLNr,"F",ORDNr,OLNr),PRNr=$P(R,D,2),TOENr=$P(R,D,27),TLNr=$P(R,D,28)
  .If PRNr Do
  ..Do SWNODE^FLOWORD(KLNr,ORDNr,OLNr) 
+ ..Do ProductOrderLijnGemaakt^FLOWORD2(KLNr,ORDNr,OLNr)
  ..Quit:'TOENr  Quit:'TLNr
  ..Set LEVNr=$P($G(^KTO1(TOENr)),D)
  ..Quit:'LEVNr