Index: APPS/Verpakking/Optimizer.cls.xml
===================================================================
diff -u -r69609 -r69619
--- APPS/Verpakking/Optimizer.cls.xml	(.../Optimizer.cls.xml)	(revision 69609)
+++ APPS/Verpakking/Optimizer.cls.xml	(.../Optimizer.cls.xml)	(revision 69619)
@@ -214,11 +214,11 @@
 <Implementation><![CDATA[
 	#dim SwapRecept220IsBeter, SwapRecept210IsBeter As %Boolean = $$$False
 	
-	#dim BreedtePlanoVoorSwapRecept220 As %Decimal = BasisDoos.Width + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.FS + ..#MachineKant
-	#dim DieptePlanoVoorSwapRecept220 As %Decimal = BasisDoos.RS + BasisDoos.Height + BasisDoos.RS + BasisDoos.Height + BasisDoos.RS + BasisDoos.Depth + BasisDoos.LS + BasisDoos.Height + BasisDoos.LS + BasisDoos.Height + BasisDoos.LS
+	#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 BreedtePlanoNaSwapRecept220 As %Decimal = BasisDoos.Depth + BasisDoos.Height + BasisDoos.Depth + BasisDoos.Height + BasisDoos.FS + ..#MachineKant
-	#dim DieptePlanoNaSwapRecept220 As %Decimal = BasisDoos.RS + BasisDoos.Height + BasisDoos.RS + BasisDoos.Height + BasisDoos.RS + BasisDoos.Width + BasisDoos.LS + BasisDoos.Height + BasisDoos.LS + BasisDoos.Height + BasisDoos.LS
+	#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: ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept220, BasisDoos.LogoPrint), 1: 9999999)
 	#dim NodigeKartonBreedteNaSwapRecept220 = $Select(BreedtePlanoNaSwapRecept220 <= ..#AfmetingBreedsteKarton: ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept220, BasisDoos.LogoPrint), 1: 9999999)
@@ -230,11 +230,11 @@
 		Set SwapRecept220IsBeter = $$$True
 	}
 	
-	#dim BreedtePlanoVoorSwapRecept210 As %Decimal = BasisDoos.LS + BasisDoos.Height + BasisDoos.LS + BasisDoos.Height + BasisDoos.LS + BasisDoos.Width + BasisDoos.RS + BasisDoos.Height + BasisDoos.RS + BasisDoos.Height + BasisDoos.RS + ..#MachineKant
-	#dim DieptePlanoVoorSwapRecept210 As %Decimal = BasisDoos.Depth + BasisDoos.Height + BasisDoos.Depth + BasisDoos.Height + BasisDoos.FS
+	#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 + BasisDoos.Height + BasisDoos.LS + BasisDoos.Height + BasisDoos.LS + BasisDoos.Depth + BasisDoos.RS + BasisDoos.Height + BasisDoos.RS + BasisDoos.Height + BasisDoos.RS + ..#MachineKant
-	#dim DieptePlanoNaSwapRecept210 As %Decimal = BasisDoos.Width + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + 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: ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept210, BasisDoos.LogoPrint), 1: 9999999)
 	#dim NodigeKartonBreedteNaSwapRecept210 = $Select(BreedtePlanoNaSwapRecept210 <= ..#AfmetingBreedsteKarton: ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept210, BasisDoos.LogoPrint), 1: 9999999)