Index: vhUnitTest/APPS/Verpakking/Optimizer/Test.cls.xml
===================================================================
diff -u -r69610 -r69898
--- vhUnitTest/APPS/Verpakking/Optimizer/Test.cls.xml	(.../Test.cls.xml)	(revision 69610)
+++ vhUnitTest/APPS/Verpakking/Optimizer/Test.cls.xml	(.../Test.cls.xml)	(revision 69898)
@@ -27,7 +27,7 @@
 	Set Doos.Width = 800
 	Set Doos.Height = 80
 	Set Doos.Depth = 200
-	Do ..AssertDoos(Doos, ProductGroep, 219, 0)
+	Do ..AssertDoos(Doos, ProductGroep, 209, 1)
 	
 	Set Doos.Width = 600
 	Set Doos.Depth = 2100	
Index: APPS/Verpakking/Optimizer.cls.xml
===================================================================
diff -u -r69872 -r69898
--- APPS/Verpakking/Optimizer.cls.xml	(.../Optimizer.cls.xml)	(revision 69872)
+++ APPS/Verpakking/Optimizer.cls.xml	(.../Optimizer.cls.xml)	(revision 69898)
@@ -107,7 +107,7 @@
 		#dim BreedtePlanoRecept As %Decimal = BasisDoos.K1 + BasisDoos.CardBoardThickness + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + 5 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K1 + BasisDoos.CardBoardThickness
 		#dim DieptePlanoRecept As %Decimal = BasisDoos.Depth + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Depth + 10 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K2
 		
-		If (BreedtePlanoRecept > 1200) { //Er is een rariteitje waarbij het karton van de kaderdeur precies niet altijd kan gemaakt worden op de panotec, hopelijk is dit een fix //Breedte grootste karton, als het te breed is wordt er geswapt -> Definitie van swap = 2
+		If (BreedtePlanoRecept > 1100) { //Er is een rariteitje waarbij het karton van de kaderdeur precies niet altijd kan gemaakt worden op de panotec, hopelijk is dit een fix //Breedte grootste karton, als het te breed is wordt er geswapt -> Definitie van swap = 2
 			Set BreedtePlanoRecept =  BasisDoos.K1 + BasisDoos.CardBoardThickness + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Depth + 5 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K1 + BasisDoos.CardBoardThickness
 			Set DieptePlanoRecept = BasisDoos.Width + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + 10 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K2
 			Set BasisDoos.Swap = 1