Index: FOLTECL.mac.rou
===================================================================
diff -u -r2782 -r2869
--- FOLTECL.mac.rou	(.../FOLTECL.mac.rou)	(revision 2782)
+++ FOLTECL.mac.rou	(.../FOLTECL.mac.rou)	(revision 2869)
@@ -121,7 +121,6 @@
  .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 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)
@@ -142,7 +141,6 @@
  .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