Index: APPS/Verpakking/DoosService.cls.xml
===================================================================
diff -u -r70406 -r70418
--- APPS/Verpakking/DoosService.cls.xml	(.../DoosService.cls.xml)	(revision 70406)
+++ APPS/Verpakking/DoosService.cls.xml	(.../DoosService.cls.xml)	(revision 70418)
@@ -18,6 +18,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="KartonRepository">
+<Type>APPS.Verpakking.KartonRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="SnijDoosService">
 <Type>WS.APPS.Verpakking.SnijDoosService</Type>
 <Private>1</Private>
@@ -64,59 +69,60 @@
 	Set ..ProductTypeAPI = $$$Inject(ProductTypeAPI, ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI())
 	Set ..DateTimeAPI = ##class(TECH.Context).Instance().GeefDateTimeAPI()
 	Set ..Logger = ##class(vhLib.Logger).%New("VH doos service")
+	Set ..KartonRepository = ##class(APPS.Verpakking.KartonRepository).%New()
 	
+	If ($$$Server = "CACHE01") {
+		Set ..SnijDoosService.Location = "http://docker02-prd:1880/ws/cut-request"
+	}
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="GeefDoos">
-<FormalSpec><![CDATA[ProductGroep:%String,ReceptNaam:%String,MachineID:APPS.Verpakking.enu.MachineID,Aantal:%Integer,&Params:%String,ProductId:%String,Prioriteit:%String="-1",BaseRef:%String,&CallBack:%List="",BoxDataID:%String=""]]></FormalSpec>
+<FormalSpec><![CDATA[ProductGroep:%String,ReceptNaam:%String,MachineID:APPS.Verpakking.enu.MachineID,Aantal:%Integer,&Params:%String,ProductId:%String,Prioriteit:%String="-1",BaseRef:%String,&CallBack:%List="",BoxDataID:%String="",IsDoorgegevenHerberekenVerpakkingInAdmin:%Boolean=0]]></FormalSpec>
 <Implementation><![CDATA[
 	try {
 		//Alles wat nog niet langs Kraft of niet via een snij doos opdracht via admin gaat tegenhouden (m.a.w. enkel de optimalisatie van de bonnen van orgalux tegenhouden indien deze hier onterecht zouden komen)
 		If ($$$Not(MachineID = ##class(APPS.Verpakking.enu.MachineID).VH()) || (ProductGroep = "KAD") || (ProductGroep = "PR")) {
-			If ($$$Server = "CACHE01") {
-				Set ..SnijDoosService.Location = "http://docker02-prd:1880/ws/cut-request"
+			#dim IsHerberekenVerpakkingInAdmin As %Boolean = ((Prioriteit = -1) && (MachineID = "?"))
+			If (IsHerberekenVerpakkingInAdmin) {
+				Set MachineID = ##class(APPS.Verpakking.enu.MachineID).VH()
 			}
 			
 			If ..IsSnijDoosOpdrachtViaAdmin(ProductGroep, BoxDataID) {
-				Do ..GeefDoosViaBoxData(ProductGroep, MachineID, Aantal, ProductId, Prioriteit, BaseRef, CallBack)
-				Quit
-			}
-			
-			Set BaseRef = $Piece(BaseRef,".",1,2) //Bij TAOR komt er nog een 3e piece achter, dit zou verder in de flow anders voor fouten zorgen
-			#dim MachineTechnologie As APPS.Verpakking.enu.MachineTechnologie = ..GeefMachineTechnologie(MachineID)
-			#dim Doos As APPS.Verpakking.dto.Doos = ..DoosFactory.MaakDoos(ProductGroep, ReceptNaam)
-			Do ..DoosAanvuller.VulAanBasisInformatieDoos(.Doos, .Params, ProductGroep, MachineTechnologie, BoxDataID, MachineID)
-			Do ..Optimizer.Optimize(.Doos, ProductGroep, MachineTechnologie, MachineID)
-			
-			If (MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Kraft()) {
-				If (Prioriteit <= 7) {
-					Set Prioriteit = 8				//Niet dringend
-				} Else {
-					Set Prioriteit = 10				//Dringend
+				Do ..GeefDoosViaBoxData(ProductGroep, MachineID, Aantal, ProductId, Prioriteit, BaseRef, CallBack, IsHerberekenVerpakkingInAdmin)
+			} Else {
+				Set BaseRef = $Piece(BaseRef,".",1,2) //Bij TAOR komt er nog een 3e piece achter, dit zou verder in de flow anders voor fouten zorgen
+				#dim MachineTechnologie As APPS.Verpakking.enu.MachineTechnologie = ..GeefMachineTechnologie(MachineID)
+				#dim Doos As APPS.Verpakking.dto.Doos = ..DoosFactory.MaakDoos(ProductGroep, ReceptNaam)
+				Do ..DoosAanvuller.VulAanBasisInformatieDoos(.Doos, .Params, ProductGroep, MachineTechnologie, BoxDataID, MachineID)
+				Do ..Optimizer.Optimize(.Doos, ProductGroep, MachineTechnologie, MachineID)
+				
+				Do ..ZetPrioriteit(Prioriteit, MachineTechnologie)
+				
+				#dim SnijData As DS.Prod.OptiBox.SnijData = ""			
+				
+				//Callbacks zijn er voor de snijstatussen (die te zien zijn op de schermen aan het kartonsnijmachine (oude vintra) up te daten
+				//Er kan ook gesneden worden zonder CallBack: zoals rechtstreekse snijopdrachten via admin via F11 -> SnijDoos
+				If ($Length(CallBack) || IsDoorgegevenHerberekenVerpakkingInAdmin) {
+					Do ..MaakEnUpdateDataVoorSnijOpdracht(.SnijData, Doos, ProductId, Aantal, BaseRef, MachineID, Prioriteit, CallBack)
 				}
+				
+				If $$$Not(IsDoorgegevenHerberekenVerpakkingInAdmin) {
+					#dim Referentie As %String = $Select($$$Not(SnijData = ""): SnijData.Reference, 1: BaseRef)
+					#dim SnijRequest As WS.APPS.Verpakking.SnijDoosRequest = ..SnijRequestMaker.MaakSnijRequest(Doos, MachineTechnologie, MachineID, Prioriteit, Aantal, Referentie)
+					Do ..LogXmlObject(SnijRequest, "GeefDoos OUT")
+					
+					#dim SnijResponse As WS.APPS.Verpakking.SnijDoosResponse = ..SnijDoosService.SnijDoos(SnijRequest)
+					Do ..LogXmlObject(SnijResponse, "GeefDoos IN")
+					
+					#dim RequestXml as %String
+					Do SnijRequest.XMLExportToString(.RequestXml)
+					
+					Set ^LogKartonOpdrachten2(ProductId, "VH Doos", $Increment(^LogKartonOpdrachten2)) = RequestXml
+				}
 			}
-			
-			#dim SnijData As DS.Prod.OptiBox.SnijData = ""			
-			
-			//Callbacks zijn er voor de snijstatussen (die te zien zijn op de schermen aan het kartonsnijmachine (oude vintra) up te daten
-			//Er kan ook gesneden worden zonder CallBack: zoals rechtstreekse snijopdrachten via admin via F11 -> SnijDoos
-			If $Length(CallBack){
-				Do ..MaakEnUpdateDataVoorSnijOpdracht(.SnijData, Doos, ProductId, Aantal, BaseRef, MachineID, Prioriteit, CallBack)
-			}
-			
-			#dim Referentie As %String = $Select($$$Not(SnijData = ""): SnijData.Reference, 1: BaseRef)
-			#dim SnijRequest As WS.APPS.Verpakking.SnijDoosRequest = ..SnijRequestMaker.MaakSnijRequest(Doos, MachineTechnologie, MachineID, Prioriteit, Aantal, Referentie)
-			Do ..LogXmlObject(SnijRequest, "GeefDoos OUT")
-			
-			#dim SnijResponse As WS.APPS.Verpakking.SnijDoosResponse = ..SnijDoosService.SnijDoos(SnijRequest)
-			Do ..LogXmlObject(SnijResponse, "GeefDoos IN")
-			
-			#dim RequestXml as %String
-			Do SnijRequest.XMLExportToString(.RequestXml)
-			
-			Set ^LogKartonOpdrachten2(ProductId, "VH Doos", $Increment(^LogKartonOpdrachten2)) = RequestXml
 		}
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
@@ -176,6 +182,7 @@
 		Do ..Logger.Info(Actie, TeLoggenObject)	
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ..Logger.Warning("GeefDoos", "Er is iets fout gelopen bij het loggen van de snijrequest of response van GeefDoos. "_Exception.GeefOmschrijving())
 	}
 ]]></Implementation>
 </Method>
@@ -186,7 +193,7 @@
 <ReturnType>DS.Prod.OptiBox.sub.emSnijDef</ReturnType>
 <Implementation><![CDATA[
 	Set SnijDef=##class(DS.Prod.OptiBox.sub.emSnijDef).%New()
-	Set SnijDef.CardboardID =Doos.CardBoardID
+	Set SnijDef.CardboardID = Doos.CardBoardID
 	Set SnijDef.Recept = Doos.Recipe
 	Set SnijDef.Swap = Doos.Swap
 	Set SnijDef.Breedte = Doos.Width
@@ -199,6 +206,7 @@
 	While Iterator.HasNext() {
 		#dim Param As APPS.Verpakking.dto.Doos.Param = Iterator.Next()
 		Do SnijDef.Params.SetAt(Param.Value, Teller)
+		Set Teller = Teller + 1
 	}
 	
 	Quit SnijDef
@@ -222,7 +230,7 @@
 	;Set SnijData.SubRef=pxBox.SubRef
 	;Set SnijData.Weight=pxBox.Weight
 	;Set SnijData.ID=pxBox.ID
-	Set SnijData.BoxSelect = Doos.RecipeName
+	Set SnijData.BoxSelect = Doos.BoxSelect
 	Set SnijData.Diepte = Doos.Depth
 	Set SnijData.Breedte = Doos.Width
 	Set SnijData.Hoogte = Doos.Height
@@ -234,17 +242,32 @@
 	Set SnijData.Aantal = 1
 	Set SnijData.CreatieTijdStip = ..GeefHuidigeTimeStamp()
 	Set SnijData.PRNr = Product.GeefPRNr()
-	;Set SnijData.Errors=$TR(pxBox.Errors,$C(0))
-	;If $L(SnijData.Errors) Set SnijData.Status="E"
 	Set SnijData.SnijMachineID = MachineID
 	Set SnijData.Status = "Q"
 	Set SnijData.Simulate = $Select((Prioriteit = -1): $$$True, 1: $$$False)
-	Do SnijData.%Save()
 	
+	If (IsHerberekenVerpakkingInAdmin) {
+		#dim SnijHistoriek As DS.Prod.OptiBox.SnijHistoriek = ##class(DS.Prod.OptiBox.SnijHistoriek).%New()
+		Set SnijData.Status = "F"
+		
+		Set SnijHistoriek.CardboardProduct = ..KartonRepository.GeefKartonProductIdViaID(Doos.CardBoardID)
+		Set SnijHistoriek.CardboardBreedte = ..KartonRepository.GeefKartonBreedteViaID(Doos.CardBoardID)
+		Set SnijHistoriek.Lengte = Doos.Diepte 
+		
+		#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.%Id()
+	}
+	
+	#dim SaveStatus As %Status = SnijData.%Save()
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(SaveStatus,"Het bewaren van SnijData in MaakSnijData is niet gelukt.")
+	
 	//Set SnijData.BoxDeelVan = SnijData.%Id() //wss ook niet van belang
 	
 	Set SnijData.Reference = BaseRef_ "." _ SnijData.%Id()
-	Do SnijData.%Save()
+	Set SaveStatus = SnijData.%Save()
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(SaveStatus,"Het 2e keer bewaren van SnijData in MaakSnijData is niet gelukt.")
 	
 	Quit SnijData
 ]]></Implementation>
@@ -270,7 +293,8 @@
 	Set OptiData.ProductAantal = 1 // $S(ProdQty>0:ProdQty,1:1) //TBD, wss hardcoderen op 1
 	Set OptiData.DoosAantal = Aantal
 	
-	Set Status=OptiData.%Save()
+	#dim SaveStatus As %Status = OptiData.%Save()
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(SaveStatus,"Het bewaren van OptiData is niet gelukt.")
 	
 	Quit OptiData
 ]]></Implementation>
@@ -292,7 +316,9 @@
 	Set OptiboxQueue.CallBack = $G(CallBack) 
 	Set OptiboxQueue.SnijData = SnijData
 	
-	Set Status = OptiboxQueue.%Save()
+	#dim SaveStatus As %Status = OptiboxQueue.%Save()
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(SaveStatus,"Het bewaren van OptiboxQueue is niet gelukt.")
+	
 	Quit OptiboxQueue
 ]]></Implementation>
 </Method>
@@ -324,7 +350,7 @@
 		#dim BoxDataID As %String = ResultSetLink.Data("ID")
 	 	Set BoxData = ##class(DS.Prod.OptiBox.BoxData).%OpenId(BoxDataID)
 	 	#dim SubAantal As %Integer = $Select(BoxData.Aantal = "Aantal": 1, 1:BoxData.Aantal)
-	 	Do ..GeefDoos(ProductGroep, BoxData.Meta.Name, MachineID, (Aantal * SubAantal), "", ProductId, Prioriteit, BaseRef, CallBack, BoxDataID)
+	 	Do ..GeefDoos(ProductGroep, BoxData.Meta.Name, MachineID, (Aantal * SubAantal), "", ProductId, Prioriteit, BaseRef, CallBack, BoxDataID, IsHerberekenVerpakkingInAdmin)
 	}
 	Do ResultSetLink.Close()
 	
@@ -335,34 +361,51 @@
 </Method>
 
 <Method name="MaakEnUpdateDataVoorSnijOpdracht">
-<FormalSpec><![CDATA[&SnijData:DS.Prod.OptiBox.SnijData,Doos,ProductId,Aantal,BaseRef,MachineID,Prioriteit,CallBack]]></FormalSpec>
+<FormalSpec><![CDATA[&SnijData:DS.Prod.OptiBox.SnijData,Doos,ProductId,Aantal,BaseRef,MachineID,Prioriteit,CallBack,IsHerberekenVerpakkingInAdmin]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim OptiData As DS.Prod.OptiBox.OptiData
 	#dim SnijDef As DS.Prod.OptiBox.sub.emSnijDef
 	#dim Product As DOM.PM.Product = ..ProductAPI.GeefProduct(ProductId)
 	Set OptiData = ..MaakOptiData(Doos, BaseRef, Aantal, Product, MachineID, Prioriteit)
-	Set SnijData = ..MaakSnijData(Doos, BaseRef, OptiData, Product, MachineID, Prioriteit)
+	Set SnijData = ..MaakSnijData(Doos, BaseRef, OptiData, Product, MachineID, Prioriteit, IsHerberekenVerpakkingInAdmin)
 	Set SnijDef = ..MaakSnijDef(Doos, SnijData)
-	Do SnijData.SnijDefs.SetAt(SnijDef, MachineID)		
-	Do SnijData.%Save()
+	Do SnijData.SnijDefs.SetAt(SnijDef, MachineID)	
+	#dim SaveStatus As %Status = SnijData.%Save()
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(SaveStatus,"Het bewaren van SnijData in MaakEnUpdateDataVoorSnijOpdracht is niet gelukt.")
 	
-	#dim OptiboxQueue = ..MaakOptiboxQueue(SnijData, Prioriteit, CallBack, OptiData)
-	If (..ProductTypeAPI.IsLegraboxProduct(ProductId) || ..ProductTypeAPI.IsMerivoboxProduct(ProductId)) {
-		Set WerklijstItemStatusUpdater = ##class(APPS.Halux.PPS.Verpakking.impl.KartonSnijder.WerklijstItemStatusUpdater).%New()
-		Do WerklijstItemStatusUpdater.UpdateWerklijstItemStatusViaID($LG(CallBack,3), $$$False, ##class(APPS.Halux.PPS.Verpakking.enu.KartonMachineStatus).Geoptimaliseerd())
-	} ElseIf (..ProductTypeAPI.IsTandemboxProduct(ProductId) || ..ProductTypeAPI.IsTAORboxProduct(ProductId)) {
-		Set Queue = ##class(DS.PPS.TBX.Queue).%OpenId($LG(CallBack,3))
-		If ##class(TECH.StringUtils).Equals(Doos.Recipe, "214", "218") { //Losse onderdelen + complexe scheiding kartons
-			Set Queue.WPLosOnderdeel.SnijStatus = "Q" 
+	If $$$Not(IsHerberekenVerpakkingInAdmin) {
+		#dim OptiboxQueue = ..MaakOptiboxQueue(SnijData, Prioriteit, CallBack, OptiData)
+		If (..ProductTypeAPI.IsLegraboxProduct(ProductId) || ..ProductTypeAPI.IsMerivoboxProduct(ProductId)) {
+			Set WerklijstItemStatusUpdater = ##class(APPS.Halux.PPS.Verpakking.impl.KartonSnijder.WerklijstItemStatusUpdater).%New()
+			Do WerklijstItemStatusUpdater.UpdateWerklijstItemStatusViaID($LG(CallBack,3), $$$False, ##class(APPS.Halux.PPS.Verpakking.enu.KartonMachineStatus).Geoptimaliseerd())
+		} ElseIf (..ProductTypeAPI.IsTandemboxProduct(ProductId) || ..ProductTypeAPI.IsTAORboxProduct(ProductId)) {
+			Set Queue = ##class(DS.PPS.TBX.Queue).%OpenId($LG(CallBack,3))
+			If ##class(TECH.StringUtils).Equals(Doos.Recipe, "214", "218") { //Losse onderdelen + complexe scheiding kartons
+				Set Queue.WPLosOnderdeel.SnijStatus = "Q" 
+			} Else {
+				Set Queue.WPVerpak.SnijStatus = "Q"
+			}
 		} Else {
-			Set Queue.WPVerpak.SnijStatus = "Q"
+			Do ..Logger.ErrorMail("GeefDoos", "Voor dit maatwerktype is nog geen implementatie voorzien in de de VHDoosService. ProductId '" _ProductId_"'.")
 		}
-	} Else {
-		Do ..Logger.ErrorMail("GeefDoos", "Voor dit maatwerktype is nog geen implementatie voorzien in de de VHDoosService.")
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="ZetPrioriteit">
+<FormalSpec><![CDATA[&Prioriteit:%String,MachineTechnologie:APPS.Verpakking.enu.MachineTechnologie]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If (MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Kraft()) {
+		If (Prioriteit <= 7) {
+			Set Prioriteit = 8				//Niet dringend
+		} Else {
+			Set Prioriteit = 10				//Dringend
+		}
+	}
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Verpakking/dto/Doos.cls.xml
===================================================================
diff -u -r70302 -r70418
--- APPS/Verpakking/dto/Doos.cls.xml	(.../Doos.cls.xml)	(revision 70302)
+++ APPS/Verpakking/dto/Doos.cls.xml	(.../Doos.cls.xml)	(revision 70418)
@@ -70,6 +70,12 @@
 <Parameter name="XMLNAME" value="SWAP"/>
 </Property>
 
+<Property name="UsedCardBoardLength">
+<Type>%Decimal</Type>
+<Parameter name="XMLNAME" value="USEDCARDBOARDLENGTH"/>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
 <Property name="Width">
 <Type>%Decimal</Type>
 <Parameter name="XMLNAME" value="WIDTH"/>
Index: APPS/Verpakking/KartonRepository.cls.xml
===================================================================
diff -u -r70301 -r70418
--- APPS/Verpakking/KartonRepository.cls.xml	(.../KartonRepository.cls.xml)	(revision 70301)
+++ APPS/Verpakking/KartonRepository.cls.xml	(.../KartonRepository.cls.xml)	(revision 70418)
@@ -26,6 +26,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKartonBreedteViaID">
+<FormalSpec>CardboardID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefVeldViaFilter("Breedte", "CardboardID = ?", $LB(CardboardID))
+]]></Implementation>
+</Method>
+
+<Method name="GeefKartonProductIdViaID">
+<FormalSpec>CardboardID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefVeldViaFilter("ProductId", "CardboardID = ?", $LB(CardboardID))
+]]></Implementation>
+</Method>
+
 <Method name="GeefVeldViaFilter">
 <FormalSpec>Veld:%String,Filter:%String,Params:%List</FormalSpec>
 <Private>1</Private>
Index: APPS/Verpakking/Optimizer.cls.xml
===================================================================
diff -u -r70302 -r70418
--- APPS/Verpakking/Optimizer.cls.xml	(.../Optimizer.cls.xml)	(revision 70302)
+++ APPS/Verpakking/Optimizer.cls.xml	(.../Optimizer.cls.xml)	(revision 70418)
@@ -23,6 +23,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="DieptePlano">
+<Type>%Decimal</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="KartonRepository">
 <Type>APPS.Verpakking.KartonRepository</Type>
 <Private>1</Private>
@@ -74,45 +79,57 @@
 		
 		If (BasisDoos.Swap = 1) {
 			Do ..SwapDimensies(.BasisDoos)
+			Set BasisDoos.Swap = 0
 		}
 	}
 	
 	Set BasisDoos.RecipeName = BasisDoos.RecipeName _ " "_ BasisDoos.Recipe
+	Set BasisDoos.UsedCardBoardLength = ..DieptePlano
 ]]></Implementation>
 </Method>
 
 <Method name="OptmizeV1HogeRug">
 <FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.dto.V1HogeRug]]></FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Set ..BreedtePlano = BasisDoos.Depth - BasisDoos.T + (BasisDoos.CardBoardThickness * 2) + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Depth + BasisDoos.Height + BasisDoos.H2 - BasisDoos.Height - BasisDoos.CardBoardThickness + BasisDoos.OverhangSize + BasisDoos.CardBoardThickness + BasisDoos.H2 - BasisDoos.Height + BasisDoos.K
+<Implementation><![CDATA[
+	Set ..BreedtePlano = BasisDoos.Depth - BasisDoos.T + (BasisDoos.CardBoardThickness * 2) + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Depth + BasisDoos.Height + BasisDoos.H2 - BasisDoos.Height - BasisDoos.CardBoardThickness + BasisDoos.OverhangSize + BasisDoos.CardBoardThickness + BasisDoos.H2 - BasisDoos.Height + BasisDoos.K
+	Set ..DieptePlano = BasisDoos.Height - BasisDoos.CardBoardThickness + (BasisDoos.CardBoardThickness * 2) + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + BasisDoos.T + BasisDoos.Height + BasisDoos.CardBoardThickness + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Height - BasisDoos.CardBoardThickness
 ]]></Implementation>
 </Method>
 
 <Method name="OptmizeV1LageRug">
 <FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.dto.V1LageRug]]></FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Set ..BreedtePlano =  BasisDoos.K + BasisDoos.Height + BasisDoos.Depth + 10 + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Depth + 10
+<Implementation><![CDATA[
+	Set ..BreedtePlano =  BasisDoos.K + BasisDoos.Height + BasisDoos.Depth + 10 + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Depth + 10
+	Set ..DieptePlano = BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + (2 * BasisDoos.CardBoardThickness) + 18 + BasisDoos.CardBoardThickness + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Height
 ]]></Implementation>
 </Method>
 
 <Method name="OptmizeV1LosseOnderdelen">
 <FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.dto.V1LosseOnderdelen]]></FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Set ..BreedtePlano = BasisDoos.K1 + (BasisDoos.CardBoardThickness / 2) + BasisDoos.Width + BasisDoos.CardBoardThickness + BasisDoos.Depth + BasisDoos.CardBoardThickness + BasisDoos.Width + BasisDoos.CardBoardThickness + BasisDoos.K1 + (BasisDoos.CardBoardThickness / 2)
+<Implementation><![CDATA[
+	Set ..BreedtePlano = BasisDoos.K1 + (BasisDoos.CardBoardThickness / 2) + BasisDoos.Width + BasisDoos.CardBoardThickness + BasisDoos.Depth + BasisDoos.CardBoardThickness + BasisDoos.Width + BasisDoos.CardBoardThickness + BasisDoos.K1 + (BasisDoos.CardBoardThickness / 2)
+	Set ..DieptePlano = BasisDoos.K2 + BasisDoos.Depth - BasisDoos.T - (BasisDoos.CardBoardThickness * 2) + BasisDoos.Height - BasisDoos.CardBoardThickness + BasisDoos.T + BasisDoos.Height + 3 + (BasisDoos.CardBoardThickness * 2) + BasisDoos.Height + BasisDoos.CardBoardThickness + 3 + BasisDoos.Depth + BasisDoos.CardBoardThickness + BasisDoos.Height
 ]]></Implementation>
 </Method>
 
 <Method name="OptmizeComplexeScheiding">
 <FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.dto.ComplexeScheiding]]></FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Set ..BreedtePlano = BasisDoos.Width
+<Implementation><![CDATA[
+	Set ..BreedtePlano = BasisDoos.Width
+	Set ..DieptePlano = BasisDoos.Depth + BasisDoos.Height + BasisDoos.Fold3 + BasisDoos.Fold4 + BasisDoos.Fold5
 ]]></Implementation>
 </Method>
 
 <Method name="OptmizeV1Flatpack">
 <FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.dto.V1Flatpack]]></FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Set ..BreedtePlano = BasisDoos.K3 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + BasisDoos.CardBoardThickness + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K1 + (BasisDoos.CardBoardThickness / 2) + BasisDoos.K2
+<Implementation><![CDATA[
+	Set ..BreedtePlano = BasisDoos.K3 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + BasisDoos.CardBoardThickness + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K1 + (BasisDoos.CardBoardThickness / 2) + BasisDoos.K2
+	Set ..DieptePlano = (BasisDoos.Depth / 2) + BasisDoos.Height + (BasisDoos.CardBoardThickness * 5 / 2) + BasisDoos.Depth + BasisDoos.CardBoardThickness + BasisDoos.Height + (BasisDoos.CardBoardThickness * 5 / 2) + (BasisDoos.Depth / 2)
 ]]></Implementation>
 </Method>
 
@@ -149,8 +166,10 @@
 		#dim OppTotaleKartonAltRecept As %Decimal = DieptePlanoAltRecept * NodigeKartonBreedteAltRecept
 		
 		Set ..BreedtePlano = BreedtePlanoRecept
+		Set ..DieptePlano = DieptePlanoRecept
 		If ((OppTotaleKartonAltRecept < OppTotaleKartonRecept)) {
 			Set ..BreedtePlano = BreedtePlanoAltRecept
+			Set ..DieptePlano = DieptePlanoAltRecept
 			Set BasisDoos.Recipe = BasisDoos.AltRecipe
 			Set BasisDoos.Swap = BasisDoos.AltSwap
 		}			
@@ -191,33 +210,41 @@
 		
 		If (SwapRecept219IsBeter && SwapRecept209IsBeter) {
 			Set ..BreedtePlano = BreedtePlanoNaSwapRecept219
+			Set ..DieptePlano = DieptePlanoNaSwapRecept219
 			Set BasisDoos.Swap = 1
 			If (OppTotaleKartonNaSwapRecept209 < OppTotaleKartonNaSwapRecept219) {
 				Set ..BreedtePlano = BreedtePlanoNaSwapRecept209
+				Set ..DieptePlano = DieptePlanoNaSwapRecept209
 				Set BasisDoos.Recipe = 209
 			}			
 		} ElseIf (SwapRecept219IsBeter && $$$Not(SwapRecept209IsBeter)) {
 			If (OppTotaleKartonVoorSwapRecept209 < OppTotaleKartonNaSwapRecept219) {
 				Set ..BreedtePlano = BreedtePlanoVoorSwapRecept209
+				Set ..DieptePlano = DieptePlanoVoorSwapRecept209
 				Set BasisDoos.Recipe = 209
 				Set BasisDoos.Swap = 0
 			} Else {
 				Set BasisDoos.Swap = 1
 				Set ..BreedtePlano = BreedtePlanoNaSwapRecept219
+				Set ..DieptePlano = DieptePlanoNaSwapRecept219
 			}
 		} ElseIf ($$$Not(SwapRecept219IsBeter) && SwapRecept209IsBeter) {
 			Set ..BreedtePlano = BreedtePlanoVoorSwapRecept219
+			Set ..DieptePlano = DieptePlanoVoorSwapRecept219
 			Set BasisDoos.Swap = 0
 			If (OppTotaleKartonNaSwapRecept209 < OppTotaleKartonVoorSwapRecept219) {
 				Set ..BreedtePlano = BreedtePlanoNaSwapRecept209
+				Set ..DieptePlano = DieptePlanoNaSwapRecept209
 				Set BasisDoos.Recipe = 209
 				Set BasisDoos.Swap = 1
 			}
 		} ElseIf ($$$Not(SwapRecept219IsBeter) && $$$Not(SwapRecept209IsBeter)) {
 			Set ..BreedtePlano = BreedtePlanoVoorSwapRecept219
+			Set ..DieptePlano = DieptePlanoVoorSwapRecept219
 			Set BasisDoos.Swap = 0
 			If (OppTotaleKartonVoorSwapRecept209 < OppTotaleKartonVoorSwapRecept219) {
 				Set ..BreedtePlano = BreedtePlanoVoorSwapRecept209
+				Set ..DieptePlano = DieptePlanoVoorSwapRecept209
 				Set BasisDoos.Recipe = 209
 			}
 		}
@@ -265,33 +292,41 @@
 	
 	If (SwapRecept220IsBeter && SwapRecept210IsBeter) {
 		Set ..BreedtePlano = BreedtePlanoNaSwapRecept220
+		Set ..DieptePlano = DieptePlanoNaSwapRecept220
 		Set BasisDoos.Swap = 1
 		If (OppTotaleKartonNaSwapRecept210 < OppTotaleKartonNaSwapRecept220) {
 			Set ..BreedtePlano = BreedtePlanoNaSwapRecept210
+			Set ..DieptePlano = DieptePlanoNaSwapRecept210
 			Set BasisDoos.Recipe = 210
 		}			
 	} ElseIf (SwapRecept220IsBeter && $$$Not(SwapRecept210IsBeter)) {
 		If (OppTotaleKartonVoorSwapRecept210 < OppTotaleKartonNaSwapRecept220) {
 			Set ..BreedtePlano = BreedtePlanoVoorSwapRecept210
+			Set ..DieptePlano = DieptePlanoVoorSwapRecept210
 			Set BasisDoos.Recipe = 210
 			Set BasisDoos.Swap = 0
 		} Else {
 			Set BasisDoos.Swap = 1
 			Set ..BreedtePlano = BreedtePlanoNaSwapRecept220
+			Set ..DieptePlano = DieptePlanoNaSwapRecept220
 		}
 	} ElseIf ($$$Not(SwapRecept220IsBeter) && SwapRecept210IsBeter) {
 		Set ..BreedtePlano = BreedtePlanoVoorSwapRecept220
+		Set ..DieptePlano = DieptePlanoVoorSwapRecept220
 		Set BasisDoos.Swap = 0
 		If (OppTotaleKartonNaSwapRecept210 < OppTotaleKartonVoorSwapRecept220) {
 			Set ..BreedtePlano = BreedtePlanoNaSwapRecept210
+			Set ..DieptePlano = DieptePlanoNaSwapRecept210
 			Set BasisDoos.Recipe = 210
 			Set BasisDoos.Swap = 1
 		}
 	} ElseIf ($$$Not(SwapRecept220IsBeter) && $$$Not(SwapRecept210IsBeter)) {
 		Set ..BreedtePlano = BreedtePlanoVoorSwapRecept220
+		Set ..DieptePlano = DieptePlanoVoorSwapRecept220
 		Set BasisDoos.Swap = 0
 		If (OppTotaleKartonVoorSwapRecept210 < OppTotaleKartonVoorSwapRecept220) {
 			Set ..BreedtePlano = BreedtePlanoVoorSwapRecept210
+			Set ..DieptePlano = DieptePlanoVoorSwapRecept210
 			Set BasisDoos.Recipe = 210
 		}
 	}
@@ -337,33 +372,41 @@
 	
 	If (SwapRecept207IsBeter && SwapRecept217IsBeter) {
 		Set ..BreedtePlano = BreedtePlanoNaSwapRecept207
+		Set ..DieptePlano = DieptePlanoNaSwapRecept207
 		Set BasisDoos.Swap = 1
 		If (OppTotaleKartonNaSwapRecept217 < OppTotaleKartonNaSwapRecept207) {
 			Set ..BreedtePlano = BreedtePlanoNaSwapRecept217
+			Set ..DieptePlano = DieptePlanoNaSwapRecept217
 			Set BasisDoos.Recipe = 217
 		}			
 	} ElseIf (SwapRecept207IsBeter && $$$Not(SwapRecept217IsBeter)) {
 		If (OppTotaleKartonVoorSwapRecept217 < OppTotaleKartonNaSwapRecept207) {
 			Set ..BreedtePlano = BreedtePlanoVoorSwapRecept217
+			Set ..DieptePlano = DieptePlanoVoorSwapRecept217
 			Set BasisDoos.Recipe = 217
 			Set BasisDoos.Swap = 0
 		} Else {
 			Set BasisDoos.Swap = 1
 			Set ..BreedtePlano = BreedtePlanoNaSwapRecept207
+			Set ..DieptePlano = DieptePlanoNaSwapRecept207
 		}
 	} ElseIf ($$$Not(SwapRecept207IsBeter) && SwapRecept217IsBeter) {
 		Set ..BreedtePlano = BreedtePlanoVoorSwapRecept207
+		Set ..DieptePlano = DieptePlanoVoorSwapRecept207
 		Set BasisDoos.Swap = 0
 		If (OppTotaleKartonNaSwapRecept217 < OppTotaleKartonVoorSwapRecept207) {
 			Set ..BreedtePlano = BreedtePlanoNaSwapRecept217
+			Set ..DieptePlano = DieptePlanoNaSwapRecept217
 			Set BasisDoos.Recipe = 217
 			Set BasisDoos.Swap = 1
 		}
 	} ElseIf ($$$Not(SwapRecept207IsBeter) && $$$Not(SwapRecept217IsBeter)) {
 		Set ..BreedtePlano = BreedtePlanoVoorSwapRecept207
+		Set ..DieptePlano = DieptePlanoVoorSwapRecept207
 		Set BasisDoos.Swap = 0
 		If (OppTotaleKartonVoorSwapRecept217 < OppTotaleKartonVoorSwapRecept207) {
 			Set ..BreedtePlano = BreedtePlanoVoorSwapRecept217
+			Set ..DieptePlano = DieptePlanoVoorSwapRecept217
 			Set BasisDoos.Recipe = 217
 		}
 	}
@@ -373,21 +416,27 @@
 <Method name="OptmizeV1DoosMetDeksel">
 <FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.dto.V1DoosMetDeksel]]></FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Set ..BreedtePlano =  BasisDoos.K + BasisDoos.Height + BasisDoos.Depth + 10 + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Depth + 10
+<Implementation><![CDATA[
+	Set ..BreedtePlano =  BasisDoos.K + BasisDoos.Height + BasisDoos.Depth + 10 + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Depth + 10
+	Set ..DieptePlano = BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + (2 * BasisDoos.CardBoardThickness) + 18 + BasisDoos.CardBoardThickness + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Height
 ]]></Implementation>
 </Method>
 
 <Method name="OptmizeVulstuk">
 <FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.dto.Vulstuk]]></FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Set ..BreedtePlano = BasisDoos.Width
+<Implementation><![CDATA[
+	Set ..BreedtePlano = BasisDoos.Width
+	Set ..DieptePlano = BasisDoos.Height + BasisDoos.Depth + BasisDoos.Height + BasisDoos.Depth - BasisDoos.CardBoardThickness + BasisDoos.Height - BasisDoos.CardBoardThickness
 ]]></Implementation>
 </Method>
 
 <Method name="OptmizeVulstukKlein">
 <FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.dto.VulstukKlein]]></FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Set ..BreedtePlano = BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height
+<Implementation><![CDATA[
+	Set ..BreedtePlano = BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height
+	Set ..DieptePlano = BasisDoos.Depth
 ]]></Implementation>
 </Method>
 
@@ -407,6 +456,7 @@
 		}		
 		
 		Set ..BreedtePlano = BreedtePlanoRecept
+		Set ..DieptePlano = DieptePlanoRecept
 	}
 ]]></Implementation>
 </Method>