Index: KF0.mac.rou
===================================================================
diff -u -r734 -r921
--- KF0.mac.rou	(.../KF0.mac.rou)	(revision 734)
+++ KF0.mac.rou	(.../KF0.mac.rou)	(revision 921)
@@ -63,7 +63,7 @@
  .X R
  .S PR=K S:K=PROld!'K K="-"
  S R=$P(^KPR(PR,0),D,23)
- I R="K" S R=$P(^KPR(PR,0),D),R=$$^vhTXTPOP("FLOWORD","VERKKIND","",R) G YZ:'R
+ I R="K",KC'=$$$KlantHalux S R=$P(^KPR(PR,0),D),R=$$^vhTXTPOP("FLOWORD","VERKKIND","",R) G YZ:'R
  I $E(R)="H",KC'=$$$KlantHalux S R=$P(^KPR(PR,0),D),R=$$^vhTXTPOP("FLOWORD","VERKHALFFABR","",R) G YZ:'R
  I '$L($G(EDIORDNr)) S R=##Class(CHUI.Derde.Kennis.Kennis).KlantProductUnRead(KC,PR,$LB($$$adOrderVerwerkingIngave),1,"ORD",ORDNr) G YZ:R="ANNULEER"
  G 11:UTYP="C"!(UTYP="A")