Index: vhDeploy/Deploy20231128xConfigSettingsUitfaserenOptiboxBig.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20231128xConfigSettingsUitfaserenOptiboxBig.cls.xml	(revision 0)
+++ vhDeploy/Deploy20231128xConfigSettingsUitfaserenOptiboxBig.cls.xml	(revision 72287)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20231128xConfigSettingsUitfaserenOptiboxBig">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Deployen van configuratiesetting voor uitfaseren OptiboxBig</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Do ..ZetProjectSettings()
+]]></Implementation>
+</Method>
+
+<Method name="ZetProjectSettings">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim ConfigManager As TECH.Config.ConfigMgr = ##class(TECH.Config.ConfigMgr).Instance()
+	
+	If $$$Not(ConfigManager.BestaatSleutel("APPS.Verpakking.OrgaluxBonOptimalisatieNietViaOptiboxBig")) {
+		Do ConfigManager.SetBoolean("APPS.Verpakking.OrgaluxBonOptimalisatieNietViaOptiboxBig",$$$False)
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Verpakking/OrgaluxBonOptimizer.cls.xml
===================================================================
diff -u -r72285 -r72287
--- APPS/Verpakking/OrgaluxBonOptimizer.cls.xml	(.../OrgaluxBonOptimizer.cls.xml)	(revision 72285)
+++ APPS/Verpakking/OrgaluxBonOptimizer.cls.xml	(.../OrgaluxBonOptimizer.cls.xml)	(revision 72287)
@@ -155,12 +155,12 @@
 	 	
 	 	#dim CubeIQResponse As APPS.Verpakking.dto.CubeIQ.Response = ..GeefBesteStapeling(BoxDataLijstVanTeStapelenDozenVergroot)
 	 	Set ..JobId = $Piece(CubeIQResponse.cubeiq.loads.load.GetAt(1).jobid, "-", 1)
-	 	
-	 	If $$$Not(..ZijnAfbeeldingenGegenereerdVoorBesteStapeling()) {
+	 	Do ##class(Tools.Wlip).%New(110).String("beste stapeling "_..JobId)
+	 	If $$$Not(..ZijnAfbeeldingenGegenereerdVoorBesteStapeling()) { //check niet nodig indien geen overdoos nodig?
 		 	#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 ..Logger.Warning("Optimaliseer bon orgalux", FoutOmschrijving)
+			;Set Exception = ##class(TECH.Exceptions.DataNotFoundException).%New(FoutOmschrijving)	
+			;Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	 	}
 	 	
 		Do ..SnijDataRepository.VerwijderViaBonId(..BonId)
@@ -245,6 +245,7 @@
  	}
  	
  	If (BesteStapeling = "") {
+	 	Do ..Logger.Warning("Optimaliseer bon orgalux", "Er wordt gepoogd het fallbackantwoord te geven voor bon " _..BonId)
 	 	#dim RequestVolumeVolledigePallet As APPS.Verpakking.dto.CubeIQ.Request = ..CubeIQRequestBuilder.MaakCubeIQRequest(BoxDataLijstVanTeStapelenDozen, ..#MaximumVerpakkingBreedteVoorEuropallet, ..#MaximumVerpakkingDiepteVoorEuropallet, ..#MaximumVerpakkingHoogteVoorEuropallet)
  		Set BesteStapeling = ..GeefParsedCubeIQResponse(RequestVolumeVolledigePallet)
  		
@@ -413,7 +414,7 @@
 		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
 	
-	#dim BoxDataOverdoosAangevuld As DS.Prod.OptiBox.BoxData = BoxDataOverdoos.%ConstructClone()
+	#dim BoxDataOverdoosAangevuld As DS.Prod.OptiBox.BoxDataMetID = ..CopyBoxData(BoxDataOverdoos)
 	Set BoxDataOverdoosAangevuld.Breedte = Overdoos.overallwidth
 	Set BoxDataOverdoosAangevuld.Diepte = Overdoos.overalllength
 	Set BoxDataOverdoosAangevuld.Hoogte = Overdoos.overallheight
@@ -511,16 +512,16 @@
 </Method>
 
 <Method name="MaakSnijDataVoorOverdoos">
-<FormalSpec><![CDATA[BoxData:DS.Prod.OptiBox.BoxData,Overdoos:APPS.Verpakking.dto.CubeIQ.Response.LoadedContainer,&OptiData:DS.Prod.OptiBox.OptiData,AfbeeldingCode:%String,SnijDataBodem:DS.Prod.OptiBox.SnijData,IsOverdoosNodig:%Boolean]]></FormalSpec>
+<FormalSpec><![CDATA[BoxDataMetID:DS.Prod.OptiBox.BoxDataMetID,Overdoos:APPS.Verpakking.dto.CubeIQ.Response.LoadedContainer,&OptiData:DS.Prod.OptiBox.OptiData,AfbeeldingCode:%String,SnijDataBodem:DS.Prod.OptiBox.SnijData,IsOverdoosNodig:%Boolean]]></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)
 	Set SnijData.FilledImage = "http://" _ ##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.Verpakking.OrgaluxBonOptimizer.ImageURL") _"/" _ ..JobId_"_Overdoos_"_..BonId _"_default_" _ AfbeeldingCode
 	
-	Set SnijData.BoxSelect = BoxData.Meta.BoxSelect.GetAt(1).Naam
+	Set SnijData.BoxSelect = SnijData.BoxData.Meta.BoxSelect.GetAt(1).Naam
 	If $$$Not(SnijDataBodem = "") {
 		Set SnijData.BoxUsage = "LID"
 		Set SnijData.PPSPrioriteit = 99
@@ -535,7 +536,7 @@
 	
 	If (OptiData = "") {
 		Set OptiData = ##class(DS.Prod.OptiBox.OptiData).%New()	
-		Set OptiData.BoxData = BoxData
+		Set OptiData.BoxData = SnijData.BoxData
 		Set OptiData.ObjType = "L"
 		Set OptiData.ObjRef = ..BonId
 		Set OptiData.ProductRef = "Overdoos"
@@ -554,12 +555,11 @@
 	Set SnijData.ObjType = "L"	
 	Set SnijData.OptiID = ..JobId
 	Set SnijData.ProductRef = "Overdoos"
-	Set SnijData.PPSGroep = BoxData.Meta.PPSGroep
-	Set SnijData.PPSSubgroep = BoxData.Meta.PPSSubgroep	
+	Set SnijData.PPSGroep = SnijData.BoxData.Meta.PPSGroep
+	Set SnijData.PPSSubgroep = SnijData.BoxData.Meta.PPSSubgroep	
 	Set SnijData.Aantal = 1
 	Set SnijData.ProductAantal = 1	
 	Set SnijData.Reference = "L." _ ..BonId _ "."_ OptiData.%Id()
-	;Set SnijData.SnijHistoriek = "????????????????????????????"
 	Set SnijData.SnijMachineID = ##class(APPS.Verpakking.enu.MachineID).VH()
 	Set SnijData.Simulate = $$$False
 	
@@ -650,21 +650,6 @@
 	Set SnijData.SnijMachineID = ##class(APPS.Verpakking.enu.MachineID).VH()
 	Set SnijData.Simulate = $$$False
 	
-	/*
-		#dim SnijHistoriek As DS.Prod.OptiBox.SnijHistoriek = ##class(DS.Prod.OptiBox.SnijHistoriek).%New()
-		Set SnijData.Status = "F"
-		
-		Set SnijHistoriek.CardboardID = Doos.CardBoardID
-		Set SnijHistoriek.CardboardProduct = ##class(Prod.Product).%OpenId(..KartonRepository.GeefKartonProductIdViaID(Doos.CardBoardID))
-		Set SnijHistoriek.CardboardBreedte = ..KartonRepository.GeefKartonBreedteViaID(Doos.CardBoardID)
-		Set SnijHistoriek.Lengte = Doos.UsedCardBoardLength 
-		
-		#dim SaveStatusSnijHistoriek As %Status = SnijHistoriek.%Save()
-		Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(SaveStatusSnijHistoriek,"Het bewaren van SnijHistoriek in MaakSnijData is niet gelukt.")
-		
-		Set SnijData.SnijHistoriek = SnijHistoriek
-	*/
-	
 	#dim SaveStatus As %Status = SnijData.%Save()
 	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(SaveStatus,"Het bewaren van SnijData in MaakSnijData is niet gelukt.")
 	
Index: BL/PPS/OL/OptiBox.cls.xml
===================================================================
diff -u -r72243 -r72287
--- BL/PPS/OL/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 72243)
+++ BL/PPS/OL/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 72287)
@@ -126,8 +126,8 @@
 
 	Set KLNr=$P(^KU1(BONNr,"F"),"\")
  	Set FakSoort=$S($P(^KU1(BONNr,"F"),"\",2):"G",1:"F") ; Reeds gefactureerd
-
-	If (0) {
+ 	
+	If (##class(TECH.Config.ConfigMgr).Instance().GetBoolean("APPS.Verpakking.OrgaluxBonOptimalisatieNietViaOptiboxBig")) {
 		#dim BackgroundProcessStarter As TECH.impl.BackgroundProcessStarter = ##class(TECH.Context).Instance().GeefBackgroundJobAPI().GeefBackgroundProcessStarter()
 		Set DataBuilder = ##class(TECH.BackgroundProcess.impl.DataBuilder).%New()
 		Do DataBuilder.SetClassName(##class(APPS.Verpakking.OrgaluxBonOptimizer).%ClassName(1))