Index: APPS/PM/Maatwerk/TBX/Probox/Calculator.cls.xml
===================================================================
diff -u -r11711 -r11713
--- APPS/PM/Maatwerk/TBX/Probox/Calculator.cls.xml	(.../Calculator.cls.xml)	(revision 11711)
+++ APPS/PM/Maatwerk/TBX/Probox/Calculator.cls.xml	(.../Calculator.cls.xml)	(revision 11713)
@@ -12,6 +12,11 @@
 <ReturnType>%Float</ReturnType>
 <Implementation><![CDATA[
 	Set OppervlakteAandeel=""
+
+	If $$$Not($IsValidNum(IsBinnenlade)) {
+		set Exception = ##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).InvalidInput(),"Validatie IsBinnenlade (%Boolean) is gefaald voor berekening van OppervlakteAandeel; input params "_$$$LCVT($LB("LadeVariant : "_LadeVariant,"IsBinnenlade : "_IsBinnenlade,"LadeDiepte : "_LadeDiepte,"LadeHoogte :"_LadeHoogte,"LadeZijkantHoogte :"_LadeZijkantHoogte))_".")
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
 	
 	If (LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXPlus()) || (LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXMengvorm()) { 
 		If IsBinnenlade {
@@ -220,6 +225,11 @@
 <Implementation><![CDATA[
 	Set VerpakkingHoogte=""
 	
+	If $$$Not($IsValidNum(IsBinnenlade)) {
+		set Exception = ##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).InvalidInput(),"Validatie IsBinnenlade (%Boolean) is gefaald voor berekening van VerpakkingHoogte; input params "_$$$LCVT($LB(LadeVariant,IsBinnenlade,LadeHoogte))_".")
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	
 	If (LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXPlus()) || (LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXMengvorm()) { 
 		If IsBinnenlade {
 			// Binnenlades