Index: APPS/Verpakking/Optimizer.cls.xml
===================================================================
diff -u -r72242 -r72270
--- APPS/Verpakking/Optimizer.cls.xml	(.../Optimizer.cls.xml)	(revision 72242)
+++ APPS/Verpakking/Optimizer.cls.xml	(.../Optimizer.cls.xml)	(revision 72270)
@@ -52,7 +52,7 @@
 	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.dto.V1LosseOnderdelen")) {
 		Do ..OptmizeV1LosseOnderdelen(.BasisDoos)
 	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.dto.VouwErrondDoos")) {
-		Do ..OptmizeVouwErrondDoos(.BasisDoos, ProductGroep)
+		Do ..OptmizeVouwErrondDoos(.BasisDoos, ProductGroep, MachineTechnologie)
 	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.dto.V1DoosMetDeksel")) {
 		Do ..OptmizeV1DoosMetDeksel(.BasisDoos)
 	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.dto.V1Flatpack")) {
@@ -135,7 +135,7 @@
 </Method>
 
 <Method name="OptmizeVouwErrondDoos">
-<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.dto.VouwErrondDoos,ProductGroep:%String]]></FormalSpec>
+<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.dto.VouwErrondDoos,ProductGroep:%String,MachineTechnologie:APPS.Verpakking.enu.MachineTechnologie]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	If (ProductGroep = "KAD") {
@@ -180,35 +180,61 @@
 		If (..BreedtePlano > 2399) {
 			Set ..BreedtePlano = 2399
 		}	
+	} ElseIf (MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec()) {
+		
+		#dim BreedtePlanoVoorSwapRecept209 As %Decimal = BasisDoos.K1 + BasisDoos.CardBoardThickness + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + 5 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K1 + BasisDoos.CardBoardThickness
+		#dim DieptePlanoVoorSwapRecept209 As %Decimal = BasisDoos.Depth + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Depth + 10 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K2
+		
+		#dim NodigeKartonBreedteVoorSwapRecept209 = $Select(BreedtePlanoVoorSwapRecept209 <= ..AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept209, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
+		
+		#dim OppTotaleKartonVoorSwapRecept209 As %Decimal = DieptePlanoVoorSwapRecept209 * NodigeKartonBreedteVoorSwapRecept209
+		
+		#dim BreedtePlanoVoorSwapRecept219 As %Decimal = BasisDoos.Width + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + 10 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K2
+		#dim DieptePlanoVoorSwapRecept219 As %Decimal = BasisDoos.K1 + BasisDoos.CardBoardThickness + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Depth + 5 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K1 + + BasisDoos.CardBoardThickness
+		
+		#dim NodigeKartonBreedteVoorSwapRecept219 = $Select(BreedtePlanoVoorSwapRecept219 <= ..AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept219, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
+		
+		#dim OppTotaleKartonVoorSwapRecept219 As %Decimal = DieptePlanoVoorSwapRecept219 * NodigeKartonBreedteVoorSwapRecept209
+		
+		If (OppTotaleKartonVoorSwapRecept209 < OppTotaleKartonVoorSwapRecept219) {
+		Set ..BreedtePlano = BreedtePlanoVoorSwapRecept209
+		Set ..DieptePlano = DieptePlanoVoorSwapRecept209
+		Set BasisDoos.Recipe = 209
 	} Else {
+		Set ..BreedtePlano = BreedtePlanoVoorSwapRecept219
+		Set ..DieptePlano = DieptePlanoVoorSwapRecept219
+		Set BasisDoos.Recipe = 219
+	}
+		
+	} Else {
 		#dim SwapRecept219IsBeter, SwapRecept209IsBeter As %Boolean = $$$False
 		
-		#dim BreedtePlanoVoorSwapRecept219 As %Decimal = BasisDoos.K1 + BasisDoos.CardBoardThickness + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + 5 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K1 + BasisDoos.CardBoardThickness
-		#dim DieptePlanoVoorSwapRecept219 As %Decimal = BasisDoos.Depth + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Depth + 10 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K2
+		Set BreedtePlanoVoorSwapRecept219 = BasisDoos.K1 + BasisDoos.CardBoardThickness + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + 5 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K1 + BasisDoos.CardBoardThickness
+		Set DieptePlanoVoorSwapRecept219 = BasisDoos.Depth + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Depth + 10 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K2
 		
 		#dim BreedtePlanoNaSwapRecept219 As %Decimal = BasisDoos.K1 + BasisDoos.CardBoardThickness + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Depth + 5 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K1 + BasisDoos.CardBoardThickness
 		#dim DieptePlanoNaSwapRecept219 As %Decimal = BasisDoos.Width + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + 10 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K2
 		
-		#dim NodigeKartonBreedteVoorSwapRecept219 = $Select(BreedtePlanoVoorSwapRecept219 <= ..AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept219, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
+		Set NodigeKartonBreedteVoorSwapRecept219 = $Select(BreedtePlanoVoorSwapRecept219 <= ..AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept219, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
 		#dim NodigeKartonBreedteNaSwapRecept219 = $Select(BreedtePlanoNaSwapRecept219 <= ..AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept219, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
 		
-		#dim OppTotaleKartonVoorSwapRecept219 As %Decimal = DieptePlanoVoorSwapRecept219 * NodigeKartonBreedteVoorSwapRecept219
+		Set OppTotaleKartonVoorSwapRecept219 = DieptePlanoVoorSwapRecept219 * NodigeKartonBreedteVoorSwapRecept219
 		#dim OppTotaleKartonNaSwapRecept219 As %Decimal = DieptePlanoNaSwapRecept219 * NodigeKartonBreedteNaSwapRecept219
 		
 		If ((OppTotaleKartonNaSwapRecept219 < OppTotaleKartonVoorSwapRecept219)) {
 			Set SwapRecept219IsBeter = $$$True
 		}
 		
-		#dim BreedtePlanoVoorSwapRecept209 As %Decimal = BasisDoos.Width + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + 10 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K2
-		#dim DieptePlanoVoorSwapRecept209 As %Decimal = BasisDoos.K1 + BasisDoos.CardBoardThickness + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Depth + 5 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K1 + + BasisDoos.CardBoardThickness
+		Set BreedtePlanoVoorSwapRecept209  = BasisDoos.Width + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + 10 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K2
+		Set DieptePlanoVoorSwapRecept209 = BasisDoos.K1 + BasisDoos.CardBoardThickness + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Depth + 5 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K1 + + BasisDoos.CardBoardThickness
 		
 		#dim BreedtePlanoNaSwapRecept209 As %Decimal = BasisDoos.Depth + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Depth + 10 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K2
 		#dim DieptePlanoNaSwapRecept209 As %Decimal = BasisDoos.K1 + BasisDoos.CardBoardThickness + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + 5 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K1 + + BasisDoos.CardBoardThickness
 		
-		#dim NodigeKartonBreedteVoorSwapRecept209 = $Select(BreedtePlanoVoorSwapRecept209 <= ..AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept209, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
+		Set NodigeKartonBreedteVoorSwapRecept209 = $Select(BreedtePlanoVoorSwapRecept209 <= ..AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept209, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
 		#dim NodigeKartonBreedteNaSwapRecept209 = $Select(BreedtePlanoNaSwapRecept209 <= ..AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept209, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
 		
-		#dim OppTotaleKartonVoorSwapRecept209 As %Decimal = DieptePlanoVoorSwapRecept209 * NodigeKartonBreedteVoorSwapRecept209
+		Set OppTotaleKartonVoorSwapRecept209 = DieptePlanoVoorSwapRecept209 * NodigeKartonBreedteVoorSwapRecept209
 		#dim OppTotaleKartonNaSwapRecept209 As %Decimal = DieptePlanoNaSwapRecept209 * NodigeKartonBreedteNaSwapRecept209
 		
 		If ((OppTotaleKartonNaSwapRecept209 < OppTotaleKartonVoorSwapRecept209)) {
@@ -265,77 +291,28 @@
 <Implementation><![CDATA[
 	#dim SwapRecept220IsBeter, SwapRecept210IsBeter As %Boolean = $$$False
 	
-	#dim BreedtePlanoVoorSwapRecept220 As %Decimal = BasisDoos.Depth + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Depth + BasisDoos.CardBoardThickness + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + BasisDoos.FS
-	#dim DieptePlanoVoorSwapRecept220 As %Decimal = (BasisDoos.RS * (1 - BasisDoos.RT)) + (BasisDoos.Height * (1 - BasisDoos.RT)) + BasisDoos.RS + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + BasisDoos.CardBoardThickness + (BasisDoos.RT * BasisDoos.LS) + (BasisDoos.LT * BasisDoos.RS) + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.LS + (BasisDoos.Height * (1 - BasisDoos.LT)) + (BasisDoos.LS * (1 - BasisDoos.LT))
+	#dim BreedtePlanoVoorSwapRecept210 As %Decimal = BasisDoos.Depth + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Depth + BasisDoos.CardBoardThickness + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + BasisDoos.FS
+	#dim DieptePlanoVoorSwapRecept210 As %Decimal = (BasisDoos.RS * (1 - BasisDoos.RT)) + (BasisDoos.Height * (1 - BasisDoos.RT)) + BasisDoos.RS + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + BasisDoos.CardBoardThickness + (BasisDoos.RT * BasisDoos.LS) + (BasisDoos.LT * BasisDoos.RS) + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.LS + (BasisDoos.Height * (1 - BasisDoos.LT)) + (BasisDoos.LS * (1 - BasisDoos.LT))
 	
-	#dim BreedtePlanoNaSwapRecept220 As %Decimal = BasisDoos.Width + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Width + BasisDoos.CardBoardThickness + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + BasisDoos.FS
-	#dim DieptePlanoNaSwapRecept220 As %Decimal = (BasisDoos.RS * (1 - BasisDoos.RT)) + (BasisDoos.Height * (1 - BasisDoos.RT)) + BasisDoos.RS + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Depth + BasisDoos.CardBoardThickness + (BasisDoos.RT * BasisDoos.LS) + (BasisDoos.LT * BasisDoos.RS) + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.LS + (BasisDoos.Height * (1 - BasisDoos.LT)) + (BasisDoos.LS * (1 - BasisDoos.LT))
-	
-	#dim NodigeKartonBreedteVoorSwapRecept220 = $Select(BreedtePlanoVoorSwapRecept220 <= ..AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept220, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
-	#dim NodigeKartonBreedteNaSwapRecept220 = $Select(BreedtePlanoNaSwapRecept220 <= ..AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept220, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
-	
-	#dim OppTotaleKartonVoorSwapRecept220 As %Decimal = DieptePlanoVoorSwapRecept220 * NodigeKartonBreedteVoorSwapRecept220
-	#dim OppTotaleKartonNaSwapRecept220 As %Decimal = DieptePlanoNaSwapRecept220 * NodigeKartonBreedteNaSwapRecept220
-	
-	If ((OppTotaleKartonNaSwapRecept220 < OppTotaleKartonVoorSwapRecept220)) {
-		Set SwapRecept220IsBeter = $$$True
-	}
-	
-	#dim BreedtePlanoVoorSwapRecept210 As %Decimal = (BasisDoos.LS * (1 - BasisDoos.LT)) + (BasisDoos.Height * (1 - BasisDoos.LT)) + BasisDoos.LS + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + BasisDoos.CardBoardThickness + (BasisDoos.RT * BasisDoos.LS) + (BasisDoos.LT * BasisDoos.RS) + BasisDoos.RS + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.RS + (BasisDoos.Height * (1 - BasisDoos.RT)) + (BasisDoos.RS * (1 - BasisDoos.RT))
-	#dim DieptePlanoVoorSwapRecept210 As %Decimal = BasisDoos.Depth + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Depth + BasisDoos.CardBoardThickness + BasisDoos.Height + ( 2 * BasisDoos.CardBoardThickness) + BasisDoos.FS
-	
-	#dim BreedtePlanoNaSwapRecept210 As %Decimal = (BasisDoos.LS * (1 - BasisDoos.LT)) + (BasisDoos.Height * (1 - BasisDoos.LT)) + BasisDoos.LS + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Depth + BasisDoos.CardBoardThickness + (BasisDoos.RT * BasisDoos.LS) + (BasisDoos.LT * BasisDoos.RS) + BasisDoos.RS + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.RS + (BasisDoos.Height * (1 - BasisDoos.RT)) + (BasisDoos.RS * (1 - BasisDoos.RT))
-	#dim DieptePlanoNaSwapRecept210 As %Decimal = BasisDoos.Width + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Width + BasisDoos.CardBoardThickness + BasisDoos.Height + ( 2 * BasisDoos.CardBoardThickness) + BasisDoos.FS
-	
 	#dim NodigeKartonBreedteVoorSwapRecept210 = $Select(BreedtePlanoVoorSwapRecept210 <= ..AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept210, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
-	#dim NodigeKartonBreedteNaSwapRecept210 = $Select(BreedtePlanoNaSwapRecept210 <= ..AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept210, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
 	
 	#dim OppTotaleKartonVoorSwapRecept210 As %Decimal = DieptePlanoVoorSwapRecept210 * NodigeKartonBreedteVoorSwapRecept210
-	#dim OppTotaleKartonNaSwapRecept210 As %Decimal = DieptePlanoNaSwapRecept210 * NodigeKartonBreedteNaSwapRecept210
 	
-	If ((OppTotaleKartonNaSwapRecept210 < OppTotaleKartonVoorSwapRecept210)) {
-		Set SwapRecept210IsBeter = $$$True
-	}
+	#dim BreedtePlanoVoorSwapRecept220 As %Decimal = (BasisDoos.LS * (1 - BasisDoos.LT)) + (BasisDoos.Height * (1 - BasisDoos.LT)) + BasisDoos.LS + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + BasisDoos.CardBoardThickness + (BasisDoos.RT * BasisDoos.LS) + (BasisDoos.LT * BasisDoos.RS) + BasisDoos.RS + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.RS + (BasisDoos.Height * (1 - BasisDoos.RT)) + (BasisDoos.RS * (1 - BasisDoos.RT))
+	#dim DieptePlanoVoorSwapRecept220 As %Decimal = BasisDoos.Depth + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Depth + BasisDoos.CardBoardThickness + BasisDoos.Height + ( 2 * BasisDoos.CardBoardThickness) + BasisDoos.FS
 	
-	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) {
+	#dim NodigeKartonBreedteVoorSwapRecept220 = $Select(BreedtePlanoVoorSwapRecept220 <= ..AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept220, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
+	
+	#dim OppTotaleKartonVoorSwapRecept220 As %Decimal = DieptePlanoVoorSwapRecept220 * NodigeKartonBreedteVoorSwapRecept220
+	
+	If (OppTotaleKartonVoorSwapRecept210 < OppTotaleKartonVoorSwapRecept220) {
+		Set ..BreedtePlano = BreedtePlanoVoorSwapRecept210
+		Set ..DieptePlano = DieptePlanoVoorSwapRecept210
+		Set BasisDoos.Recipe = 210
+	} Else {
 		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
-		}
+		Set BasisDoos.Recipe = 220
 	}
 ]]></Implementation>
 </Method>
@@ -345,38 +322,50 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim SwapRecept207IsBeter, SwapRecept217IsBeter As %Boolean = $$$False
-	#dim BreedtePlanoVoorSwapRecept207 As %Decimal = BasisDoos.Depth + 10 + BasisDoos.Height +  BasisDoos.Depth + 10 + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Flap
-	#dim DieptePlanoVoorSwapRecept207 As %Decimal = BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Height + BasisDoos.Width + 20 + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Height
+	#dim BreedtePlanoVoorSwapRecept217 As %Decimal = BasisDoos.Width + 10 + BasisDoos.Height +  BasisDoos.Width + 10 + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Flap
+	#dim DieptePlanoVoorSwapRecept217 As %Decimal = BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Height + BasisDoos.Depth + 20 + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Height
 	
-	#dim BreedtePlanoNaSwapRecept207 As %Decimal = BasisDoos.Width + 10 + BasisDoos.Height +  BasisDoos.Width + 10 + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Flap
-	#dim DieptePlanoNaSwapRecept207 As %Decimal = BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Height + BasisDoos.Depth + 20 + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Height
+	;#dim BreedtePlanoNaSwapRecept207 As %Decimal = BasisDoos.Width + 10 + BasisDoos.Height +  BasisDoos.Width + 10 + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Flap
+	#;dim DieptePlanoNaSwapRecept207 As %Decimal = BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Height + BasisDoos.Depth + 20 + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Height
 	
-	#dim NodigeKartonBreedteVoorSwapRecept207 = $Select(BreedtePlanoVoorSwapRecept207 <= ..AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept207, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
-	#dim NodigeKartonBreedteNaSwapRecept207 = $Select(BreedtePlanoNaSwapRecept207 <= ..AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept207, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
+	#dim NodigeKartonBreedteVoorSwapRecept217 = $Select(BreedtePlanoVoorSwapRecept217 <= ..AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept217, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
+	;#dim NodigeKartonBreedteNaSwapRecept207 = $Select(BreedtePlanoNaSwapRecept207 <= ..AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept207, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
 	
-	#dim OppTotaleKartonVoorSwapRecept207 As %Decimal = DieptePlanoVoorSwapRecept207 * NodigeKartonBreedteVoorSwapRecept207
-	#dim OppTotaleKartonNaSwapRecept207 As %Decimal = DieptePlanoNaSwapRecept207 * NodigeKartonBreedteNaSwapRecept207
-	
+	#dim OppTotaleKartonVoorSwapRecept217 As %Decimal = DieptePlanoVoorSwapRecept217 * NodigeKartonBreedteVoorSwapRecept217
+	;#dim OppTotaleKartonNaSwapRecept207 As %Decimal = DieptePlanoNaSwapRecept207 * NodigeKartonBreedteNaSwapRecept207
+	/*
 	If ((OppTotaleKartonNaSwapRecept207 < OppTotaleKartonVoorSwapRecept207)) {
 		Set SwapRecept207IsBeter = $$$True
 	}
+	*/
+	#dim BreedtePlanoVoorSwapRecept207 As %Decimal = BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Height + BasisDoos.Width + 20 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Height
+	#dim DieptePlanoVoorSwapRecept207 As %Decimal = BasisDoos.Depth + 10 + BasisDoos.Height + BasisDoos.Depth + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Height + BasisDoos.Flap
 	
-	#dim BreedtePlanoVoorSwapRecept217 As %Decimal = BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Height + BasisDoos.Width + 20 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Height
-	#dim DieptePlanoVoorSwapRecept217 As %Decimal = BasisDoos.Depth + 10 + BasisDoos.Height + BasisDoos.Depth + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Height + BasisDoos.Flap
+	;#dim BreedtePlanoNaSwapRecept217 As %Decimal = BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Height + BasisDoos.Depth + 20 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Height
+	;#dim DieptePlanoNaSwapRecept217 As %Decimal =  BasisDoos.Width + 10 + BasisDoos.Height + BasisDoos.Width + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Height + BasisDoos.Flap
 	
-	#dim BreedtePlanoNaSwapRecept217 As %Decimal = BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Height + BasisDoos.Depth + 20 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Height
-	#dim DieptePlanoNaSwapRecept217 As %Decimal =  BasisDoos.Width + 10 + BasisDoos.Height + BasisDoos.Width + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Height + BasisDoos.Flap
+	#dim NodigeKartonBreedteVoorSwapRecept207 = $Select(BreedtePlanoVoorSwapRecept207 <= ..AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept207, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
+	;#dim NodigeKartonBreedteNaSwapRecept217 = $Select(BreedtePlanoNaSwapRecept217 <= ..AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept217, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
 	
-	#dim NodigeKartonBreedteVoorSwapRecept217 = $Select(BreedtePlanoVoorSwapRecept217 <= ..AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept217, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
-	#dim NodigeKartonBreedteNaSwapRecept217 = $Select(BreedtePlanoNaSwapRecept217 <= ..AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept217, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
-	
-	#dim OppTotaleKartonVoorSwapRecept217 As %Decimal = DieptePlanoVoorSwapRecept217 * NodigeKartonBreedteVoorSwapRecept217
-	#dim OppTotaleKartonNaSwapRecept217 As %Decimal = DieptePlanoNaSwapRecept217 * NodigeKartonBreedteNaSwapRecept217
-	
+	#dim OppTotaleKartonVoorSwapRecept207 As %Decimal = DieptePlanoVoorSwapRecept207 * NodigeKartonBreedteVoorSwapRecept207
+	;#dim OppTotaleKartonNaSwapRecept217 As %Decimal = DieptePlanoNaSwapRecept217 * NodigeKartonBreedteNaSwapRecept217
+	/*
 	If ((OppTotaleKartonNaSwapRecept217 < OppTotaleKartonVoorSwapRecept217)) {
 		Set SwapRecept217IsBeter = $$$True
 	}
+	*/
 	
+	If (OppTotaleKartonVoorSwapRecept207 < OppTotaleKartonVoorSwapRecept217) {
+		Set ..BreedtePlano = BreedtePlanoVoorSwapRecept207
+		Set ..DieptePlano = DieptePlanoVoorSwapRecept207
+		Set BasisDoos.Recipe = 207
+	} Else {
+		Set ..BreedtePlano = BreedtePlanoVoorSwapRecept217
+		Set ..DieptePlano = DieptePlanoVoorSwapRecept217
+		Set BasisDoos.Recipe = 217
+	}
+	
+	/*
 	If (SwapRecept207IsBeter && SwapRecept217IsBeter) {
 		Set ..BreedtePlano = BreedtePlanoNaSwapRecept207
 		Set ..DieptePlano = DieptePlanoNaSwapRecept207
@@ -417,6 +406,7 @@
 			Set BasisDoos.Recipe = 217
 		}
 	}
+	*/
 ]]></Implementation>
 </Method>