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=""
Index: vhUnitTest/APPS/Verpakking/OrgaluxBonOptimizer/Test.cls.xml
===================================================================
diff -u -r72329 -r72332
--- vhUnitTest/APPS/Verpakking/OrgaluxBonOptimizer/Test.cls.xml	(.../Test.cls.xml)	(revision 72329)
+++ vhUnitTest/APPS/Verpakking/OrgaluxBonOptimizer/Test.cls.xml	(.../Test.cls.xml)	(revision 72332)
@@ -195,12 +195,21 @@
 ]]></Implementation>
 </Method>
 
-<Method name="OverdoosWordtGeblokkeerdBijBonMetMaar1Product">
+<Method name="TestOverdoosWordtGeblokkeerdBijBonMetMaar1Product">
+<Implementation><![CDATA[	Do $$$AssertEquals(..OrgaluxBonOptimizer.IsOverdoosNodig(..GeefCubeIQResponseMetProductId(1251071)), $$$False)
+]]></Implementation>
 </Method>
 
-<Method name="OverdoosWordtNietGeblokkeerdBijBonMetMaar1ProductDieBasisPakketIs">
+<Method name="TestOverdoosWordtGeblokkeerdBijBonMetMaar1ProductMaarQuantity2">
+<Implementation><![CDATA[	Do $$$AssertEquals(..OrgaluxBonOptimizer.IsOverdoosNodig(..GeefCubeIQResponseMetProductId(1251071, 2)), $$$True)
+]]></Implementation>
 </Method>
 
+<Method name="TestOverdoosWordtNietGeblokkeerdBijBonMetMaar1ProductDieBasisPakketIs">
+<Implementation><![CDATA[	Do $$$AssertEquals(..OrgaluxBonOptimizer.IsOverdoosNodig(..GeefCubeIQResponseMetProductId(4009484, 1)), $$$True)
+]]></Implementation>
+</Method>
+
 <Method name="SnijDataWordtGoedAangemaaktVoorGenesteProducten">
 <Description>
 1x1 doos en 1x2 (boxdata w goed gevonden)</Description>
@@ -268,6 +277,35 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefCubeIQResponseMetProductId">
+<FormalSpec>ProductId:%Integer,Aantal:%Integer=1</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Verpakking.dto.CubeIQ.Response</ReturnType>
+<Implementation><![CDATA[
+	Set Response = ##class(APPS.Verpakking.dto.CubeIQ.Response).%New()
+	Set CubeIQ = ##class(APPS.Verpakking.dto.CubeIQ.Response.CubeIQ).%New()
+	Set LoadedContainers = ##class(APPS.Verpakking.dto.CubeIQ.Response.LoadedContainers).%New()
+	Set LoadedContainer = ##class(APPS.Verpakking.dto.CubeIQ.Response.LoadedContainer).%New()
+	Set List = ##class(%ListOfObjects).%New()
+	Do List.Insert(LoadedContainer)
+	Set LoadedContainers.loadedcontainer = List
+	
+	Set Blocks = ##class(APPS.Verpakking.dto.CubeIQ.Response.Blocks).%New()
+	Set Block = ##class(APPS.Verpakking.dto.CubeIQ.Response.Block).%New()
+	Set Block.productid = "PR||"_ProductId_"||1"
+	Set Block.quantity = Aantal
+	Set List = ##class(%ListOfObjects).%New()
+	Do List.Insert(Block)
+	Set Blocks.block = List
+	
+	Set Response.cubeiq = CubeIQ
+	Set Response.cubeiq.loadedcontainers = LoadedContainers
+	Set Response.cubeiq.blocks = Blocks
+	
+	Quit Response
+]]></Implementation>
+</Method>
+
 <Method name="MaakOLBonData">
 <Private>1</Private>
 <Implementation><![CDATA[
Index: vhTest/Mock/APPS/Verpakking/OrgaluxBonOptimizer.cls.xml
===================================================================
diff -u -r72244 -r72332
--- vhTest/Mock/APPS/Verpakking/OrgaluxBonOptimizer.cls.xml	(.../OrgaluxBonOptimizer.cls.xml)	(revision 72244)
+++ vhTest/Mock/APPS/Verpakking/OrgaluxBonOptimizer.cls.xml	(.../OrgaluxBonOptimizer.cls.xml)	(revision 72332)
@@ -9,23 +9,78 @@
 <Inheritance>right</Inheritance>
 
 <Method name="%OnNew">
+<FormalSpec>DoosFactory:APPS.Verpakking.DoosFactory="",DoosAanvuller:APPS.Verpakking.DoosAanvuller="",Optimizer:APPS.Verpakking.Optimizer="",CubeIQRequestBuilder:APPS.Verpakking.CubeIQRequestBuilder</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="GeefLijstVanTeVerpakkenProducten">
-<FormalSpec>Bon:DOM.VKP.Bon</FormalSpec>
+<Method name="BepaalMinimumAantalPallettenVoorBon">
+<FormalSpec>BoxDataLijstVanTeStapelenDozen:%ListOfObjects</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("BepaalMinimumAantalPallettenVoorBon",BoxDataLijstVanTeStapelenDozen)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBesteStapeling">
+<FormalSpec>BoxDataLijstVanTeStapelenDozen:%ListOfObjects</FormalSpec>
+<ReturnType>APPS.Verpakking.dto.CubeIQ.Response</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefBesteStapeling",BoxDataLijstVanTeStapelenDozen)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBoxDataVoorBonMetNesting">
+<FormalSpec>BonID:%String</FormalSpec>
 <ReturnType>%ListOfObjects</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefLijstVanTeVerpakkenProducten",Bon)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefBoxDataVoorBonMetNesting",BonID)
 ]]></Implementation>
 </Method>
 
+<Method name="GroepeerBoxDataIndienNodig">
+<FormalSpec>BoxDataLijst:%ListOfObjects</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GroepeerBoxDataIndienNodig",BoxDataLijst)
+]]></Implementation>
+</Method>
+
+<Method name="IsOverdoosNodig">
+<FormalSpec>CubeIQResponse:APPS.Verpakking.dto.CubeIQ.Response</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("IsOverdoosNodig",CubeIQResponse)
+]]></Implementation>
+</Method>
+
+<Method name="MaakMetaDataVoorSnijOpdracht">
+<FormalSpec><![CDATA[BoxDataMetID:DS.Prod.OptiBox.BoxDataMetID,&OptiData:DS.Prod.OptiBox.OptiData,ProductAantal:%Integer,Sequentie:%String="",ProductId:%String="",SnijDataParent:DS.Prod.OptiBox.SnijData="",SnijDataBoxParent:DS.Prod.OptiBox.SnijData="",OptiDataParent:DS.Prod.OptiBox.OptiData="",OptiDataBoxParent:DS.Prod.OptiBox.OptiData="",AfbeeldingCode:%String=""]]></FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("MaakMetaDataVoorSnijOpdracht",BoxDataMetID,.OptiData,ProductAantal,Sequentie,ProductId,SnijDataParent,SnijDataBoxParent,OptiDataParent,OptiDataBoxParent,AfbeeldingCode)
+]]></Implementation>
+</Method>
+
 <Method name="Optimize">
-<FormalSpec>BONNr:%String</FormalSpec>
-<Implementation><![CDATA[	do ..VerwerkMethodCall("Optimize",BONNr)
+<FormalSpec>BonId:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Optimize",BonId)
 ]]></Implementation>
 </Method>
+
+<Method name="ProcessCubeIQResponse">
+<FormalSpec>CubeIQResponse:APPS.Verpakking.dto.CubeIQ.Response,BoxDataLijstVanTeMakenKartons:%ListOfObjects,OrigineleBoxDataLijst:%ListOfObjects</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ProcessCubeIQResponse",CubeIQResponse,BoxDataLijstVanTeMakenKartons,OrigineleBoxDataLijst)
+]]></Implementation>
+</Method>
+
+<Method name="VergrootDimensiesVoorKartonsMetBufferzone">
+<FormalSpec>BoxDataLijst:%ListOfObjects</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("VergrootDimensiesVoorKartonsMetBufferzone",BoxDataLijst)
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderNietTeStapelenKartons">
+<FormalSpec>BoxDataLijst:%ListOfObjects</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("VerwijderNietTeStapelenKartons",BoxDataLijst)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Fake/APPS/Verpakking/CubeIQRequestBuilder.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/Verpakking/CubeIQRequestBuilder.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/Verpakking/CubeIQRequestBuilder.cls.xml	(revision 72332)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.Verpakking.CubeIQRequestBuilder">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Verpakking.CubeIQRequestBuilder</Super>
+
+<Method name="MaakCubeIQRequest">
+<FormalSpec>BoxDataLijst:%ListOfObjects,BreedteOverdoos:%Decimal,DiepteOverdoos:%Decimal,HoogteOverdoos:%Decimal,Partialloadonfloor:%Boolean=0,MinFillPercentage:%Decimal=0</FormalSpec>
+<ReturnType>APPS.Verpakking.dto.CubeIQ.Request</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/APPS/Verpakking/OrgaluxBonOptimizer.cls.xml
===================================================================
diff -u -r72244 -r72332
--- vhTest/Fake/APPS/Verpakking/OrgaluxBonOptimizer.cls.xml	(.../OrgaluxBonOptimizer.cls.xml)	(revision 72244)
+++ vhTest/Fake/APPS/Verpakking/OrgaluxBonOptimizer.cls.xml	(.../OrgaluxBonOptimizer.cls.xml)	(revision 72332)
@@ -7,18 +7,85 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>APPS.Verpakking.OrgaluxBonOptimizer</Super>
 
+<Method name="BepaalMinimumAantalPallettenVoorBon">
+<FormalSpec>BoxDataLijstVanTeStapelenDozen:%ListOfObjects</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="Calc">
+<FormalSpec><![CDATA[Expression:%String,&Params:%String,&varErrStr:%String]]></FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="GeefBesteStapeling">
+<FormalSpec>BoxDataLijstVanTeStapelenDozen:%ListOfObjects</FormalSpec>
+<ReturnType>APPS.Verpakking.dto.CubeIQ.Response</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefBoxDataVoorBonMetNesting">
+<FormalSpec>BonID:%String</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="GeefLijstVanTeVerpakkenProducten">
 <FormalSpec>Bon:DOM.VKP.Bon</FormalSpec>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
 
+<Method name="GroepeerBoxDataIndienNodig">
+<FormalSpec>BoxDataLijst:%ListOfObjects</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="IsOverdoosNodig">
+<FormalSpec>CubeIQResponse:APPS.Verpakking.dto.CubeIQ.Response</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="MaakMetaDataVoorSnijOpdracht">
+<FormalSpec><![CDATA[BoxDataMetID:DS.Prod.OptiBox.BoxDataMetID,&OptiData:DS.Prod.OptiBox.OptiData,ProductAantal:%Integer,Sequentie:%String="",ProductId:%String="",SnijDataParent:DS.Prod.OptiBox.SnijData="",SnijDataBoxParent:DS.Prod.OptiBox.SnijData="",OptiDataParent:DS.Prod.OptiBox.OptiData="",OptiDataBoxParent:DS.Prod.OptiBox.OptiData="",AfbeeldingCode:%String=""]]></FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="Optimize">
 <FormalSpec>BONNr:%String</FormalSpec>
 <Implementation><![CDATA[
 ]]></Implementation>
 </Method>
+
+<Method name="ProcessCubeIQResponse">
+<FormalSpec>CubeIQResponse:APPS.Verpakking.dto.CubeIQ.Response,BoxDataLijstVanTeMakenKartons:%ListOfObjects,OrigineleBoxDataLijst:%ListOfObjects</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VergrootDimensiesVoorKartonsMetBufferzone">
+<FormalSpec>BoxDataLijst:%ListOfObjects</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderNietTeStapelenKartons">
+<FormalSpec>BoxDataLijst:%ListOfObjects</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/APPS/Verpakking/CubeIQRequestBuilder.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/Verpakking/CubeIQRequestBuilder.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/Verpakking/CubeIQRequestBuilder.cls.xml	(revision 72332)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.Verpakking.CubeIQRequestBuilder">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Verpakking.CubeIQRequestBuilder,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="%OnNew">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="MaakCubeIQRequest">
+<FormalSpec>BoxDataLijst:%ListOfObjects,BreedteOverdoos:%Decimal,DiepteOverdoos:%Decimal,HoogteOverdoos:%Decimal,Partialloadonfloor:%Boolean=0,MinFillPercentage:%Decimal=0</FormalSpec>
+<ReturnType>APPS.Verpakking.dto.CubeIQ.Request</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("MaakCubeIQRequest",BoxDataLijst,BreedteOverdoos,DiepteOverdoos,HoogteOverdoos,Partialloadonfloor,MinFillPercentage)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>