Index: APPS/PM/Maatwerk/TBX/Probox/Calculator.cls.xml
===================================================================
diff -u -r11713 -r64198
--- APPS/PM/Maatwerk/TBX/Probox/Calculator.cls.xml	(.../Calculator.cls.xml)	(revision 11713)
+++ APPS/PM/Maatwerk/TBX/Probox/Calculator.cls.xml	(.../Calculator.cls.xml)	(revision 64198)
@@ -14,7 +14,7 @@
 	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))_".")
+		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)
 	}
 	
@@ -31,7 +31,7 @@
 													 : "")
 			}
 			Else {
-				// Binnenlades groter dan, dus 600mm en 650mm diep 
+				// Binnenlades groter dan 550, dus 600mm en 650mm diep 
 				Set OppervlakteAandeel=$Case(LadeHoogte, 
 													"M" : 0.20 , 
 													"K" : 0.25 , 
@@ -66,7 +66,7 @@
 			}
 		}
 	} 
-	ElseIf LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXIntivo() { 
+	ElseIf (LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXIntivo()) { 
 		If IsBinnenlade {
 			If (LadeDiepte '> 550) {
 				// Binnenlades van 270mm tot 550mm diep 
@@ -96,7 +96,7 @@
 													 : "")
 			}
 			Else {
-				// Lades groter dan, dus 600mm en 650mm diep 
+				// Lades groter dan 550, dus 600mm en 650mm diep 
 				Set OppervlakteAandeel=$Case(LadeHoogte, 
 													"N" : 0.14 , 
 													"M" : 0.17 , 
@@ -106,7 +106,7 @@
 			}
 		}
 	}
-	ElseIf LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXAntaro() { 
+	ElseIf (LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXAntaro()) { 
 		If IsBinnenlade {
 			If (LadeDiepte '> 550) {
 				// Binnenlades van 270mm tot 550mm diep 
@@ -144,7 +144,7 @@
 													 : "")
 			}
 			Else {
-				// Lades groter dan, dus 600mm en 650mm diep 
+				// Lades groter dan 550, dus 600mm en 650mm diep 
 				Set OppervlakteAandeel=$Case(LadeHoogte, 
 													"N" : 0.14 , 
 													"M" : 0.17 , 
@@ -161,8 +161,8 @@
 	}
 	
 	If OppervlakteAandeel="" {
-		set Message = "Ongeldige waarde voor berekening van OppervlakteAandeel; input params "_$$$LCVT($LB("LadeVariant : "_LadeVariant,"IsBinnenlade : "_IsBinnenlade,"LadeDiepte : "_LadeDiepte,"LadeHoogte :"_LadeHoogte))_"."
-		set Exception = ##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).InvalidInput(),Message)
+		Set Message = "Ongeldige waarde voor berekening van OppervlakteAandeel; input params "_$$$LCVT($LB("LadeVariant : "_LadeVariant,"IsBinnenlade : "_IsBinnenlade,"LadeDiepte : "_LadeDiepte,"LadeHoogte :"_LadeHoogte))_"."
+		Set Exception = ##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).InvalidInput(),Message)
 		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
 
@@ -213,7 +213,7 @@
 <FormalSpec>Lade:DOM.PM.TBXProduct.TBXLade</FormalSpec>
 <ReturnType>%Float</ReturnType>
 <Implementation><![CDATA[
-	set IsBinnenlade = (Lade.GeefLadeType()=##class(DOM.PM.enu.TBXLadeType).BinnenLade())
+	Set IsBinnenlade = (Lade.GeefLadeType()=##class(DOM.PM.enu.TBXLadeType).BinnenLade())
 	Quit ..GeefVolumeAandeel(Lade.GeefVariant(),IsBinnenlade,Lade.GeefLadeDiepte(),Lade.GeefZijwandHoogte(),Lade.GeefZijkantHoogte(),Lade.GeefInbouwBreedte())
 ]]></Implementation>
 </Method>
@@ -226,7 +226,7 @@
 	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))_".")
+		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)
 	}
 	
@@ -337,7 +337,7 @@
 <FormalSpec>Lade:DOM.PM.TBXProduct.TBXLade</FormalSpec>
 <ReturnType>APPS.PM.Maatwerk.TBX.Probox.dto.WikkelInfo</ReturnType>
 <Implementation><![CDATA[
-	set IsBinnenlade = (Lade.GeefLadeType()=##class(DOM.PM.enu.TBXLadeType).BinnenLade())
+	Set IsBinnenlade = (Lade.GeefLadeType()=##class(DOM.PM.enu.TBXLadeType).BinnenLade())
 	Quit ..GeefWikkelInfo(Lade.GeefVariant(),IsBinnenlade,Lade.GeefZijwandHoogte(),Lade.GeefZijkantHoogte(),Lade.GeefInbouwBreedte())
 ]]></Implementation>
 </Method>