Index: KF0AD.mac.rou
===================================================================
diff -u -r3957 -r4159
--- KF0AD.mac.rou	(.../KF0AD.mac.rou)	(revision 3957)
+++ KF0AD.mac.rou	(.../KF0AD.mac.rou)	(revision 4159)
@@ -5,7 +5,7 @@
  Q $$COMPDATE^vhDTyp(Val,"W",Op,Ref) 
  ;
 S3 I $L(BackGrnd) D IDPROD^KF0 S R=BackGrnd D ^KF0268 S BackGrnd=""
- S R="UA\"_(23+L24)_"\54\AANTAL \C3\7\\$L(K)&(""-""[K!(K?.N)!(K?1""-"".N))!(K=""""&$G(BEV))&(K'=0)\\" D R0
+ S R="UA\"_(23+L24)_"\54\AANTAL \C3\7\\$L(K)&(""-""[K!(K?.N&$E(K))!(K?1""-"".N))!(K=""""&$G(BEV))&(K'=0)\\" D R0
  I K="",BEV S (UA,K)=BEV
  G S3Z:"-,"[K
  ;I 'PSN,UAF,K>PraStock G S3