Index: APPS/Verpakking/Optimizer.cls.xml
===================================================================
diff -u -r69608 -r69609
--- APPS/Verpakking/Optimizer.cls.xml	(.../Optimizer.cls.xml)	(revision 69608)
+++ APPS/Verpakking/Optimizer.cls.xml	(.../Optimizer.cls.xml)	(revision 69609)
@@ -107,12 +107,14 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	If (ProductGroep = "KAD") {
+		Set BasisDoos.Swap = 0
 		#dim BreedtePlanoRecept As %Decimal = BasisDoos.K1 + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.K1 + ..#MachineKant
 		#dim DieptePlanoRecept As %Decimal = BasisDoos.Depth + BasisDoos.Height + BasisDoos.Depth + BasisDoos.Height + BasisDoos.K2
 		
 		If (BreedtePlanoRecept > 2400) { //Breedte grootste karton, als het te breed is wordt er geswapt -> Definitie van swap = 2
 			Set BreedtePlanoRecept =  BasisDoos.K1 + BasisDoos.Height + BasisDoos.Depth + BasisDoos.Height + BasisDoos.K1 + ..#MachineKant
 			Set DieptePlanoRecept = BasisDoos.Width + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.K2
+			Set BasisDoos.Swap = 1
 		}
 		
 		#dim BreedtePlanoAltRecept As %Decimal = BasisDoos.Width + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.K2 + ..#MachineKant
@@ -121,6 +123,7 @@
 		If (BreedtePlanoAltRecept > 2400) {
 			Set BreedtePlanoRecept =  BasisDoos.Depth + BasisDoos.Height + BasisDoos.Depth + BasisDoos.Height + BasisDoos.K2 + ..#MachineKant
 			Set DieptePlanoRecept = BasisDoos.K1 + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.K1
+			Set BasisDoos.Swap = 1
 		}
 		
 		#dim NodigeKartonBreedteRecept = $Select(BreedtePlanoRecept <= ..#AfmetingBreedsteKarton: ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoRecept, BasisDoos.LogoPrint), 1: 9999999)
@@ -133,7 +136,6 @@
 		If ((OppTotaleKartonAltRecept < OppTotaleKartonRecept)) {
 			Set ..BreedtePlano = BreedtePlanoAltRecept
 			Set BasisDoos.Recipe = BasisDoos.AltRecipe
-			Set BasisDoos.Swap = BasisDoos.AltSwap
 		}			
 	} Else {
 		#dim SwapRecept219IsBeter, SwapRecept209IsBeter As %Boolean = $$$False