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>