Index: APPS/Verpakking/OrgaluxBonOptimizer.cls.xml
===================================================================
diff -u -r72329 -r72332
--- APPS/Verpakking/OrgaluxBonOptimizer.cls.xml	(.../OrgaluxBonOptimizer.cls.xml)	(revision 72329)
+++ APPS/Verpakking/OrgaluxBonOptimizer.cls.xml	(.../OrgaluxBonOptimizer.cls.xml)	(revision 72332)
@@ -177,33 +177,30 @@
 	
 	If $$$Not(BonBevatSlechtsEenDoos) {
 	 	If (MinimumAantalPallettenVoorBon = 1) {
-		 	#dim PartialLoadOnFloor As Integer = 0
-		 	For PartialLoadOnFloor=0:1:1 {
-			 	#dim Breedte As %Decimal = ..GrootsteDimensieGrondvlak
-			 	#dim Diepte As %Decimal = ..TweedeGrootsteDimensieGrondvlak
-			 	#dim Hoogte As %Decimal = $Select(..GrootsteHoogteNietKantelbaarProduct = 1: 115, 1: ..GrootsteHoogteNietKantelbaarProduct)
+		 	#dim Breedte As %Decimal = ..GrootsteDimensieGrondvlak
+		 	#dim Diepte As %Decimal = ..TweedeGrootsteDimensieGrondvlak
+		 	#dim Hoogte As %Decimal = $Select(..GrootsteHoogteNietKantelbaarProduct = 1: 115, 1: ..GrootsteHoogteNietKantelbaarProduct)
+		 	
+		 	While (Breedte <= ..#MaximumVerpakkingBreedteVoorEuropallet) {
+			 	Set Diepte = ..TweedeGrootsteDimensieGrondvlak
 			 	
-			 	While (Breedte <= ..#MaximumVerpakkingBreedteVoorEuropallet) {
-				 	Set Diepte = ..TweedeGrootsteDimensieGrondvlak
+			 	While ((Diepte <= ..#MaximumVerpakkingDiepteVoorEuropallet)) {
+				 	Set Hoogte = ..GrootsteHoogteNietKantelbaarProduct
 				 	
-				 	While ((Diepte <= ..#MaximumVerpakkingDiepteVoorEuropallet)) {
-					 	Set Hoogte = ..GrootsteHoogteNietKantelbaarProduct
-					 	
-					 	While ((Hoogte <= ..#MaximumVerpakkingHoogteVoorEuropallet)) {
-						 	Set Request = ..CubeIQRequestBuilder.MaakCubeIQRequest(BoxDataLijstVanTeStapelenDozen, Breedte, Diepte, Hoogte, PartialLoadOnFloor)
-							Set Response = ..GeefParsedCubeIQResponse(Request)
-							If (Response.cubeiq.unloadedproducts = "") {
-								If (Response.cubeiq.loadedcontainers.loadedcontainer.Count() = MinimumAantalPallettenVoorBon) {
-						 			#dim Beoordeling As %Decimal = ..GeefBeoordelingScoreVanEenOverdoos(Response.cubeiq.loadedcontainers.loadedcontainer.GetAt(1), MinimumAantalPallettenVoorBon)
-						 			Do ArrayVanResultaten.SetAt(Response, Beoordeling)
-								}
-					 		}
-					 		Set Hoogte = (Hoogte + 130)
-					 	}
-					 	Set Diepte = (Diepte + 130)
+				 	While ((Hoogte <= ..#MaximumVerpakkingHoogteVoorEuropallet)) {
+					 	Set Request = ..CubeIQRequestBuilder.MaakCubeIQRequest(BoxDataLijstVanTeStapelenDozen, Breedte, Diepte, Hoogte)
+						Set Response = ..GeefParsedCubeIQResponse(Request)
+						If (Response.cubeiq.unloadedproducts = "") {
+							If (Response.cubeiq.loadedcontainers.loadedcontainer.Count() = MinimumAantalPallettenVoorBon) {
+					 			#dim Beoordeling As %Decimal = ..GeefBeoordelingScoreVanEenOverdoos(Response.cubeiq.loadedcontainers.loadedcontainer.GetAt(1), MinimumAantalPallettenVoorBon)
+					 			Do ArrayVanResultaten.SetAt(Response, Beoordeling)
+							}
+				 		}
+				 		Set Hoogte = (Hoogte + 130)
 				 	}
-				 	Set Breedte = (Breedte + 130)
+				 	Set Diepte = (Diepte + 130)
 			 	}
+			 	Set Breedte = (Breedte + 130)
 		 	}
 		 	
 		 	#dim ResultatenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(ArrayVanResultaten)
@@ -357,7 +354,6 @@
 
 <Method name="IsOverdoosNodig">
 <FormalSpec>CubeIQResponse:APPS.Verpakking.dto.CubeIQ.Response</FormalSpec>
-<Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#dim IsOverdoosNodig As %Boolean = $$$True
@@ -1170,7 +1166,8 @@
 <Method name="Calc">
 <Description>
 Berekenen van een expressie door gebruik te maken van de waarden in Params</Description>
-<FormalSpec><![CDATA[Expression,&Params,&varErrStr:%String]]></FormalSpec>
+<FormalSpec><![CDATA[Expression:%String,&Params:%CacheString,&varErrStr:%String]]></FormalSpec>
+<Private>1</Private>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
 	Set:('$D(varErrStr)) varErrStr=""