Index: RPLMBON.mac.rou
===================================================================
diff -u -r734 -r918
--- RPLMBON.mac.rou	(.../RPLMBON.mac.rou)	(revision 734)
+++ RPLMBON.mac.rou	(.../RPLMBON.mac.rou)	(revision 918)
@@ -246,7 +246,7 @@
  
  For  Do  Quit:X'?.N  Quit:$$CHKAANT^FLOW(KC,PRNr,X)
  .Set X=$P(^KPR(PRNr,0),D,23) 
- .If X="K" Set X=$P(^KPR(PRNr,0),D),X=$$^vhTXTPOP("FLOWORD","VERKKIND","",X) If 'X Set X="-" Quit
+ .If X="K",KC'=$$$KlantHalux Set X=$P(^KPR(PRNr,0),D),X=$$^vhTXTPOP("FLOWORD","VERKKIND","",X) If 'X Set X="-" Quit
  .If $E(X)="H",KC'=$$$KlantHalux Set X=$P(^KPR(PRNr,0),D),X=$$^vhTXTPOP("FLOWORD","VERKHALFFABR","",X) If 'X Set X="-" Quit
  .Set %R=24,%C=1,prompt="Aantal stuks : ",ln=6
  .Set X=$P($G(^MBLOG("D",$$IO^cQ5,KC,PRNr)),D)