Index: UI/PR/GA/Verlichting.cls.xml
===================================================================
diff -u -r1499 -r6545
--- UI/PR/GA/Verlichting.cls.xml	(.../Verlichting.cls.xml)	(revision 1499)
+++ UI/PR/GA/Verlichting.cls.xml	(.../Verlichting.cls.xml)	(revision 6545)
@@ -511,7 +511,7 @@
    d WL^vhDBG("Na CheckPR : "_$$RestartTimer^vhLib)
  Quit 1
 
- ;=============================================================================
+ ;============================================================================= 
 tnbInvalidPR
  New msg
  Set msg=..Product.ValidPRArrayToText(.arValidPR)
@@ -2505,7 +2505,7 @@
  Set:('$G(lblAftrek)) lblAftrek=$S(LiRe="Li":..lblAftrekLiMin, LiRe="Re":..lblAftrekReMin, 1:"")
  Quit:('lblAftrek)
  ; Set caption
- Set AftrekNew=+$J(AftrekNew,0,0)
+ Set AftrekNew=+$J(AftrekNew,0,1)
  Set lblAftrek.Caption=AftrekNew
  New txtAftrek
  Set txtAftrek=$S(LiRe="Li":..txtAftrekLi, LiRe="Re":..txtAftrekRe, 1:"")