Index: APPS/Verpakking/Optimizer.cls.xml
===================================================================
diff -u -r69865 -r69872
--- APPS/Verpakking/Optimizer.cls.xml	(.../Optimizer.cls.xml)	(revision 69865)
+++ APPS/Verpakking/Optimizer.cls.xml	(.../Optimizer.cls.xml)	(revision 69872)
@@ -3,12 +3,6 @@
 <Class name="APPS.Verpakking.Optimizer">
 <Super>TECH.Mockable</Super>
 
-<Parameter name="MachineKant">
-<Description>
-Machinekant = 2 x 25mm</Description>
-<Default>50</Default>
-</Parameter>
-
 <Parameter name="AfmetingBreedsteKarton">
 <Default>2400</Default>
 </Parameter>
@@ -72,35 +66,35 @@
 <Method name="OptmizeV1HogeRug">
 <FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.V1HogeRug]]></FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Set ..BreedtePlano = BasisDoos.Depth - BasisDoos.T + BasisDoos.Height + BasisDoos.Depth + BasisDoos.H2 + BasisDoos.OverhangSize + (2 * BasisDoos.OverhangThickness) + BasisDoos.K + ..#MachineKant
+<Implementation><![CDATA[	Set ..BreedtePlano = BasisDoos.Depth - BasisDoos.T + (BasisDoos.CardBoardThickness * 2) + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Depth + BasisDoos.Height + BasisDoos.H2 - BasisDoos.Height - BasisDoos.CardBoardThickness + BasisDoos.OverhangSize + BasisDoos.CardBoardThickness + BasisDoos.H2 - BasisDoos.Height + BasisDoos.K
 ]]></Implementation>
 </Method>
 
 <Method name="OptmizeV1LageRug">
 <FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.V1LageRug]]></FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Set ..BreedtePlano =  BasisDoos.Depth + BasisDoos.Height + BasisDoos.Depth + BasisDoos.Height + BasisDoos.K + ..#MachineKant
+<Implementation><![CDATA[	Set ..BreedtePlano =  BasisDoos.K + BasisDoos.Height + BasisDoos.Depth + 10 + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Depth + 10
 ]]></Implementation>
 </Method>
 
 <Method name="OptmizeV1LosseOnderdelen">
 <FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.V1LosseOnderdelen]]></FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Set ..BreedtePlano = BasisDoos.K1 + BasisDoos.Width + BasisDoos.Depth + BasisDoos.Width + BasisDoos.K1  + ..#MachineKant
+<Implementation><![CDATA[	Set ..BreedtePlano = BasisDoos.K1 + (BasisDoos.CardBoardThickness / 2) + BasisDoos.Width + BasisDoos.CardBoardThickness + BasisDoos.Depth + BasisDoos.CardBoardThickness + BasisDoos.Width + BasisDoos.CardBoardThickness + BasisDoos.K1 + (BasisDoos.CardBoardThickness / 2)
 ]]></Implementation>
 </Method>
 
 <Method name="OptmizeComplexeScheiding">
 <FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.ComplexeScheiding]]></FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Set ..BreedtePlano = (BasisDoos.Width * BasisDoos.NBR) + ..#MachineKant
+<Implementation><![CDATA[	Set ..BreedtePlano = BasisDoos.Width
 ]]></Implementation>
 </Method>
 
 <Method name="OptmizeV1Flatpack">
 <FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.V1Flatpack]]></FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Set ..BreedtePlano = BasisDoos.K3 + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.K1 + BasisDoos.K2 + ..#MachineKant
+<Implementation><![CDATA[	Set ..BreedtePlano = BasisDoos.K3 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + BasisDoos.CardBoardThickness + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K1 + (BasisDoos.CardBoardThickness / 2) + BasisDoos.K2
 ]]></Implementation>
 </Method>
 
@@ -110,21 +104,21 @@
 <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
+		#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
-			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 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
 		}
 		
-		#dim BreedtePlanoAltRecept As %Decimal = BasisDoos.Width + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.K2 + ..#MachineKant
-		#dim DieptePlanoAltRecept As %Decimal = BasisDoos.K1 + BasisDoos.Height + BasisDoos.Depth + BasisDoos.Height + BasisDoos.K1
+		#dim BreedtePlanoAltRecept As %Decimal = BasisDoos.Width + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + 10 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K2
+		#dim DieptePlanoAltRecept As %Decimal = BasisDoos.K1 + BasisDoos.CardBoardThickness + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Depth + 5 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K1 + + BasisDoos.CardBoardThickness
 		
 		If (BreedtePlanoAltRecept > ..#AfmetingBreedsteKarton) { //Breedte grootste karton, als het te breed is wordt er geswapt -> Definitie van swap = 2
-			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 BreedtePlanoRecept =  BasisDoos.Depth + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Depth + 10 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K2
+			Set DieptePlanoRecept = BasisDoos.K1 + BasisDoos.CardBoardThickness + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + 5 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K1 + + BasisDoos.CardBoardThickness
 			Set BasisDoos.Swap = 1
 		}
 		
@@ -142,11 +136,11 @@
 	} Else {
 		#dim SwapRecept219IsBeter, SwapRecept209IsBeter As %Boolean = $$$False
 		
-		#dim BreedtePlanoVoorSwapRecept219 As %Decimal = BasisDoos.K1 + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.K1 + ..#MachineKant
-		#dim DieptePlanoVoorSwapRecept219 As %Decimal = BasisDoos.Depth + BasisDoos.Height + BasisDoos.Depth + BasisDoos.Height + BasisDoos.K2
+		#dim BreedtePlanoVoorSwapRecept219 As %Decimal = BasisDoos.K1 + BasisDoos.CardBoardThickness + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + 5 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K1 + BasisDoos.CardBoardThickness
+		#dim DieptePlanoVoorSwapRecept219 As %Decimal = BasisDoos.Depth + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Depth + 10 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K2
 		
-		#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 BreedtePlanoNaSwapRecept219 As %Decimal = BasisDoos.K1 + BasisDoos.CardBoardThickness + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Depth + 5 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K1 + BasisDoos.CardBoardThickness
+		#dim DieptePlanoNaSwapRecept219 As %Decimal = BasisDoos.Width + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + 10 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K2
 		
 		#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)
@@ -158,11 +152,11 @@
 			Set SwapRecept219IsBeter = $$$True
 		}
 		
-		#dim BreedtePlanoVoorSwapRecept209 As %Decimal = BasisDoos.Width + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.K2 + ..#MachineKant
-		#dim DieptePlanoVoorSwapRecept209 As %Decimal = BasisDoos.K1 + BasisDoos.Height + BasisDoos.Depth + BasisDoos.Height + BasisDoos.K1
+		#dim BreedtePlanoVoorSwapRecept209 As %Decimal = BasisDoos.Width + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + 10 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K2
+		#dim DieptePlanoVoorSwapRecept209 As %Decimal = BasisDoos.K1 + BasisDoos.CardBoardThickness + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Depth + 5 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K1 + + BasisDoos.CardBoardThickness
 		
-		#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 BreedtePlanoNaSwapRecept209 As %Decimal = BasisDoos.Depth + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Depth + 10 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K2
+		#dim DieptePlanoNaSwapRecept209 As %Decimal = BasisDoos.K1 + BasisDoos.CardBoardThickness + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + 5 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K1 + + BasisDoos.CardBoardThickness
 		
 		#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)
@@ -288,13 +282,13 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim SwapRecept207IsBeter, SwapRecept217IsBeter As %Boolean = $$$False
+	//Nog aan te passen!!, zie KBD
+	#dim BreedtePlanoVoorSwapRecept207 As %Decimal = BasisDoos.Depth + 10 + BasisDoos.Height +  BasisDoos.Depth + 10 + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Flap
+	#dim DieptePlanoVoorSwapRecept207 As %Decimal = BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Height + BasisDoos.Width + 20 + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Height
 	
-	#dim BreedtePlanoVoorSwapRecept207 As %Decimal = BasisDoos.Width + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.K1 + ..#MachineKant
-	#dim DieptePlanoVoorSwapRecept207 As %Decimal = BasisDoos.Height + BasisDoos.Height + BasisDoos.Depth + BasisDoos.Height + BasisDoos.Height
+	#dim BreedtePlanoNaSwapRecept207 As %Decimal = BasisDoos.Width + 10 + BasisDoos.Height +  BasisDoos.Width + 10 + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Flap
+	#dim DieptePlanoNaSwapRecept207 As %Decimal = BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Height + BasisDoos.Depth + 20 + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Height
 	
-	#dim BreedtePlanoNaSwapRecept207 As %Decimal = BasisDoos.Depth + BasisDoos.Height + BasisDoos.Depth + BasisDoos.Height + BasisDoos.K1 + ..#MachineKant
-	#dim DieptePlanoNaSwapRecept207 As %Decimal = BasisDoos.Height + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.Height
-	
 	#dim NodigeKartonBreedteVoorSwapRecept207 = $Select(BreedtePlanoVoorSwapRecept207 <= ..#AfmetingBreedsteKarton: ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept207, BasisDoos.LogoPrint), 1: 9999999)
 	#dim NodigeKartonBreedteNaSwapRecept207 = $Select(BreedtePlanoNaSwapRecept207 <= ..#AfmetingBreedsteKarton: ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept207, BasisDoos.LogoPrint), 1: 9999999)
 	
@@ -305,11 +299,11 @@
 		Set SwapRecept207IsBeter = $$$True
 	}
 	
-	#dim BreedtePlanoVoorSwapRecept217 As %Decimal = BasisDoos.Height + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.Height + ..#MachineKant
-	#dim DieptePlanoVoorSwapRecept217 As %Decimal = BasisDoos.Depth + BasisDoos.Height + BasisDoos.Depth + BasisDoos.Height + BasisDoos.K1
+	#dim BreedtePlanoVoorSwapRecept217 As %Decimal = BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Height + BasisDoos.Width + 20 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Height
+	#dim DieptePlanoVoorSwapRecept217 As %Decimal = BasisDoos.Depth + 10 + BasisDoos.Height + BasisDoos.Depth + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Height + BasisDoos.Flap
 	
-	#dim BreedtePlanoNaSwapRecept217 As %Decimal = BasisDoos.Height + BasisDoos.Height + BasisDoos.Depth + BasisDoos.Height + BasisDoos.Height + ..#MachineKant
-	#dim DieptePlanoNaSwapRecept217 As %Decimal = BasisDoos.Width + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.K1
+	#dim BreedtePlanoNaSwapRecept217 As %Decimal = BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Height + BasisDoos.Depth + 20 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Height
+	#dim DieptePlanoNaSwapRecept217 As %Decimal =  BasisDoos.Width + 10 + BasisDoos.Height + BasisDoos.Width + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Height + BasisDoos.Flap
 	
 	#dim NodigeKartonBreedteVoorSwapRecept217 = $Select(BreedtePlanoVoorSwapRecept217 <= ..#AfmetingBreedsteKarton: ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept217, BasisDoos.LogoPrint), 1: 9999999)
 	#dim NodigeKartonBreedteNaSwapRecept217 = $Select(BreedtePlanoNaSwapRecept217 <= ..#AfmetingBreedsteKarton: ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept217, BasisDoos.LogoPrint), 1: 9999999)
@@ -359,21 +353,21 @@
 <Method name="OptmizeV1DoosMetDeksel">
 <FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.V1DoosMetDeksel]]></FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Set ..BreedtePlano = BasisDoos.Depth + BasisDoos.Height + BasisDoos.Depth + BasisDoos.Height + BasisDoos.K + ..#MachineKant
+<Implementation><![CDATA[	Set ..BreedtePlano =  BasisDoos.K + BasisDoos.Height + BasisDoos.Depth + 10 + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Depth + 10
 ]]></Implementation>
 </Method>
 
 <Method name="OptmizeVulstuk">
 <FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.Vulstuk]]></FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Set ..BreedtePlano = BasisDoos.Width + ..#MachineKant
+<Implementation><![CDATA[	Set ..BreedtePlano = BasisDoos.Width
 ]]></Implementation>
 </Method>
 
 <Method name="OptmizeVulstukKlein">
 <FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.VulstukKlein]]></FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Set ..BreedtePlano = BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + ..#MachineKant
+<Implementation><![CDATA[	Set ..BreedtePlano = BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height
 ]]></Implementation>
 </Method>
 </Class>