Index: APPS/Verpakking/Optimizer.cls.xml
===================================================================
diff -u -r71202 -r72341
--- APPS/Verpakking/Optimizer.cls.xml	(.../Optimizer.cls.xml)	(revision 71202)
+++ APPS/Verpakking/Optimizer.cls.xml	(.../Optimizer.cls.xml)	(revision 72341)
@@ -3,15 +3,15 @@
 <Class name="APPS.Verpakking.Optimizer">
 <Super>TECH.Mockable</Super>
 
-<Parameter name="AfmetingBreedsteKarton">
+<Property name="AfmetingBreedsteKarton">
 <Description><![CDATA[
 Swap parameters zijn te vinden op het doos object
 Swap = 0 -> Geen swap
 Swap = 1 -> Breedte en diepte worden sowieso geswapt
 Swap = 2 -> Conditionele swap: enkel swappen indien de plano te breed is voor het breedste karton
 Sommige recepten hebben zowel swap 0 als 1 beschikbaar, in deze situatie moet worden gekekend welk recept het minste karton verbruikt]]></Description>
-<Default>2400</Default>
-</Parameter>
+<Type>%Integer</Type>
+</Property>
 
 <Property name="BasisDoos">
 <Type>APPS.Verpakking.dto.Doos</Type>
@@ -42,6 +42,7 @@
 <FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.dto.Doos,ProductGroep:%String,MachineTechnologie:APPS.Verpakking.enu.MachineTechnologie,MachineId:APPS.Verpakking.enu.MachineID]]></FormalSpec>
 <Implementation><![CDATA[
 	Set ..KartonRepository = ##class(APPS.Verpakking.KartonRepository).%New()
+	Set ..AfmetingBreedsteKarton = ..KartonRepository.GeefBreedsteKarton(BasisDoos.CardBoardThickness, BasisDoos.LogoPrint, MachineId)
 	Set ..MachineId = MachineId
 		
 	If (BasisDoos.%Extends("APPS.Verpakking.dto.V1HogeRug")) {
@@ -51,7 +52,7 @@
 	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.dto.V1LosseOnderdelen")) {
 		Do ..OptmizeV1LosseOnderdelen(.BasisDoos)
 	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.dto.VouwErrondDoos")) {
-		Do ..OptmizeVouwErrondDoos(.BasisDoos, ProductGroep)
+		Do ..OptmizeVouwErrondDoos(.BasisDoos, ProductGroep, MachineTechnologie)
 	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.dto.V1DoosMetDeksel")) {
 		Do ..OptmizeV1DoosMetDeksel(.BasisDoos)
 	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.dto.V1Flatpack")) {
@@ -67,7 +68,7 @@
 	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.dto.ZelfstaandMetDeksel")) {
 		Do ..OptmizeZelfstaandMetDeksel(.BasisDoos)
 	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.dto.Overdoos")) {
-		Do ..OptimizeOverdoos(.BasisDoos)
+		Do ..OptimizeOverdoos(.BasisDoos, MachineTechnologie)
 	}
 	
 	Set BasisDoos.CardBoardID = ..KartonRepository.GeefKartonID(BasisDoos.CardBoardThickness, ..BreedtePlano, BasisDoos.LogoPrint, ..MachineId)
@@ -134,17 +135,23 @@
 </Method>
 
 <Method name="OptmizeVouwErrondDoos">
-<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.dto.VouwErrondDoos,ProductGroep:%String]]></FormalSpec>
+<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.dto.VouwErrondDoos,ProductGroep:%String,MachineTechnologie:APPS.Verpakking.enu.MachineTechnologie]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	If (ProductGroep = "KAD") {
+		
+		If (MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec()) {
+			Set BasisDoos.Recipe = 209
+			Set BasisDoos.AltRecipe = 219
+		}
+		
 		Set BasisDoos.Swap = 0
 		Set BasisDoos.AltSwap = 0
 		
 		#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 > ..#AfmetingBreedsteKarton) { //Breedte grootste karton, als het te breed is wordt er geswapt -> Definitie van swap = 2
+		If (BreedtePlanoRecept > ..AfmetingBreedsteKarton) { //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
@@ -153,14 +160,14 @@
 		#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
+		If (BreedtePlanoAltRecept > ..AfmetingBreedsteKarton) { //Breedte grootste karton, als het te breed is wordt er geswapt -> Definitie van swap = 2
 			Set BreedtePlanoAltRecept =  BasisDoos.Depth + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Depth + 10 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K2
 			Set DieptePlanoAltRecept = BasisDoos.K1 + BasisDoos.CardBoardThickness + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + 5 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K1 + + BasisDoos.CardBoardThickness
 			Set BasisDoos.AltSwap = 1
 		}
 		Do ##class(vhLib.Logger).%New("GeefDoos").Info("KAD parameters", BreedtePlanoRecept _ " " _DieptePlanoRecept _ " " _BreedtePlanoAltRecept _ " " _DieptePlanoAltRecept_ " " _ BasisDoos.LogoPrint _ " " _ BasisDoos.CardBoardThickness)
-		#dim NodigeKartonBreedteRecept = $Select(BreedtePlanoRecept <= ..#AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoRecept, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
-		#dim NodigeKartonBreedteAltRecept =  $Select(BreedtePlanoAltRecept <= ..#AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoAltRecept, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
+		#dim NodigeKartonBreedteRecept = $Select(BreedtePlanoRecept <= ..AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoRecept, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
+		#dim NodigeKartonBreedteAltRecept =  $Select(BreedtePlanoAltRecept <= ..AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoAltRecept, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
 		
 		#dim OppTotaleKartonRecept As %Decimal = DieptePlanoRecept * NodigeKartonBreedteRecept
 		#dim OppTotaleKartonAltRecept As %Decimal = DieptePlanoAltRecept * NodigeKartonBreedteAltRecept
@@ -174,40 +181,65 @@
 			Set BasisDoos.Swap = BasisDoos.AltSwap
 		}	
 		
-		Set ..BreedtePlano = ..BreedtePlano + 200 //200 als buffer omdat hij soms zijn VH machine zijn koppen niet kan zetten, zie confluence
+		Set ..BreedtePlano = ..BreedtePlano + 100 //100 als buffer omdat hij soms zijn VH machine zijn koppen niet kan zetten, zie confluence
 		
 		If (..BreedtePlano > 2399) {
 			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 + 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 + 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)
+		
+		#dim OppTotaleKartonVoorSwapRecept219 As %Decimal = DieptePlanoVoorSwapRecept219 * NodigeKartonBreedteVoorSwapRecept219
+		
+		If (OppTotaleKartonVoorSwapRecept209 < OppTotaleKartonVoorSwapRecept219) {
+			Set ..BreedtePlano = BreedtePlanoVoorSwapRecept209
+			Set ..DieptePlano = DieptePlanoVoorSwapRecept209
+			Set BasisDoos.Recipe = 209
+		} Else {
+			Set ..BreedtePlano = BreedtePlanoVoorSwapRecept219
+			Set ..DieptePlano = DieptePlanoVoorSwapRecept219
+			Set BasisDoos.Recipe = 219
+		}
+		Set BasisDoos.Swap = 0
 	} Else {
 		#dim SwapRecept219IsBeter, SwapRecept209IsBeter As %Boolean = $$$False
 		
-		#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
+		Set BreedtePlanoVoorSwapRecept219 = BasisDoos.K1 + BasisDoos.CardBoardThickness + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + 5 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K1 + BasisDoos.CardBoardThickness
+		Set DieptePlanoVoorSwapRecept219 = BasisDoos.Depth + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Depth + 10 + BasisDoos.Height + BasisDoos.CardBoardThickness + 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: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept219, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
-		#dim NodigeKartonBreedteNaSwapRecept219 = $Select(BreedtePlanoNaSwapRecept219 <= ..#AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept219, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
+		Set NodigeKartonBreedteVoorSwapRecept219 = $Select(BreedtePlanoVoorSwapRecept219 <= ..AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept219, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
+		#dim NodigeKartonBreedteNaSwapRecept219 = $Select(BreedtePlanoNaSwapRecept219 <= ..AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept219, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
 		
-		#dim OppTotaleKartonVoorSwapRecept219 As %Decimal = DieptePlanoVoorSwapRecept219 * NodigeKartonBreedteVoorSwapRecept219
+		Set OppTotaleKartonVoorSwapRecept219 = DieptePlanoVoorSwapRecept219 * NodigeKartonBreedteVoorSwapRecept219
 		#dim OppTotaleKartonNaSwapRecept219 As %Decimal = DieptePlanoNaSwapRecept219 * NodigeKartonBreedteNaSwapRecept219
 		
 		If ((OppTotaleKartonNaSwapRecept219 < OppTotaleKartonVoorSwapRecept219)) {
 			Set SwapRecept219IsBeter = $$$True
 		}
 		
-		#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
+		Set BreedtePlanoVoorSwapRecept209  = BasisDoos.Width + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + 10 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K2
+		Set DieptePlanoVoorSwapRecept209 = 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.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: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept209, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
-		#dim NodigeKartonBreedteNaSwapRecept209 = $Select(BreedtePlanoNaSwapRecept209 <= ..#AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept209, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
+		Set NodigeKartonBreedteVoorSwapRecept209 = $Select(BreedtePlanoVoorSwapRecept209 <= ..AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept209, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
+		#dim NodigeKartonBreedteNaSwapRecept209 = $Select(BreedtePlanoNaSwapRecept209 <= ..AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept209, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
 		
-		#dim OppTotaleKartonVoorSwapRecept209 As %Decimal = DieptePlanoVoorSwapRecept209 * NodigeKartonBreedteVoorSwapRecept209
+		Set OppTotaleKartonVoorSwapRecept209 = DieptePlanoVoorSwapRecept209 * NodigeKartonBreedteVoorSwapRecept209
 		#dim OppTotaleKartonNaSwapRecept209 As %Decimal = DieptePlanoNaSwapRecept209 * NodigeKartonBreedteNaSwapRecept209
 		
 		If ((OppTotaleKartonNaSwapRecept209 < OppTotaleKartonVoorSwapRecept209)) {
@@ -262,80 +294,41 @@
 <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 BreedtePlanoVoorSwapRecept220 As %Decimal = BasisDoos.Depth + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Depth + BasisDoos.CardBoardThickness + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + BasisDoos.FS
-	#dim DieptePlanoVoorSwapRecept220 As %Decimal = (BasisDoos.RS * (1 - BasisDoos.RT)) + (BasisDoos.Height * (1 - BasisDoos.RT)) + BasisDoos.RS + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + BasisDoos.CardBoardThickness + (BasisDoos.RT * BasisDoos.LS) + (BasisDoos.LT * BasisDoos.RS) + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.LS + (BasisDoos.Height * (1 - BasisDoos.LT)) + (BasisDoos.LS * (1 - BasisDoos.LT))
+	#dim BreedtePlanoVoorSwapRecept210 As %Decimal = BasisDoos.Depth + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Depth + BasisDoos.CardBoardThickness + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + BasisDoos.FS
+	#dim DieptePlanoVoorSwapRecept210 As %Decimal = (BasisDoos.RS * (1 - BasisDoos.RT)) + (BasisDoos.Height * (1 - BasisDoos.RT)) + BasisDoos.RS + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + BasisDoos.CardBoardThickness + (BasisDoos.RT * BasisDoos.LS) + (BasisDoos.LT * BasisDoos.RS) + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.LS + (BasisDoos.Height * (1 - BasisDoos.LT)) + (BasisDoos.LS * (1 - BasisDoos.LT))
 	
-	#dim BreedtePlanoNaSwapRecept220 As %Decimal = BasisDoos.Width + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Width + BasisDoos.CardBoardThickness + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + BasisDoos.FS
-	#dim DieptePlanoNaSwapRecept220 As %Decimal = (BasisDoos.RS * (1 - BasisDoos.RT)) + (BasisDoos.Height * (1 - BasisDoos.RT)) + BasisDoos.RS + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Depth + BasisDoos.CardBoardThickness + (BasisDoos.RT * BasisDoos.LS) + (BasisDoos.LT * BasisDoos.RS) + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.LS + (BasisDoos.Height * (1 - BasisDoos.LT)) + (BasisDoos.LS * (1 - BasisDoos.LT))
+	#dim NodigeKartonBreedteVoorSwapRecept210 = $Select(BreedtePlanoVoorSwapRecept210 <= ..AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept210, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
 	
-	#dim NodigeKartonBreedteVoorSwapRecept220 = $Select(BreedtePlanoVoorSwapRecept220 <= ..#AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept220, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
-	#dim NodigeKartonBreedteNaSwapRecept220 = $Select(BreedtePlanoNaSwapRecept220 <= ..#AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept220, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
+	#dim OppTotaleKartonVoorSwapRecept210 As %Decimal = DieptePlanoVoorSwapRecept210 * NodigeKartonBreedteVoorSwapRecept210
 	
-	#dim OppTotaleKartonVoorSwapRecept220 As %Decimal = DieptePlanoVoorSwapRecept220 * NodigeKartonBreedteVoorSwapRecept220
-	#dim OppTotaleKartonNaSwapRecept220 As %Decimal = DieptePlanoNaSwapRecept220 * NodigeKartonBreedteNaSwapRecept220
+	Set ..BreedtePlano = BreedtePlanoVoorSwapRecept210
+	Set ..DieptePlano = DieptePlanoVoorSwapRecept210
+	Set BasisDoos.Recipe = 210
 	
-	If ((OppTotaleKartonNaSwapRecept220 < OppTotaleKartonVoorSwapRecept220)) {
-		Set SwapRecept220IsBeter = $$$True
-	}
 	
-	#dim BreedtePlanoVoorSwapRecept210 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 DieptePlanoVoorSwapRecept210 As %Decimal = BasisDoos.Depth + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Depth + BasisDoos.CardBoardThickness + BasisDoos.Height + ( 2 * BasisDoos.CardBoardThickness) + BasisDoos.FS
+	// !!!!!!!!!! Recept 220 staat uitgeschakeld omdat dit het plooien te lastig maakt !!!!!!!!!
 	
-	#dim BreedtePlanoNaSwapRecept210 As %Decimal = (BasisDoos.LS * (1 - BasisDoos.LT)) + (BasisDoos.Height * (1 - BasisDoos.LT)) + BasisDoos.LS + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Depth + 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 DieptePlanoNaSwapRecept210 As %Decimal = BasisDoos.Width + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Width + BasisDoos.CardBoardThickness + BasisDoos.Height + ( 2 * BasisDoos.CardBoardThickness) + BasisDoos.FS
+	/*
+	#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
 	
-	#dim NodigeKartonBreedteVoorSwapRecept210 = $Select(BreedtePlanoVoorSwapRecept210 <= ..#AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept210, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
-	#dim NodigeKartonBreedteNaSwapRecept210 = $Select(BreedtePlanoNaSwapRecept210 <= ..#AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept210, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
+	#dim NodigeKartonBreedteVoorSwapRecept220 = $Select(BreedtePlanoVoorSwapRecept220 <= ..AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept220, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
 	
-	#dim OppTotaleKartonVoorSwapRecept210 As %Decimal = DieptePlanoVoorSwapRecept210 * NodigeKartonBreedteVoorSwapRecept210
-	#dim OppTotaleKartonNaSwapRecept210 As %Decimal = DieptePlanoNaSwapRecept210 * NodigeKartonBreedteNaSwapRecept210
+	#dim OppTotaleKartonVoorSwapRecept220 As %Decimal = DieptePlanoVoorSwapRecept220 * NodigeKartonBreedteVoorSwapRecept220
 	
-	If ((OppTotaleKartonNaSwapRecept210 < OppTotaleKartonVoorSwapRecept210)) {
-		Set SwapRecept210IsBeter = $$$True
-	}
-	
-	If (SwapRecept220IsBeter && SwapRecept210IsBeter) {
-		Set ..BreedtePlano = BreedtePlanoNaSwapRecept220
-		Set ..DieptePlano = DieptePlanoNaSwapRecept220
-		Set BasisDoos.Swap = 1
-		If (OppTotaleKartonNaSwapRecept210 < OppTotaleKartonNaSwapRecept220) {
-			Set ..BreedtePlano = BreedtePlanoNaSwapRecept210
-			Set ..DieptePlano = DieptePlanoNaSwapRecept210
-			Set BasisDoos.Recipe = 210
-		}			
-	} ElseIf (SwapRecept220IsBeter && $$$Not(SwapRecept210IsBeter)) {
-		If (OppTotaleKartonVoorSwapRecept210 < OppTotaleKartonNaSwapRecept220) {
-			Set ..BreedtePlano = BreedtePlanoVoorSwapRecept210
-			Set ..DieptePlano = DieptePlanoVoorSwapRecept210
-			Set BasisDoos.Recipe = 210
-			Set BasisDoos.Swap = 0
-		} Else {
-			Set BasisDoos.Swap = 1
-			Set ..BreedtePlano = BreedtePlanoNaSwapRecept220
-			Set ..DieptePlano = DieptePlanoNaSwapRecept220
-		}
-	} ElseIf ($$$Not(SwapRecept220IsBeter) && SwapRecept210IsBeter) {
+	If (OppTotaleKartonVoorSwapRecept210 < OppTotaleKartonVoorSwapRecept220) {
+		Set ..BreedtePlano = BreedtePlanoVoorSwapRecept210
+		Set ..DieptePlano = DieptePlanoVoorSwapRecept210
+		Set BasisDoos.Recipe = 210
+	} Else {
 		Set ..BreedtePlano = BreedtePlanoVoorSwapRecept220
 		Set ..DieptePlano = DieptePlanoVoorSwapRecept220
-		Set BasisDoos.Swap = 0
-		If (OppTotaleKartonNaSwapRecept210 < OppTotaleKartonVoorSwapRecept220) {
-			Set ..BreedtePlano = BreedtePlanoNaSwapRecept210
-			Set ..DieptePlano = DieptePlanoNaSwapRecept210
-			Set BasisDoos.Recipe = 210
-			Set BasisDoos.Swap = 1
-		}
-	} ElseIf ($$$Not(SwapRecept220IsBeter) && $$$Not(SwapRecept210IsBeter)) {
-		Set ..BreedtePlano = BreedtePlanoVoorSwapRecept220
-		Set ..DieptePlano = DieptePlanoVoorSwapRecept220
-		Set BasisDoos.Swap = 0
-		If (OppTotaleKartonVoorSwapRecept210 < OppTotaleKartonVoorSwapRecept220) {
-			Set ..BreedtePlano = BreedtePlanoVoorSwapRecept210
-			Set ..DieptePlano = DieptePlanoVoorSwapRecept210
-			Set BasisDoos.Recipe = 210
-		}
+		Set BasisDoos.Recipe = 220
 	}
+	*/
 ]]></Implementation>
 </Method>
 
@@ -344,38 +337,50 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim SwapRecept207IsBeter, SwapRecept217IsBeter As %Boolean = $$$False
-	#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 BreedtePlanoVoorSwapRecept217 As %Decimal = BasisDoos.Width + 10 + BasisDoos.Height +  BasisDoos.Width + 10 + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Flap
+	#dim DieptePlanoVoorSwapRecept217 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.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.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 NodigeKartonBreedteVoorSwapRecept207 = $Select(BreedtePlanoVoorSwapRecept207 <= ..#AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept207, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
-	#dim NodigeKartonBreedteNaSwapRecept207 = $Select(BreedtePlanoNaSwapRecept207 <= ..#AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept207, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
+	#dim NodigeKartonBreedteVoorSwapRecept217 = $Select(BreedtePlanoVoorSwapRecept217 <= ..AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept217, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
+	;#dim NodigeKartonBreedteNaSwapRecept207 = $Select(BreedtePlanoNaSwapRecept207 <= ..AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept207, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
 	
-	#dim OppTotaleKartonVoorSwapRecept207 As %Decimal = DieptePlanoVoorSwapRecept207 * NodigeKartonBreedteVoorSwapRecept207
-	#dim OppTotaleKartonNaSwapRecept207 As %Decimal = DieptePlanoNaSwapRecept207 * NodigeKartonBreedteNaSwapRecept207
-	
+	#dim OppTotaleKartonVoorSwapRecept217 As %Decimal = DieptePlanoVoorSwapRecept217 * NodigeKartonBreedteVoorSwapRecept217
+	;#dim OppTotaleKartonNaSwapRecept207 As %Decimal = DieptePlanoNaSwapRecept207 * NodigeKartonBreedteNaSwapRecept207
+	/*
 	If ((OppTotaleKartonNaSwapRecept207 < OppTotaleKartonVoorSwapRecept207)) {
 		Set SwapRecept207IsBeter = $$$True
 	}
+	*/
+	#dim BreedtePlanoVoorSwapRecept207 As %Decimal = BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Height + BasisDoos.Width + 20 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Height
+	#dim DieptePlanoVoorSwapRecept207 As %Decimal = BasisDoos.Depth + 10 + BasisDoos.Height + BasisDoos.Depth + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Height + BasisDoos.Flap
 	
-	#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.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 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 NodigeKartonBreedteVoorSwapRecept207 = $Select(BreedtePlanoVoorSwapRecept207 <= ..AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept207, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
+	;#dim NodigeKartonBreedteNaSwapRecept217 = $Select(BreedtePlanoNaSwapRecept217 <= ..AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept217, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
 	
-	#dim NodigeKartonBreedteVoorSwapRecept217 = $Select(BreedtePlanoVoorSwapRecept217 <= ..#AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept217, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
-	#dim NodigeKartonBreedteNaSwapRecept217 = $Select(BreedtePlanoNaSwapRecept217 <= ..#AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept217, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
-	
-	#dim OppTotaleKartonVoorSwapRecept217 As %Decimal = DieptePlanoVoorSwapRecept217 * NodigeKartonBreedteVoorSwapRecept217
-	#dim OppTotaleKartonNaSwapRecept217 As %Decimal = DieptePlanoNaSwapRecept217 * NodigeKartonBreedteNaSwapRecept217
-	
+	#dim OppTotaleKartonVoorSwapRecept207 As %Decimal = DieptePlanoVoorSwapRecept207 * NodigeKartonBreedteVoorSwapRecept207
+	;#dim OppTotaleKartonNaSwapRecept217 As %Decimal = DieptePlanoNaSwapRecept217 * NodigeKartonBreedteNaSwapRecept217
+	/*
 	If ((OppTotaleKartonNaSwapRecept217 < OppTotaleKartonVoorSwapRecept217)) {
 		Set SwapRecept217IsBeter = $$$True
 	}
+	*/
 	
+	If (OppTotaleKartonVoorSwapRecept207 < OppTotaleKartonVoorSwapRecept217) {
+		Set ..BreedtePlano = BreedtePlanoVoorSwapRecept207
+		Set ..DieptePlano = DieptePlanoVoorSwapRecept207
+		Set BasisDoos.Recipe = 207
+	} Else {
+		Set ..BreedtePlano = BreedtePlanoVoorSwapRecept217
+		Set ..DieptePlano = DieptePlanoVoorSwapRecept217
+		Set BasisDoos.Recipe = 217
+	}
+	
+	/*
 	If (SwapRecept207IsBeter && SwapRecept217IsBeter) {
 		Set ..BreedtePlano = BreedtePlanoNaSwapRecept207
 		Set ..DieptePlano = DieptePlanoNaSwapRecept207
@@ -416,6 +421,7 @@
 			Set BasisDoos.Recipe = 217
 		}
 	}
+	*/
 ]]></Implementation>
 </Method>
 
@@ -447,22 +453,39 @@
 </Method>
 
 <Method name="OptimizeOverdoos">
-<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.dto.Overdoos]]></FormalSpec>
+<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.dto.Overdoos,MachineTechnologie:APPS.Verpakking.enu.MachineTechnologie]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	If (BasisDoos.Swap = 2) {
-		Set BasisDoos.Swap = 0
-		#dim BreedtePlanoRecept As %Decimal = BasisDoos.Height + BasisDoos.Depth + 35 + BasisDoos.Height
-		#dim DieptePlanoRecept As %Decimal = (BasisDoos.Height * (1-BasisDoos.AG)) + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Height + BasisDoos.Width + 75 + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + (BasisDoos.Height * (1-BasisDoos.AG))
-		
-		If (BreedtePlanoRecept > ..#AfmetingBreedsteKarton) { //Breedte grootste karton, als het te breed is wordt er geswapt -> Definitie van swap = 2
-			Set BreedtePlanoRecept =  BasisDoos.Height + BasisDoos.Width + 35 + BasisDoos.Height
-			Set DieptePlanoRecept = (BasisDoos.Height * (1-BasisDoos.AG)) + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Height + BasisDoos.Depth + 75 + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + (BasisDoos.Height * (1-BasisDoos.AG))
-			Set BasisDoos.Swap = 1
-		}		
-		
-		Set ..BreedtePlano = BreedtePlanoRecept
-		Set ..DieptePlano = DieptePlanoRecept
+	If (MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec()) {
+		If (BasisDoos.Swap = 2) {
+			Set BasisDoos.Swap = 0
+			#dim BreedtePlanoRecept As %Decimal = BasisDoos.Height + BasisDoos.Width + 35 + BasisDoos.Height + 100 //Marge voor panotec
+			#dim DieptePlanoRecept As %Decimal = (BasisDoos.Height * (1-BasisDoos.AG)) + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Height + BasisDoos.Depth + 75 + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + (BasisDoos.Height * (1-BasisDoos.AG))
+			
+			If (BreedtePlanoRecept > ..AfmetingBreedsteKarton) { //Breedte grootste karton, als het te breed is wordt er geswapt -> Definitie van swap = 2
+				Set BreedtePlanoRecept =  BasisDoos.Height + BasisDoos.Depth + 35 + BasisDoos.Height
+				Set DieptePlanoRecept = (BasisDoos.Height * (1-BasisDoos.AG)) + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Height + BasisDoos.Width + 75 + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + (BasisDoos.Height * (1-BasisDoos.AG))
+				Set BasisDoos.Swap = 1
+			}		
+			
+			Set ..BreedtePlano = BreedtePlanoRecept
+			Set ..DieptePlano = DieptePlanoRecept
+		}
+	} Else {
+		If (BasisDoos.Swap = 2) {
+			Set BasisDoos.Swap = 0
+			Set BreedtePlanoRecept = BasisDoos.Height + BasisDoos.Depth + 35 + BasisDoos.Height
+			Set DieptePlanoRecept = (BasisDoos.Height * (1-BasisDoos.AG)) + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Height + BasisDoos.Width + 75 + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + (BasisDoos.Height * (1-BasisDoos.AG))
+			
+			If (BreedtePlanoRecept > ..AfmetingBreedsteKarton) { //Breedte grootste karton, als het te breed is wordt er geswapt -> Definitie van swap = 2
+				Set BreedtePlanoRecept =  BasisDoos.Height + BasisDoos.Width + 35 + BasisDoos.Height
+				Set DieptePlanoRecept = (BasisDoos.Height * (1-BasisDoos.AG)) + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Height + BasisDoos.Depth + 75 + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + (BasisDoos.Height * (1-BasisDoos.AG))
+				Set BasisDoos.Swap = 1
+			}		
+			
+			Set ..BreedtePlano = BreedtePlanoRecept
+			Set ..DieptePlano = DieptePlanoRecept
+		}
 	}
 ]]></Implementation>
 </Method>