Index: vhTools.mac.rou
===================================================================
diff -u -r734 -r1627
--- vhTools.mac.rou	(.../vhTools.mac.rou)	(revision 734)
+++ vhTools.mac.rou	(.../vhTools.mac.rou)	(revision 1627)
@@ -140,6 +140,19 @@
 	
  
  // ==========================================================================================================================================
+ // Name    : ShowLicenseInfo 
+ // Author  : Wim Vermeulen 
+ // Function: Schrijft de beschikbaarheid van de Cache licensies naar de terminal:
+ //           
+ // Uit te voeren in Terminal:  Do ShowLicenseInfo^vhTools() 
+ // ==========================================================================================================================================
+ShowLicenseInfo()
+ New BckFN,sc
+ Write "Resultaat van volgend command :  Do $system.License.ShowCounts()",!
+ Do $system.License.ShowCounts()
+ Quit ""
+ 
+ // ==========================================================================================================================================
  // Name    : BackupLicense
  // Author  : Wim Vermeulen
  // Function: Om het verloop van de Cache licensies te kunnen opvolgen:
Index: APPS/PM/Maatwerk/TBX/Probox/Calculator.cls.xml
===================================================================
diff -u -r1614 -r1627
--- APPS/PM/Maatwerk/TBX/Probox/Calculator.cls.xml	(.../Calculator.cls.xml)	(revision 1614)
+++ APPS/PM/Maatwerk/TBX/Probox/Calculator.cls.xml	(.../Calculator.cls.xml)	(revision 1627)
@@ -15,7 +15,6 @@
 	
 	If (LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXPlus()) || (LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXMengvorm()) { 
 		If IsBinnenlade {
-			/// [ Review JBL WV : PROBOX ] Wat indien ladedieptes tussen 550 en 600 ligt, foutieve lade al eerder uitgefilterd ?
 			If (LadeDiepte '> 550) {
 				// Binnenlades van 270mm tot 550mm diep 
 				Set OppervlakteAandeel=$Case(LadeHoogte, 
@@ -27,7 +26,7 @@
 													 : "")
 			}
 			Else {
-				// Binnenlades van 600mm tot 650mm diep 
+				// Binnenlades groter dan, dus 600mm en 650mm diep 
 				Set OppervlakteAandeel=$Case(LadeHoogte, 
 													"M" : 0.20 , 
 													"K" : 0.25 , 
@@ -50,7 +49,7 @@
 													 : "")
 			}
 			Else {
-				// Lades van 600mm tot 650mm diep 
+				// Lades groter dan, dus 600mm en 650mm diep 
 				Set OppervlakteAandeel=$Case(LadeHoogte, 
 													"N" : 0.14 , 
 													"M" : 0.17 , 
@@ -73,7 +72,7 @@
 													 : "")
 			}
 			Else {
-				// Binnenlades van 600mm tot 650mm diep 
+				// Binnenlades groter dan, dus 600mm en 650mm diep 
 				Set OppervlakteAandeel=$Case(LadeHoogte, 
 													"M" : 0.20 , 
 													"C" : 0.33 , 
@@ -92,7 +91,7 @@
 													 : "")
 			}
 			Else {
-				// Lades van 600mm tot 650mm diep 
+				// Lades groter dan, dus 600mm en 650mm diep 
 				Set OppervlakteAandeel=$Case(LadeHoogte, 
 													"N" : 0.14 , 
 													"M" : 0.17 , 
@@ -112,7 +111,7 @@
 													 : "")
 			}
 			Else {
-				// Binnenlades van 600mm tot 650mm diep 
+				// Binnenlades groter dan, dus 600mm en 650mm diep 
 				Set OppervlakteAandeel=$Case(LadeHoogte, 
 													"M" : 0.20 , 
 													"C" : 0.33 , 
@@ -129,7 +128,7 @@
 													 : "")
 			}
 			Else {
-				// Lades van 600mm tot 650mm diep 
+				// Lades groter dan, dus 600mm en 650mm diep 
 				Set OppervlakteAandeel=$Case(LadeHoogte, 
 													"N" : 0.14 , 
 													"M" : 0.17 , 
@@ -143,8 +142,7 @@
 	}
 	
 	If OppervlakteAandeel="" {
-		/// [ Review JBL WV : PROBOX ] Meegeven welke waardes als input gebruikt werden, zodat effectieve fout gevonden kan worden."
-		$$$ThrowError($$$errInvalidInput,"Ongeldige waarde voor berekening van OppervlakteAandeel (input params).")
+		$$$ThrowError($$$errInvalidInput,"Ongeldige waarde voor berekening van OppervlakteAandeel; input params "_$$$LCVT($LB(LadeVariant,IsBinnenlade,LadeDiepte,LadeHoogte))_".")
 	}
 
 	Quit OppervlakteAandeel
@@ -260,8 +258,7 @@
 	}
 	
 	If VerpakkingHoogte="" {
-		/// [ Review JBL WV : PROBOX ] Meegeven welke waardes als input gebruikt werden, zodat effectieve fout gevonden kan worden."
-		$$$ThrowError($$$errInvalidInput,"Ongeldige waarde voor berekening van VerpakkingHoogte (input params).")
+		$$$ThrowError($$$errInvalidInput,"Ongeldige waarde voor berekening van VerpakkingHoogte; input params "_$$$LCVT($LB(LadeVariant,IsBinnenlade,LadeHoogte))_".")
 	}
 
 	Quit VerpakkingHoogte