Index: APPS/Verpakking/Optimizer.cls.xml
===================================================================
diff -u -r72323 -r72341
--- APPS/Verpakking/Optimizer.cls.xml	(.../Optimizer.cls.xml)	(revision 72323)
+++ APPS/Verpakking/Optimizer.cls.xml	(.../Optimizer.cls.xml)	(revision 72341)
@@ -187,14 +187,14 @@
 			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 + 50 //50 marge voor panotec
+		#dim BreedtePlanoVoorSwapRecept209 As %Decimal = BasisDoos.K1 + BasisDoos.CardBoardThickness + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + 5 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K1 + BasisDoos.CardBoardThickness + 25 //25 marge voor panotec
 		#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 + 50 //50 marge voor panotec
+		#dim BreedtePlanoVoorSwapRecept219 As %Decimal = BasisDoos.Width + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + 10 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K2 + 25 //25 marge voor panotec
 		#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)
@@ -210,7 +210,7 @@
 			Set ..DieptePlano = DieptePlanoVoorSwapRecept219
 			Set BasisDoos.Recipe = 219
 		}
-		
+		Set BasisDoos.Swap = 0
 	} Else {
 		#dim SwapRecept219IsBeter, SwapRecept209IsBeter As %Boolean = $$$False
 		
@@ -294,6 +294,7 @@
 <FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.dto.VouwErrondDoosBuffer]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	//Wat met machinetechnologie?? Wat indien ooit Kraft? Dit is voor OL zo, recepten Kraft zitten er anders in, 210 is 220
 	#dim SwapRecept220IsBeter, SwapRecept210IsBeter As %Boolean = $$$False
 	
 	#dim BreedtePlanoVoorSwapRecept210 As %Decimal = BasisDoos.Depth + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Depth + BasisDoos.CardBoardThickness + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + BasisDoos.FS
@@ -303,6 +304,14 @@
 	
 	#dim OppTotaleKartonVoorSwapRecept210 As %Decimal = DieptePlanoVoorSwapRecept210 * NodigeKartonBreedteVoorSwapRecept210
 	
+	Set ..BreedtePlano = BreedtePlanoVoorSwapRecept210
+	Set ..DieptePlano = DieptePlanoVoorSwapRecept210
+	Set BasisDoos.Recipe = 210
+	
+	
+	// !!!!!!!!!! Recept 220 staat uitgeschakeld omdat dit het plooien te lastig maakt !!!!!!!!!
+	
+	/*
 	#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
 	
@@ -319,6 +328,7 @@
 		Set ..DieptePlano = DieptePlanoVoorSwapRecept220
 		Set BasisDoos.Recipe = 220
 	}
+	*/
 ]]></Implementation>
 </Method>