Index: APPS/Verpakking/OrgaluxBonOptimizer.cls.xml
===================================================================
diff -u -r72244 -r72246
--- APPS/Verpakking/OrgaluxBonOptimizer.cls.xml	(.../OrgaluxBonOptimizer.cls.xml)	(revision 72244)
+++ APPS/Verpakking/OrgaluxBonOptimizer.cls.xml	(.../OrgaluxBonOptimizer.cls.xml)	(revision 72246)
@@ -141,33 +141,39 @@
 <Method name="Optimize">
 <FormalSpec>BonId:%String</FormalSpec>
 <Implementation><![CDATA[
-	Do ..Logger.Info("Optimize bon orgalux", "Start optimize bon " _ BonId _".")	
-	Set ..BonId = BonId
-	Set ..CubeIQRequestBuilder.ContainerId = ..#ContainerId
- 	Set ..CubeIQRequestBuilder.LoadId = ..#ContainerId _ "_" _ ..BonId
-	
- 	#dim OrigineleBoxDataLijst As List of DS.Prod.OptiBox.BoxData = ..GeefBoxDataVoorBonMetNesting(BonId)
- 	#dim BoxDataLijstVanTeMakenKartons As List of DS.Prod.OptiBox.BoxData = ..GroepeerBoxDataIndienNodig(OrigineleBoxDataLijst)
- 	#dim BoxDataLijstVanTeStapelenDozen As List of DS.Prod.OptiBox.BoxData = ..VerwijderNietTeStapelenKartons(BoxDataLijstVanTeMakenKartons)
- 	Do ..BepaalGrootsteGrondOppervlak(BoxDataLijstVanTeStapelenDozen)
- 	
- 	#dim CubeIQResponse As APPS.Verpakking.dto.CubeIQ.Response = ..GeefBesteStapeling(BoxDataLijstVanTeStapelenDozen)
- 	Set ..JobId = $Piece(CubeIQResponse.cubeiq.loads.load.GetAt(1).jobid, "-", 1)
- 	
- 	If $$$Not(..ZijnAfbeeldingenGegenereerdVoorBesteStapeling()) {
-	 	#dim FoutOmschrijving As %String = "Geen afbeelding gevonden voor optimale stapeling gevonden voor bon "_ ..BonId _" met JobId "_ ..JobId _ ". Hierdoor is de optimalisatie van de bon ook niet afgerond. Probeer manueel de stapeling van de bon opnieuw te optimaliseren."
-		Do ..Logger.ErrorMail("Optimaliseer bon orgalux", FoutOmschrijving)
-		Set Exception = ##class(TECH.Exceptions.DataNotFoundException).%New(FoutOmschrijving)	
-		Do ##class(TECH.ExceptionHandler).Throw(Exception)
- 	}
- 	
-	Do ..SnijDataRepository.VerwijderViaBonId(..BonId)	
-	
-	
-	Do ..ProcessCubeIQResponse(CubeIQResponse, OrigineleBoxDataLijst)
-	Do ..MaakOptiboxQueue()
-	
-	Do ..Logger.Info("Optimize bon orgalux", "Finished optimize bon " _ BonId _".")
+	//Try {
+		Do ..Logger.Info("Optimize bon orgalux", "Start optimize bon " _ BonId _".")	
+		Set ..BonId = BonId
+		Set ..CubeIQRequestBuilder.ContainerId = ..#ContainerId
+	 	Set ..CubeIQRequestBuilder.LoadId = ..#ContainerId _ "_" _ ..BonId
+		
+	 	#dim OrigineleBoxDataLijst As List of DS.Prod.OptiBox.BoxData = ..GeefBoxDataVoorBonMetNesting(BonId)
+	 	
+	 	#dim BoxDataLijstVanTeMakenKartons As List of DS.Prod.OptiBox.BoxData = ..GroepeerBoxDataIndienNodig(OrigineleBoxDataLijst)
+	 	#dim BoxDataLijstVanTeStapelenDozen As List of DS.Prod.OptiBox.BoxData = ..VerwijderNietTeStapelenKartons(BoxDataLijstVanTeMakenKartons)
+	 	Do ..BepaalGrootsteGrondOppervlak(BoxDataLijstVanTeStapelenDozen)
+	 	
+	 	#dim CubeIQResponse As APPS.Verpakking.dto.CubeIQ.Response = ..GeefBesteStapeling(BoxDataLijstVanTeStapelenDozen)
+	 	Set ..JobId = $Piece(CubeIQResponse.cubeiq.loads.load.GetAt(1).jobid, "-", 1)
+	 	Do ##class(Tools.Wlip).%New(110).String("Best run: "_..JobId)
+	 	If $$$Not(..ZijnAfbeeldingenGegenereerdVoorBesteStapeling()) {
+		 	#dim FoutOmschrijving As %String = "Geen afbeelding gevonden voor optimale stapeling gevonden voor bon "_ ..BonId _" met JobId "_ ..JobId _ ". Hierdoor is de optimalisatie van de bon ook niet afgerond. Probeer manueel de stapeling van de bon opnieuw te optimaliseren."
+			Do ..Logger.ErrorMail("Optimaliseer bon orgalux", FoutOmschrijving)
+			Set Exception = ##class(TECH.Exceptions.DataNotFoundException).%New(FoutOmschrijving)	
+			Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	 	}
+	 	
+		Do ..SnijDataRepository.VerwijderViaBonId(..BonId)	
+		
+		
+		Do ..ProcessCubeIQResponse(CubeIQResponse, OrigineleBoxDataLijst)
+		Do ..MaakOptiboxQueue()
+		
+		Do ..Logger.Info("Optimize bon orgalux", "Finished optimize bon " _ BonId _".")
+	/*} Catch {
+		Set Exception = ##class(TECH.ExceptionHandler).Catch()
+	}
+	*/
 ]]></Implementation>
 </Method>
 
@@ -205,11 +211,11 @@
 							}
 				 		}
 					 	
-				 		Set Hoogte = (Hoogte + 180)
+				 		Set Hoogte = (Hoogte + 80)
 				 	}
-				 	Set Diepte = (Diepte + 180)
+				 	Set Diepte = (Diepte + 80)
 			 	}
-			 	Set Breedte = (Breedte + 180)
+			 	Set Breedte = (Breedte + 80)
 		 	}
 	 	}
 	 	
@@ -295,9 +301,9 @@
 			
 			If (Block.containerseqno = NummerOverdoos) {
 				#dim BoxDataId As %String = $Piece(Block.productid, "-", 1)
-				#dim BoxData As DS.Prod.OptiBox.BoxData = ..BoxDataRepository.GeefBoxDataViaID(BoxDataId)
+				#dim BoxData As DS.Prod.OptiBox.BoxDataMetID =  ..GeefOrigineleBoxDataUitLijst(BoxDataLijst, BoxDataId)
 				
-				#dim AantalExtraDelenVanVerpakking As %Integer = ..BoxDataRepository.GeefAantalDelenVanBoxData(BoxData.%Id())
+				#dim AantalExtraDelenVanVerpakking As %Integer = ..BoxDataRepository.GeefAantalDelenVanBoxData(BoxData.OrigineleBoxDataID)
 				#dim OptiDataDoos As DS.Prod.OptiBox.OptiData = ""
 				#dim SnijDataDoos As DS.Prod.OptiBox.SnijData
 				#dim AfbeeldingCodeDoos As %String = ..GeefGetalAangevuldMetVoorloopNullen(NummerOverdoos, 2) _"_"_ ..GeefGetalAangevuldMetVoorloopNullen(NummerAfbeelding, 3)_".jpg"
@@ -313,7 +319,7 @@
 					While (Block.quantity > 0) {
 						Set SnijDataDoos = ..MaakMetaDataVoorSnijOpdracht(BoxData, .OptiDataDoos, 1, NummerDoos, BoxData.ObjRef, "", SnijDataOverdoosBodem, OptiDataOverdoosBodem, "", AfbeeldingCodeDoos)
 					
-						#dim DelenVanBoxDataIterator As TECH.Iterator = ..BoxDataRepository.ZoekDeelVanBoxDataViaId(BoxData.%Id())
+						#dim DelenVanBoxDataIterator As TECH.Iterator = ..BoxDataRepository.ZoekDeelVanBoxDataViaId(BoxDataId)
 						While DelenVanBoxDataIterator.HasNext() {
 							#dim DeelVanBoxData As DS.Prod.OptiBox.BoxData = DelenVanBoxDataIterator.Next()
 							#dim OptiDataInnerDoos As DS.Prod.OptiBox.OptiData = ""
@@ -332,26 +338,46 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefOrigineleBoxDataUitLijst">
+<FormalSpec>BoxDataLijst:%ListOfObjects,BoxDataID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>DS.Prod.OptiBox.BoxDataMetID</ReturnType>
+<Implementation><![CDATA[
+	#dim BoxDataMetIDIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(BoxDataLijst)
+	#dim OrigineleBoxData As DS.Prod.OptiBox.BoxDataMetID
+	
+	While BoxDataMetIDIterator.HasNext() {
+		#dim BoxData As DS.Prod.OptiBox.BoxDataMetID = BoxDataMetIDIterator.Next()
+		
+		If (BoxData.OrigineleBoxDataID = BoxDataID) {
+			Set OrigineleBoxData = BoxData
+		}
+	}
+	
+	Quit OrigineleBoxData
+]]></Implementation>
+</Method>
+
 <Method name="MaakMetaDataVoorSnijOpdrachtenOverdoos">
 <FormalSpec><![CDATA[Overdoos:APPS.Verpakking.dto.CubeIQ.Response.LoadedContainer,&OptiData:DS.Prod.OptiBox.OptiData,AfbeeldingCode:%String,SnijDataParent:DS.Prod.OptiBox.SnijData=""]]></FormalSpec>
 <Private>1</Private>
 <ReturnType>DS.Prod.OptiBox.SnijData</ReturnType>
 <Implementation><![CDATA[
 	If (##class(DS.Prod.OptiBox.BoxData).%ExistsId("OL||Overdoos||1")) {
 		Set BoxDataOverdoos = ##class(DS.Prod.OptiBox.BoxData).%OpenId("OL||Overdoos||1")
-		Set BoxDataOverdoos = BoxDataOverdoos.%ConstructClone()
 	} Else {
 		#dim FoutOmschrijving As %String = "Geen boxdata gevonden voor boxdataID: 'OL||Overdoos||1'."
 		Do ..Logger.ErrorMail("Optimaliseer bon orgalux", FoutOmschrijving)
 		Set Exception = ##class(TECH.Exceptions.DataNotFoundException).%New(FoutOmschrijving)	
 		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
 	
-	Set BoxDataOverdoos.Breedte = Overdoos.overallwidth
-	Set BoxDataOverdoos.Diepte = Overdoos.overalllength
-	Set BoxDataOverdoos.Hoogte = Overdoos.overallheight
+	#dim BoxDataOverdoosAangevuld As DS.Prod.OptiBox.BoxData = BoxDataOverdoos.%ConstructClone()
+	Set BoxDataOverdoosAangevuld.Breedte = Overdoos.overallwidth
+	Set BoxDataOverdoosAangevuld.Diepte = Overdoos.overalllength
+	Set BoxDataOverdoosAangevuld.Hoogte = Overdoos.overallheight
 	#dim SnijData As DS.Prod.OptiBox.SnijData = ..MaakSnijDataVoorOverdoos(BoxDataOverdoos, Overdoos, .OptiData, AfbeeldingCode, SnijDataParent)
-	#dim SnijDefOverdoos As DS.Prod.OptiBox.sub.emSnijDef = ..MaakSnijDef(BoxDataOverdoos)
+	#dim SnijDefOverdoos As DS.Prod.OptiBox.sub.emSnijDef = ..MaakSnijDef(BoxDataOverdoosAangevuld)
 	Do SnijData.SnijDefs.SetAt(SnijDefOverdoos, ##class(APPS.Verpakking.enu.MachineID).VH())
 	#dim SaveStatus As %Status = SnijData.%Save()
 	
@@ -362,12 +388,12 @@
 </Method>
 
 <Method name="MaakMetaDataVoorSnijOpdracht">
-<FormalSpec><![CDATA[BoxData:DS.Prod.OptiBox.BoxData,&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>
+<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[
 	#dim Product As DOM.PM.Product = $Select(..ProductAPI.BestaatProduct(ProductId)= $$$False: "", 1: ..ProductAPI.GeefProduct(ProductId))
-	Set OptiData = ..MaakOptiData(BoxData, Product, OptiDataParent, OptiDataBoxParent)
-	#dim SnijData As DS.Prod.OptiBox.SnijData = ..MaakSnijData(BoxData, Sequentie, OptiData, Product, SnijDataParent, SnijDataBoxParent, ProductAantal, AfbeeldingCode)
-	#dim SnijDef As DS.Prod.OptiBox.sub.emSnijDef = ..MaakSnijDef(BoxData)
+	Set OptiData = ..MaakOptiData(BoxDataMetID, Product, OptiDataParent, OptiDataBoxParent)
+	#dim SnijData As DS.Prod.OptiBox.SnijData = ..MaakSnijData(BoxDataMetID, Sequentie, OptiData, Product, SnijDataParent, SnijDataBoxParent, ProductAantal, AfbeeldingCode)
+	#dim SnijDef As DS.Prod.OptiBox.sub.emSnijDef = ..MaakSnijDef(BoxDataMetID)
 	Do SnijData.SnijDefs.SetAt(SnijDef, ##class(APPS.Verpakking.enu.MachineID).VH())
 	
 	#dim SaveStatus As %Status = SnijData.%Save()
@@ -383,16 +409,16 @@
 <Implementation><![CDATA[
 	#dim BoxDataIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(BoxDataLijst)
 	While BoxDataIterator.HasNext() {
-		#dim BoxData As DS.Prod.OptiBox.BoxData = BoxDataIterator.Next()
-		#dim BoxDataGroep As DS.Prod.OptiBox.BoxData
-		If $$$Not(BoxData.VolumeVan = "") 
+		#dim BoxDataMetID As DS.Prod.OptiBox.BoxDataMetID = BoxDataIterator.Next()
+		If $$$Not(BoxDataMetID.VolumeVan = "") 
 		{
-			If (BoxData.VolumeVan.%Id() = "OL||Antislipmat groep||1") {
+			If (BoxDataMetID.VolumeVan.%Id() = "OL||Antislipmat groep||1") {
+				//TODO echte boxdata ophalen ..BoxDataRepository.GeefBoxDataViaID(BoxDataId)
 				#dim Index as %Integer = 0
-				#dim Product As DOM.PM.Product = $Select(..ProductAPI.BestaatProduct(BoxData.ObjRef)= $$$False: "", 1: ..ProductAPI.GeefProduct(BoxData.ObjRef))
-				#dim OptiData As DS.Prod.OptiBox.OptiData = ..MaakOptiData(BoxData, Product, OptiDataParent)
-				For Index=1:1:BoxData.Aantal {
-					#dim SnijDataMat As DS.Prod.OptiBox.SnijData = ..MaakSnijData(BoxData, "", OptiData, Product, ParentSnijData, ParentSnijData, 1)
+				#dim Product As DOM.PM.Product = $Select(..ProductAPI.BestaatProduct(BoxDataMetID.ObjRef)= $$$False: "", 1: ..ProductAPI.GeefProduct(BoxDataMetID.ObjRef))
+				#dim OptiData As DS.Prod.OptiBox.OptiData = ..MaakOptiData(BoxDataMetID, Product, OptiDataParent)
+				For Index=1:1:BoxDataMetID.Aantal {
+					#dim SnijDataMat As DS.Prod.OptiBox.SnijData = ..MaakSnijData(BoxDataMetID, "", OptiData, Product, ParentSnijData, ParentSnijData, 1)
 				}
 			}			
 		}
@@ -401,11 +427,11 @@
 </Method>
 
 <Method name="MaakSnijDef">
-<FormalSpec>BoxData:DS.Prod.OptiBox.BoxData</FormalSpec>
+<FormalSpec>BoxDataMetID:DS.Prod.OptiBox.BoxDataMetID</FormalSpec>
 <Private>1</Private>
 <ReturnType>DS.Prod.OptiBox.sub.emSnijDef</ReturnType>
 <Implementation><![CDATA[
-	#dim Doos As APPS.Verpakking.dto.Doos = ..GeefGeoptimaliseerdeDoos(BoxData)
+	#dim Doos As APPS.Verpakking.dto.Doos = ..GeefGeoptimaliseerdeDoos(BoxDataMetID)
 	
 	Set SnijDef = ##class(DS.Prod.OptiBox.sub.emSnijDef).%New()
 	Set SnijDef.CardboardID = Doos.CardBoardID
@@ -429,15 +455,15 @@
 </Method>
 
 <Method name="GeefGeoptimaliseerdeDoos">
-<FormalSpec>BoxData:DS.Prod.OptiBox.BoxData</FormalSpec>
+<FormalSpec>BoxDataMetID:DS.Prod.OptiBox.BoxDataMetID</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.Verpakking.dto.Doos</ReturnType>
 <Implementation><![CDATA[
 	#dim MachineID As %String = ##class(APPS.Verpakking.enu.MachineID).VH()
 	#dim MachineTechnologie As APPS.Verpakking.enu.MachineTechnologie = ##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.Verpakking.MachineTechnologie_"_MachineID)
-	#dim Doos As APPS.Verpakking.dto.Doos = ..DoosFactory.MaakDoos(BoxData.Meta.PPSGroep, BoxData.Meta.Name)
-	Do ..DoosAanvuller.VulAanBasisInformatieDoos(.Doos, .Params, BoxData.Meta.PPSGroep, MachineTechnologie, "", MachineID, BoxData.ObjRef, BoxData)
-	Do ..Optimizer.Optimize(.Doos, BoxData.Meta.PPSGroep, MachineTechnologie, MachineID)
+	#dim Doos As APPS.Verpakking.dto.Doos = ..DoosFactory.MaakDoos(BoxDataMetID.Meta.PPSGroep, BoxDataMetID.Meta.Name)
+	Do ..DoosAanvuller.VulAanBasisInformatieDoos(.Doos, .Params, BoxDataMetID.Meta.PPSGroep, MachineTechnologie, "", MachineID, BoxDataMetID.ObjRef, BoxDataMetID)
+	Do ..Optimizer.Optimize(.Doos, BoxDataMetID.Meta.PPSGroep, MachineTechnologie, MachineID)
 
 	Quit Doos
 ]]></Implementation>
@@ -466,7 +492,7 @@
 	Set SnijData.Breedte = (Overdoos.overallwidth + 10) //Extra cm zodat dozen makkelijk in overdoos geraken
 	Set SnijData.Hoogte = Overdoos.overallheight	
 	Set SnijData.CreatieTijdStip = ..GeefHuidigeTimeStamp()
-	Do ##class(Tools.Wlip).%New(110).ObjToText(OptiData)
+	
 	If (OptiData = "") {
 		Set OptiData = ##class(DS.Prod.OptiBox.OptiData).%New()	
 		Set OptiData.BoxData = BoxData
@@ -477,11 +503,11 @@
 		Set OptiData.ProductAantal = 1
 		Set OptiData.DoosAantal = 1
 		Set OptiData.Status = "L"
-		Do ##class(Tools.Wlip).%New(110).ObjToText(OptiData)
+		
 		#dim SaveStatus As %Status = OptiData.%Save()
 		Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(SaveStatus,"Het bewaren van OptiData voor de overdozen is niet gelukt.")
 	}
-	Do ##class(Tools.Wlip).%New(110).String("Na save?")
+	
 	Set SnijData.OptiData = OptiData
 	Set SnijData.ObjLijnRef = "*"
 	Set SnijData.ObjRef = ..BonId
@@ -497,7 +523,7 @@
 	Set SnijData.SnijMachineID = ##class(APPS.Verpakking.enu.MachineID).VH()
 	Set SnijData.Status = "O"
 	Set SnijData.Simulate = $$$False
-		
+	
 	Set SaveStatus = SnijData.%Save()
 	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(SaveStatus,"Het bewaren van SnijData voor de overdozen in MaakSnijData is niet gelukt.")
 	Set SnijData.BoxDeelVan = $Select(SnijDataBodem = "":SnijData, 1: SnijDataBodem)
@@ -510,13 +536,13 @@
 </Method>
 
 <Method name="MaakSnijData">
-<FormalSpec>BoxData:DS.Prod.OptiBox.BoxData,Sequentie:%Integer,OptiData:DS.Prod.OptiBox.OptiData,Product:DOM.PM.Product,SnijDataParent:DS.Prod.OptiBox.SnijData,SnijDataBoxParent:DS.Prod.OptiBox.SnijData,ProductAantal:%Integer,AfbeeldingCode:%String=""</FormalSpec>
+<FormalSpec>BoxDataMetID:DS.Prod.OptiBox.BoxDataMetID,Sequentie:%Integer,OptiData:DS.Prod.OptiBox.OptiData,Product:DOM.PM.Product,SnijDataParent:DS.Prod.OptiBox.SnijData,SnijDataBoxParent:DS.Prod.OptiBox.SnijData,ProductAantal:%Integer,AfbeeldingCode:%String=""</FormalSpec>
 <Private>1</Private>
 <ReturnType>DS.Prod.OptiBox.SnijData</ReturnType>
 <Implementation><![CDATA[
 	Set SnijData = ##class(DS.Prod.OptiBox.SnijData).%New()
 	
-	Set SnijData.BoxData = BoxData
+	Set SnijData.BoxData = $Select(BoxDataMetID.%Id() = "": ..BoxDataRepository.GeefBoxDataViaID(BoxDataMetID.OrigineleBoxDataID), 1 : BoxDataMetID)
 	If $$$Not(AfbeeldingCode = "") {
 		Set SnijData.StapelImage = "https://" _ ##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.Verpakking.OrgaluxBonOptimizer.ImageURL") _"/" _ ..JobId_"_Overdoos_"_..BonId _"_default_" _ AfbeeldingCode
 	}
@@ -532,44 +558,44 @@
 		Set SnijData.BoxParent = SnijDataParent
 	}
 	
-	If (BoxData.VolumeVan = "") {
-		Set SnijData.BoxSelect = BoxData.Meta.BoxSelect.GetAt(1).Naam
+	If (BoxDataMetID.VolumeVan = "") {
+		Set SnijData.BoxSelect = BoxDataMetID.Meta.BoxSelect.GetAt(1).Naam
 	}
 	
-	If $$$Not(BoxData.DeelVan = "") {
+	If $$$Not(BoxDataMetID.DeelVan = "") {
 		Set SnijData.BoxUsage = "SUB"
 		Set SnijData.PPSPrioriteit = 40
-	} ElseIf $$$Not(BoxData.VolumeVan = "") {
+	} ElseIf $$$Not(BoxDataMetID.VolumeVan = "") {
 		Set SnijData.BoxUsage = "VOL"
 		Set SnijData.PPSPrioriteit = 1
 	} Else {
 		Set SnijData.BoxUsage = "BOX"
 		Set SnijData.PPSPrioriteit = 10
 	}
 	
-	Set SnijData.Diepte = BoxData.Diepte
-	Set SnijData.Breedte = BoxData.Breedte
-	Set SnijData.Hoogte = BoxData.Hoogte	
+	Set SnijData.Diepte = BoxDataMetID.Diepte
+	Set SnijData.Breedte = BoxDataMetID.Breedte
+	Set SnijData.Hoogte = BoxDataMetID.Hoogte	
 	Set SnijData.CreatieTijdStip = ..GeefHuidigeTimeStamp()	
 	Set SnijData.OptiData = OptiData
 	Set SnijData.ObjRef = ..BonId
 	Set SnijData.ObjType = "L"
-	Set SnijData.ProductRef = ..GeefKorttekst(BoxData.ObjRef)
+	Set SnijData.ProductRef = ..GeefKorttekst(BoxDataMetID.ObjRef)
 	Set SnijData.OptiID = ..JobId	
-	Set SnijData.PPSGroep = BoxData.Meta.PPSGroep
-	If $$$Not(BoxData.VolumeVan = "") {
-		If (BoxData.VolumeVan.%Id() = "OL||Antislipmat groep||1") {
+	Set SnijData.PPSGroep = BoxDataMetID.Meta.PPSGroep
+	If $$$Not(BoxDataMetID.VolumeVan = "") {
+		If (BoxDataMetID.VolumeVan.%Id() = "OL||Antislipmat groep||1") {
 			Set SnijData.PPSSubgroep = "MAT"
 		}
 		Set SnijData.Status = "VF"
 	} Else {
-		Set SnijData.PPSSubgroep = BoxData.Meta.PPSSubgroep	
+		Set SnijData.PPSSubgroep = BoxDataMetID.Meta.PPSSubgroep	
 		Set SnijData.Status = "O"
 	}
 	
 	Set SnijData.Aantal = 1
 	Set SnijData.ProductAantal = ProductAantal
-	Set SnijData.PRNr = +BoxData.ObjRef
+	Set SnijData.PRNr = +BoxDataMetID.ObjRef
 	Set SnijData.Reference = "L." _ ..BonId _ "."_ OptiData.%Id()
 	;Set SnijData.SnijHistoriek = "????????????????????????????"
 	If (Sequentie > 0) {
@@ -605,13 +631,13 @@
 </Method>
 
 <Method name="MaakOptiData">
-<FormalSpec>BoxData:DS.Prod.OptiBox.BoxData,Product:DOM.PM.Product="",OptiDataParent:DS.Prod.OptiBox.OptiData="",OptiDataBoxParent:DS.Prod.OptiBox.OptiData=""</FormalSpec>
+<FormalSpec>BoxDataMetID:DS.Prod.OptiBox.BoxDataMetID,Product:DOM.PM.Product="",OptiDataParent:DS.Prod.OptiBox.OptiData="",OptiDataBoxParent:DS.Prod.OptiBox.OptiData=""</FormalSpec>
 <Private>1</Private>
 <ReturnType>DS.Prod.OptiBox.OptiData</ReturnType>
 <Implementation><![CDATA[
 	Set OptiData=##class(DS.Prod.OptiBox.OptiData).%New()
 	
-	Set OptiData.BoxData = BoxData
+	Set OptiData.BoxData = $Select(BoxDataMetID.%Id() = "": ..BoxDataRepository.GeefBoxDataViaID(BoxDataMetID.OrigineleBoxDataID), 1 : BoxDataMetID)
 	If ($$$Not(OptiDataParent = "")) {
 		Set OptiData.Parent = OptiDataParent
 	}
@@ -623,12 +649,12 @@
 	Set OptiData.ObjType = "L"
 	Set OptiData.ObjRef = ..BonId
 	If $$$Not(Product = "") {
-		Set OptiData.ProductRef = ..GeefKorttekst(BoxData.ObjRef)
-		Set OptiData.PRNr = +BoxData.ObjRef
+		Set OptiData.ProductRef = ..GeefKorttekst(BoxDataMetID.ObjRef)
+		Set OptiData.PRNr = +BoxDataMetID.ObjRef
 	}
 	Set OptiData.CreatieTijdStip = ..GeefHuidigeTimeStamp()
 	Set OptiData.ProductAantal = 1
-	Set OptiData.DoosAantal = $Select(BoxData.Aantal > 0 : BoxData.Aantal, 1:1)
+	Set OptiData.DoosAantal = $Select(BoxDataMetID.Aantal > 0 : BoxDataMetID.Aantal, 1:1)
 	Set OptiData.Status = "L"
 	
 	#dim SaveStatus As %Status = OptiData.%Save()
@@ -682,7 +708,7 @@
 	#dim HttpRequest As %Net.HttpRequest = ##class(%Net.HttpRequest).%New()
 	
 	#dim AfbeeldingUrl As %String = "/"_ ..JobId_"_Overdoos_"_..BonId _"_default_" _ "01_001.jpg"
-	Set HttpRequest.Server = ##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.Verpakking.OrgaluxBonOptimizer.ImageURL") //"cubeiq01-dev_img.vanhoecke.be"
+	Set HttpRequest.Server = ##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.Verpakking.OrgaluxBonOptimizer.ImageURL")
 	Set HttpRequest.Https = 1
 	Set HttpRequest.SSLConfiguration = "CubeIQ"
 	Set HttpRequest.Timeout = 4
@@ -705,7 +731,7 @@
 	#dim JSONStream = ##class(%Stream.GlobalBinary).%New()
 			
 	Do JSONStream.Write(RequestString)
-	//Do ..Logger.Debug("BlackBox request", JSONStream)
+	;Do ..Logger.Debug("BlackBox request", JSONStream)
 	
 	Set HttpRequest = ##class(%Net.HttpRequest).%New()
  	Set HttpRequest.Server = ##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.Verpakking.OrgaluxBonOptimizer.BlackBoxURL")
@@ -803,7 +829,7 @@
 	#dim GrondOppervlakKleinerDanHalvePalletFactor As %Integer = $Select(((..GrootsteDimensieGrondvlak < (..#MaximumVerpakkingDiepteVoorEuropallet)) && (..TweedeGrootsteDimensieGrondvlak < (..#MaximumVerpakkingBreedteVoorEuropallet / 2))):-200, 1:0)
 	#dim VierkantigheidFactor As %Integer = ##class(TECH.Math).Max(##class(TECH.Math).Max(##class(TECH.Math).Abs(Overdoos.overalllength - Overdoos.overallwidth), ##class(TECH.Math).Abs(Overdoos.overalllength - Overdoos.overallheight)), ##class(TECH.Math).Abs(Overdoos.overallheight - Overdoos.overallwidth)) * 0.5
 	#dim HoogteKleinerDan33cm As %Integer = $Select(Overdoos.overallheight < 330:-100, 1:0)
-	
+	//TODO
 	//Score is nog te bekijken op de optboxbig rechtstreeks
 	;set t = VolumeFactor + GrondOppervlakFactor + StabiliteitFactor + TotaleKartonOppervlakteFactor + GrondOppervlakKleinerDanHalvePalletFactor + VierkantigheidFactor + HoogteKleinerDan33cm
 	;Do ##class(Tools.Wlip).%New(110).String(t _ "  Vol " _VolumeFactor _" GrondOpp "_ GrondOppervlakFactor _" Stab "_ StabiliteitFactor _" TotKartonOpp "_ TotaleKartonOppervlakteFactor _" GrondOppKleinerDanHalvePlt "_ GrondOppervlakKleinerDanHalvePalletFactor _" Vierkantigheid "_ VierkantigheidFactor_" Hoogte<330 "_ HoogteKleinerDan33cm)
@@ -877,7 +903,6 @@
 	
 	While BoxDataIterator.HasNext() {
 		#dim BoxData As DS.Prod.OptiBox.BoxDataMetID = BoxDataIterator.Next()
-		#dim BoxDataGroep As DS.Prod.OptiBox.BoxData
 		
 		If $$$Not(BoxData.VolumeVan = "") 
 		{
Index: APPS/Verpakking/CubeIQRequestBuilder.cls.xml
===================================================================
diff -u -r72236 -r72246
--- APPS/Verpakking/CubeIQRequestBuilder.cls.xml	(.../CubeIQRequestBuilder.cls.xml)	(revision 72236)
+++ APPS/Verpakking/CubeIQRequestBuilder.cls.xml	(.../CubeIQRequestBuilder.cls.xml)	(revision 72246)
@@ -86,8 +86,8 @@
 	;Set CubeIQProduct.weight = ..GeefGewichtVanProduct(BoxData.ObjRef)
 	Set CubeIQProduct.turnable = $$$True
 	Set CubeIQProduct.flatok = $$$True
-	Set CubeIQProduct.sideupok = $Select(BoxData.Rotatie = "":$$$True, 1:##class(TECH.StringUtils).Contains(BoxData.Rotatie, "Y")) //kantelbaar op zijkant
-	Set CubeIQProduct.endupok = $Select(BoxData.Rotatie = "":$$$True, 1:##class(TECH.StringUtils).Contains(BoxData.Rotatie, "Y")) //kantelbaar op achterkant
+	Set CubeIQProduct.sideupok = $$$True //$Select(BoxData.Rotatie = "":$$$True, 1:##class(TECH.StringUtils).Contains(BoxData.Rotatie, "Y")) //kantelbaar op zijkant
+	Set CubeIQProduct.endupok = $$$True //$Select(BoxData.Rotatie = "":$$$True, 1:##class(TECH.StringUtils).Contains(BoxData.Rotatie, "Y")) //kantelbaar op achterkant
 	Set CubeIQProduct.bottomonly = $$$False //(##class(TECH.StringUtils).Contains(BoxData.Positie, "O") && $$$Not(##class(TECH.StringUtils).Contains(BoxData.Positie, "B")))
 	Set CubeIQProduct.toponly = $$$False //(##class(TECH.StringUtils).Contains(BoxData.Positie, "B") && $$$Not(##class(TECH.StringUtils).Contains(BoxData.Positie, "O")))