Index: EWORDW.mac.rou
===================================================================
diff -u -r29059 -r67493
--- EWORDW.mac.rou	(.../EWORDW.mac.rou)	(revision 29059)
+++ EWORDW.mac.rou	(.../EWORDW.mac.rou)	(revision 67493)
@@ -10,6 +10,7 @@
  Set PStat=$G(PStat)
  For  Do  Quit:Inp'=""&($L(Inp)<2)  Quit:CONSNr
  .Set Inp=$$ASKL^vhINP("EWORDW","SELECT")
+ .Set:Inp?10N Inp=$E(Inp,5,10) 
  .If Inp=""!zb Set Inp=$$LIST(ObjRef,WStat,PStat,KLNr) Quit:'Inp
  .If Inp="K" Set Inp=$$SELECT^KLANT6(1,"","Uitleveringen van klant : ") Set:Inp KLNr=Inp Set Inp="" Quit
  .If Inp="P" Set Inp=$$PROD(ObjRef,WStat,PStat,KLNr) If 'Inp Set Inp="" Quit