Index: APPS/Verpakking/Optimizer.cls.xml
===================================================================
diff -u -r68866 -r69241
--- APPS/Verpakking/Optimizer.cls.xml	(.../Optimizer.cls.xml)	(revision 68866)
+++ APPS/Verpakking/Optimizer.cls.xml	(.../Optimizer.cls.xml)	(revision 69241)
@@ -9,6 +9,10 @@
 <Default>50</Default>
 </Parameter>
 
+<Parameter name="AfmetingBreedsteKarton">
+<Default>2400</Default>
+</Parameter>
+
 <Property name="BasisDoos">
 <Type>APPS.Verpakking.Doos</Type>
 <Private>1</Private>
@@ -105,8 +109,8 @@
 			Set DieptePlanoRecept = BasisDoos.K1 + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.K1
 		}
 		
-		#dim NodigeKartonBreedteRecept = ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoRecept, BasisDoos.LogoPrint)
-		#dim NodigeKartonBreedteAltRecept = ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoAltRecept, BasisDoos.LogoPrint)
+		#dim NodigeKartonBreedteRecept = $Select(BreedtePlanoRecept <= ..#AfmetingBreedsteKarton: ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoRecept, BasisDoos.LogoPrint), 1: 9999999)
+		#dim NodigeKartonBreedteAltRecept =  $Select(BreedtePlanoAltRecept <= ..#AfmetingBreedsteKarton: ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoAltRecept, BasisDoos.LogoPrint), 1: 9999999)
 		
 		#dim OppTotaleKartonRecept As %Decimal = DieptePlanoRecept * NodigeKartonBreedteRecept
 		#dim OppTotaleKartonAltRecept As %Decimal = DieptePlanoAltRecept * NodigeKartonBreedteAltRecept
@@ -126,8 +130,8 @@
 		#dim BreedtePlanoNaSwapRecept219 As %Decimal = BasisDoos.K1 + BasisDoos.Height + BasisDoos.Depth + BasisDoos.Height + BasisDoos.K1 + ..#MachineKant
 		#dim DieptePlanoNaSwapRecept219 As %Decimal = BasisDoos.Width + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.K2
 		
-		#dim NodigeKartonBreedteVoorSwapRecept219 = ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept219, BasisDoos.LogoPrint)
-		#dim NodigeKartonBreedteNaSwapRecept219 = ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept219, BasisDoos.LogoPrint)
+		#dim NodigeKartonBreedteVoorSwapRecept219 = $Select(BreedtePlanoVoorSwapRecept219 <= ..#AfmetingBreedsteKarton: ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept219, BasisDoos.LogoPrint), 1: 9999999)
+		#dim NodigeKartonBreedteNaSwapRecept219 = $Select(BreedtePlanoNaSwapRecept219 <= ..#AfmetingBreedsteKarton: ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept219, BasisDoos.LogoPrint), 1: 9999999)
 		
 		#dim OppTotaleKartonVoorSwapRecept219 As %Decimal = DieptePlanoVoorSwapRecept219 * NodigeKartonBreedteVoorSwapRecept219
 		#dim OppTotaleKartonNaSwapRecept219 As %Decimal = DieptePlanoNaSwapRecept219 * NodigeKartonBreedteNaSwapRecept219
@@ -142,8 +146,8 @@
 		#dim BreedtePlanoNaSwapRecept209 As %Decimal = BasisDoos.Depth + BasisDoos.Height + BasisDoos.Depth + BasisDoos.Height + BasisDoos.K2 + ..#MachineKant
 		#dim DieptePlanoNaSwapRecept209 As %Decimal = BasisDoos.K1 + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.K1
 		
-		#dim NodigeKartonBreedteVoorSwapRecept209 = ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept209, BasisDoos.LogoPrint)
-		#dim NodigeKartonBreedteNaSwapRecept209 = ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept209, BasisDoos.LogoPrint)
+		#dim NodigeKartonBreedteVoorSwapRecept209 = $Select(BreedtePlanoVoorSwapRecept209 <= ..#AfmetingBreedsteKarton: ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept209, BasisDoos.LogoPrint), 1: 9999999)
+		#dim NodigeKartonBreedteNaSwapRecept209 = $Select(BreedtePlanoNaSwapRecept209 <= ..#AfmetingBreedsteKarton: ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept209, BasisDoos.LogoPrint), 1: 9999999)
 		
 		#dim OppTotaleKartonVoorSwapRecept209 As %Decimal = DieptePlanoVoorSwapRecept209 * NodigeKartonBreedteVoorSwapRecept209
 		#dim OppTotaleKartonNaSwapRecept209 As %Decimal = DieptePlanoNaSwapRecept209 * NodigeKartonBreedteNaSwapRecept209