Index: APPS/Verpakking/Optimizer.cls.xml
===================================================================
diff -u -r68329 -r68404
--- APPS/Verpakking/Optimizer.cls.xml	(.../Optimizer.cls.xml)	(revision 68329)
+++ APPS/Verpakking/Optimizer.cls.xml	(.../Optimizer.cls.xml)	(revision 68404)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Verpakking.Optimizer">
-<Super>TECH.RegisteredObject</Super>
+<Super>TECH.Mockable</Super>
 
 <Parameter name="MachineKant">
 <Description>
@@ -24,236 +24,259 @@
 <Private>1</Private>
 </Property>
 
+<Property name="btCardboardRepository">
+<Type>DS.Prod.OptiBox.sub.btCardboardRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="Optimize">
-<FormalSpec>BasisDoos:APPS.Verpakking.Doos,ProductGroep:%String</FormalSpec>
+<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.Doos,ProductGroep:%String]]></FormalSpec>
 <Implementation><![CDATA[
+	Set ..btCardboardRepository = ##class(DS.Prod.OptiBox.sub.btCardboardRepository).%New()
+	
 	Set ..InitieleBreedte = BasisDoos.Width
 	Set ..InitieleDiepte = BasisDoos.Depth
-	
+		
 	If (BasisDoos.%Extends("APPS.Verpakking.V1HogeRug")) {
 		Do ..OptmizeV1HogeRug(.BasisDoos)
 	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.V1LageRug")) {
 		Do ..OptmizeV1LageRug(.BasisDoos)
 	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.V1LosseOnderdelen")) {
 		Do ..OptmizeV1LosseOnderdelen(.BasisDoos)
 	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.VouwErrondDoos")) {
-		Do ..OptmizeVouwErrondDoos(.BasisDoos, ProductGroep)		//TAORBOX WRAPAROUND wel ander subrecept mogelijk
+		Do ..OptmizeVouwErrondDoos(.BasisDoos, ProductGroep)
 	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.V1DoosMetDeksel")) {
-		Do ..OptmizeV1DoosMetDeksel(.BasisDoos, ProductGroep)		//Enkel swap mogelijk, geen ander 'subrecept'
+		Do ..OptmizeV1DoosMetDeksel(.BasisDoos, ProductGroep)
 	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.V1Flatpack")) {
 		Do ..OptmizeV1Flatpack(.BasisDoos)
 	}ElseIf (BasisDoos.%Extends("APPS.Verpakking.ComplexeScheiding")) {
 		Do ..OptmizeComplexeScheiding(.BasisDoos)
 	}
-	
-	Set BasisDoos.CardBoardID = ..GetCardboardProductID(BasisDoos.Thickness, BasisDoos.LogoPrint, BasisDoos.Width)
 ]]></Implementation>
 </Method>
 
 <Method name="OptmizeV1HogeRug">
 <FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.V1HogeRug]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim BreedtePlanoVoorSwap As %Decimal = BasisDoos.Width - BasisDoos.T + BasisDoos.Height + BasisDoos.Width + BasisDoos.H2 + BasisDoos.OverhangSize + (2 * BasisDoos.OverhangThickness) + BasisDoos.K
+	#dim BreedtePlano As %Decimal = BasisDoos.Depth - BasisDoos.T + BasisDoos.Height + BasisDoos.Depth + BasisDoos.H2 + BasisDoos.OverhangSize + (2 * BasisDoos.OverhangThickness) + BasisDoos.K + ..#MachineKant
+	
+	Set BasisDoos.CardBoardID = ..btCardboardRepository.GeefKartonID(BasisDoos.CardBoardThickness, BreedtePlano, BasisDoos.LogoPrint)
+	/*
+	#dim BreedtePlanoVoorSwap As %Decimal = BasisDoos.Width - BasisDoos.T + BasisDoos.Height + BasisDoos.Width + BasisDoos.H2 + BasisDoos.OverhangSize + (2 * BasisDoos.OverhangThickness) + BasisDoos.K + ..#MachineKant
 	#dim DieptePlaneVoorSwap As %Decimal = (2 * BasisDoos.Height) + BasisDoos.Depth + (2 * BasisDoos.Height)
 	
-	#dim BreedtePlanoNaSwap As %Decimal = BasisDoos.Depth - BasisDoos.T + BasisDoos.Height + BasisDoos.Depth + BasisDoos.H2 + BasisDoos.OverhangSize + (2 * BasisDoos.OverhangThickness) + BasisDoos.K
+	#dim BreedtePlanoNaSwap As %Decimal = BasisDoos.Depth - BasisDoos.T + BasisDoos.Height + BasisDoos.Depth + BasisDoos.H2 + BasisDoos.OverhangSize + (2 * BasisDoos.OverhangThickness) + BasisDoos.K + ..#MachineKant
 	#dim DieptePlaneNaSwap As %Decimal = (2 * BasisDoos.Height) + BasisDoos.Width + (2 * BasisDoos.Height)
 	
-	#dim NodigeKartonBreedteVoorSwap = ..GetCardboardProductBreedte(BasisDoos.Thickness, BasisDoos.LogoPrint, BreedtePlanoVoorSwap)
-	#dim NodigeKartonBreedteNaSwap = ..GetCardboardProductBreedte(BasisDoos.Thickness, BasisDoos.LogoPrint, BreedtePlanoNaSwap)
+	#dim NodigeKartonBreedteVoorSwap = ..btCardboardRepository.GeefKartonBreedte(BasisDoos.Thickness, BreedtePlanoVoorSwap, BasisDoos.LogoPrint)
+	#dim NodigeKartonBreedteNaSwap = ..btCardboardRepository.GeefKartonBreedte(BasisDoos.Thickness, BreedtePlanoNaSwap, BasisDoos.LogoPrint)
 	
-	#dim OppervlakteKartonOmVerpakkingUitTeSnijdenVoorSwap As %Decimal = DieptePlaneVoorSwap * NodigeKartonBreedteVoorSwap
-	#dim OppervlakteKartonOmVerpakkingUitTeSnijdenNaSwap As %Decimal = DieptePlaneNaSwap * NodigeKartonBreedteNaSwap
-	
-	If ((OppervlakteKartonOmVerpakkingUitTeSnijdenNaSwap < OppervlakteKartonOmVerpakkingUitTeSnijdenVoorSwap) && (..InitieleDiepte > BasisDoos.MinWidth) && (..InitieleBreedte > BasisDoos.MinDepth)) {
+	#dim OppTotaleKartonVoorSwap As %Decimal = DieptePlaneVoorSwap * NodigeKartonBreedteVoorSwap
+	#dim OppTotaleKartonNaSwap As %Decimal = DieptePlaneNaSwap * NodigeKartonBreedteNaSwap
+		
+	If ((OppTotaleKartonNaSwap < OppTotaleKartonVoorSwap) && (..InitieleDiepte > BasisDoos.MinWidth) && (..InitieleBreedte > BasisDoos.MinDepth)) {
 		Set BasisDoos.Width = ..InitieleDiepte
 		Set BasisDoos.Depth = ..InitieleBreedte
 	}
-	
-	Set BasisDoos.Swap = 0
+	*/
 ]]></Implementation>
 </Method>
 
 <Method name="OptmizeV1LageRug">
 <FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.V1LageRug]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim BreedtePlanoVoorSwap As %Decimal = BasisDoos.Width + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.K
+	#dim BreedtePlano As %Decimal =  BasisDoos.Depth + BasisDoos.Height + BasisDoos.Depth + BasisDoos.Height + BasisDoos.K + ..#MachineKant
+	
+	Set BasisDoos.CardBoardID = ..btCardboardRepository.GeefKartonID(BasisDoos.CardBoardThickness, BreedtePlano, BasisDoos.LogoPrint)
+	/*
+	#dim BreedtePlanoVoorSwap As %Decimal = BasisDoos.Width + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.K + ..#MachineKant
 	#dim DieptePlaneVoorSwap As %Decimal = (2 * BasisDoos.Height) + BasisDoos.Depth + (2 * BasisDoos.Height)
 	
-	#dim BreedtePlanoNaSwap As %Decimal =  BasisDoos.Depth + BasisDoos.Height + BasisDoos.Depth + BasisDoos.Height + BasisDoos.K
+	#dim BreedtePlanoNaSwap As %Decimal =  BasisDoos.Depth + BasisDoos.Height + BasisDoos.Depth + BasisDoos.Height + BasisDoos.K + ..#MachineKant
 	#dim DieptePlaneNaSwap As %Decimal = (2 * BasisDoos.Height) + BasisDoos.Width + (2 * BasisDoos.Height)
 	
-	#dim NodigeKartonBreedteVoorSwap = ..GetCardboardProductBreedte(BasisDoos.Thickness, BasisDoos.LogoPrint, BreedtePlanoVoorSwap)
-	#dim NodigeKartonBreedteNaSwap = ..GetCardboardProductBreedte(BasisDoos.Thickness, BasisDoos.LogoPrint, BreedtePlanoNaSwap)
+	#dim NodigeKartonBreedteVoorSwap = ..btCardboardRepository.GeefKartonBreedte(BasisDoos.Thickness, BreedtePlanoVoorSwap, BasisDoos.LogoPrint)
+	#dim NodigeKartonBreedteNaSwap = ..btCardboardRepository.GeefKartonBreedte(BasisDoos.Thickness, BreedtePlanoNaSwap, BasisDoos.LogoPrint)
 	
-	#dim OppervlakteKartonOmVerpakkingUitTeSnijdenVoorSwap As %Decimal = DieptePlaneVoorSwap * NodigeKartonBreedteVoorSwap
-	#dim OppervlakteKartonOmVerpakkingUitTeSnijdenNaSwap As %Decimal = DieptePlaneNaSwap * NodigeKartonBreedteNaSwap
+	#dim OppTotaleKartonVoorSwap As %Decimal = DieptePlaneVoorSwap * NodigeKartonBreedteVoorSwap
+	#dim OppTotaleKartonNaSwap As %Decimal = DieptePlaneNaSwap * NodigeKartonBreedteNaSwap
 	
-	If ((OppervlakteKartonOmVerpakkingUitTeSnijdenNaSwap < OppervlakteKartonOmVerpakkingUitTeSnijdenVoorSwap) && (..InitieleDiepte > BasisDoos.MinWidth) && (..InitieleBreedte > BasisDoos.MinDepth)) {
+	If ((OppTotaleKartonNaSwap < OppTotaleKartonVoorSwap) && (..InitieleDiepte > BasisDoos.MinWidth) && (..InitieleBreedte > BasisDoos.MinDepth)) {
 		Set BasisDoos.Width = ..InitieleDiepte
 		Set BasisDoos.Depth = ..InitieleBreedte
 	}
-	
-	Set BasisDoos.Swap = 0
+	*/
 ]]></Implementation>
 </Method>
 
 <Method name="OptmizeV1LosseOnderdelen">
 <FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.V1LosseOnderdelen]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim BreedtePlanoVoorSwap As %Decimal = BasisDoos.K1 + BasisDoos.Depth + BasisDoos.Width + BasisDoos.Depth + BasisDoos.K1
+	#dim BreedtePlano As %Decimal = BasisDoos.K1 + BasisDoos.Width + BasisDoos.Depth + BasisDoos.Width + BasisDoos.K1  + ..#MachineKant
+	
+	Set BasisDoos.CardBoardID = ..btCardboardRepository.GeefKartonID(BasisDoos.CardBoardThickness, BreedtePlano, BasisDoos.LogoPrint)
+	/*
+	#dim BreedtePlanoVoorSwap As %Decimal = BasisDoos.K1 + BasisDoos.Depth + BasisDoos.Width + BasisDoos.Depth + BasisDoos.K1 + ..#MachineKant
 	#dim DieptePlaneVoorSwap As %Decimal = BasisDoos.K2 + BasisDoos.Depth - BasisDoos.T + BasisDoos.Height + BasisDoos.T + (2 * BasisDoos.Height) + BasisDoos.Depth + BasisDoos.Height
 	
-	#dim BreedtePlanoNaSwap As %Decimal = BasisDoos.K1 + BasisDoos.Width + BasisDoos.Depth + BasisDoos.Width + BasisDoos.K1
+	#dim BreedtePlanoNaSwap As %Decimal = BasisDoos.K1 + BasisDoos.Width + BasisDoos.Depth + BasisDoos.Width + BasisDoos.K1  + ..#MachineKant
 	#dim DieptePlaneNaSwap As %Decimal = BasisDoos.K2 + BasisDoos.Width - BasisDoos.T + BasisDoos.Height + BasisDoos.T + (2 * BasisDoos.Height) + BasisDoos.Width + BasisDoos.Height
 	
-	#dim NodigeKartonBreedteVoorSwap = ..GetCardboardProductBreedte(BasisDoos.Thickness, BasisDoos.LogoPrint, BreedtePlanoVoorSwap)
-	#dim NodigeKartonBreedteNaSwap = ..GetCardboardProductBreedte(BasisDoos.Thickness, BasisDoos.LogoPrint, BreedtePlanoNaSwap)
+	#dim NodigeKartonBreedteVoorSwap = ..btCardboardRepository.GeefKartonBreedte(BasisDoos.Thickness, BreedtePlanoVoorSwap, BasisDoos.LogoPrint)
+	#dim NodigeKartonBreedteNaSwap = ..btCardboardRepository.GeefKartonBreedte(BasisDoos.Thickness, BreedtePlanoNaSwap, BasisDoos.LogoPrint)
 	
-	#dim OppervlakteKartonOmVerpakkingUitTeSnijdenVoorSwap As %Decimal = DieptePlaneVoorSwap * NodigeKartonBreedteVoorSwap
-	#dim OppervlakteKartonOmVerpakkingUitTeSnijdenNaSwap As %Decimal = DieptePlaneNaSwap * NodigeKartonBreedteNaSwap
+	#dim OppTotaleKartonVoorSwap As %Decimal = DieptePlaneVoorSwap * NodigeKartonBreedteVoorSwap
+	#dim OppTotaleKartonNaSwap As %Decimal = DieptePlaneNaSwap * NodigeKartonBreedteNaSwap
 	
-	If ((OppervlakteKartonOmVerpakkingUitTeSnijdenNaSwap < OppervlakteKartonOmVerpakkingUitTeSnijdenVoorSwap)) {
+	If ((OppTotaleKartonNaSwap < OppTotaleKartonVoorSwap)) {
 		Set BasisDoos.Width = ..InitieleDiepte
 		Set BasisDoos.Depth = ..InitieleBreedte
 	}
-	
-	Set BasisDoos.Swap = 0
+	*/
 ]]></Implementation>
 </Method>
 
 <Method name="OptmizeComplexeScheiding">
 <FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.ComplexeScheiding]]></FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	//SWAP is 0 en er zijn geen altrecipes dus geen optimalisatie nodig
+<Implementation><![CDATA[
+	#dim BreedtePlano As %Decimal = (BasisDoos.Width * BasisDoos.NBR) + ..#MachineKant
+	
+	Set BasisDoos.CardBoardID = ..btCardboardRepository.GeefKartonID(BasisDoos.CardBoardThickness, BreedtePlano, BasisDoos.LogoPrint)
 ]]></Implementation>
 </Method>
 
 <Method name="OptmizeV1Flatpack">
 <FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.V1Flatpack]]></FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	//SWAP is 0 en er zijn geen altrecipes dus geen optimalisatie nodig
+<Implementation><![CDATA[
+	#dim BreedtePlano As %Decimal = BasisDoos.K3 + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.K1 + BasisDoos.K2 + ..#MachineKant
+	
+	Set BasisDoos.CardBoardID = ..btCardboardRepository.GeefKartonID(BasisDoos.CardBoardThickness, BreedtePlano, BasisDoos.LogoPrint)
 ]]></Implementation>
 </Method>
 
 <Method name="OptmizeVouwErrondDoos">
 <FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.VouwErrondDoos,ProductGroep:%String]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	/*
 	If (ProductGroep = "KAD") {
-		/*
-		<RECIPE>219</RECIPE>
-						<SWAP>2</SWAP>
-						<ALTRECIPE>209</ALTRECIPE>
-						<ALTSWAP>2</ALTSWAP>
-						<!-- 0 : geen swap van hoogte en breedte, 1 : swap van hoogte en breedte, 2 : conditionele swap = er wordt geswapt als de plano te breed is zonder swap -->
+		#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
+		}
+		
+		#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
+		
+		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
+		}
+		
+		#dim NodigeKartonBreedteRecept = ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoRecept, BasisDoos.LogoPrint)
+		#dim NodigeKartonBreedteAltRecept = ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoAltRecept, BasisDoos.LogoPrint)
+		
+		#dim OppTotaleKartonRecept As %Decimal = DieptePlanoRecept * NodigeKartonBreedteRecept
+		#dim OppTotaleKartonAltRecept As %Decimal = DieptePlanoAltRecept * NodigeKartonBreedteAltRecept
+		
+		If ((OppTotaleKartonAltRecept < OppTotaleKartonRecept)) {
+			Set BasisDoos.RecipeID = BasisDoos.AltRecipeID
+			Set BasisDoos.Swap = BasisDoos.AltSwap
+		}			
 	} Else {
-		/*
-		<RECIPE>219</RECIPE>
-						<SWAP>1</SWAP>
-						<ALTRECIPE>209</ALTRECIPE>
-						<ALTSWAP>1</ALTSWAP>
-						
+		#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 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 NodigeKartonBreedteVoorSwapRecept219 = ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept219, BasisDoos.LogoPrint)
+		#dim NodigeKartonBreedteNaSwapRecept219 = ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept219, BasisDoos.LogoPrint)
+		
+		#dim OppTotaleKartonVoorSwapRecept219 As %Decimal = DieptePlanoVoorSwapRecept219 * NodigeKartonBreedteVoorSwapRecept219
+		#dim OppTotaleKartonNaSwapRecept219 As %Decimal = DieptePlanoNaSwapRecept219 * NodigeKartonBreedteNaSwapRecept219
+		
+		If ((OppTotaleKartonNaSwapRecept219 < OppTotaleKartonVoorSwapRecept219)) {
+			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 BreedtePlanoNaSwapRecept209 As %Decimal = BasisDoos.Width + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.K2 + ..#MachineKant
+		#dim DieptePlanoNaSwapRecept209 As %Decimal = BasisDoos.K1 + BasisDoos.Height + BasisDoos.Depth + BasisDoos.Height + BasisDoos.K1
+		
+		#dim NodigeKartonBreedteVoorSwapRecept209 = ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept209, BasisDoos.LogoPrint)
+		#dim NodigeKartonBreedteNaSwapRecept209 = ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept209, BasisDoos.LogoPrint)
+		
+		#dim OppTotaleKartonVoorSwapRecept209 As %Decimal = DieptePlanoVoorSwapRecept209 * NodigeKartonBreedteVoorSwapRecept209
+		#dim OppTotaleKartonNaSwapRecept209 As %Decimal = DieptePlanoNaSwapRecept209 * NodigeKartonBreedteNaSwapRecept209
+		
+		If ((OppTotaleKartonNaSwapRecept209 < OppTotaleKartonVoorSwapRecept209)) {
+			Set SwapRecept209IsBeter = $$$True
+		}
+		
+		If (SwapRecept219IsBeter && SwapRecept209IsBeter) {
+			If (OppTotaleKartonNaSwapRecept209 < OppTotaleKartonNaSwapRecept219) {
+				Set BasisDoos.RecipeID = 209
+			}
+			Set BasisDoos.Swap = 1
+		} ElseIf (SwapRecept219IsBeter && $$$Not(SwapRecept209IsBeter)) {
+			If (OppTotaleKartonVoorSwapRecept209 < OppTotaleKartonNaSwapRecept219) {
+				Set BasisDoos.RecipeID = 209
+			} Else {
+				Set BasisDoos.Swap = 1
+			}
+		} ElseIf ($$$Not(SwapRecept219IsBeter) && SwapRecept209IsBeter) {
+			If (OppTotaleKartonNaSwapRecept209 < OppTotaleKartonVoorSwapRecept219) {
+				Set BasisDoos.RecipeID = 209
+				Set BasisDoos.Swap = 1
+			}
+		} ElseIf ($$$Not(SwapRecept219IsBeter) && $$$Not(SwapRecept209IsBeter)) {
+			If (OppTotaleKartonVoorSwapRecept209 < OppTotaleKartonVoorSwapRecept219) {
+				Set BasisDoos.RecipeID = 209
+			}
+		}
 	}
-	
-	#dim BreedtePlanoVoorSwap As %Decimal = BasisDoos.K1 + BasisDoos.Depth + BasisDoos.Width + BasisDoos.Depth + BasisDoos.K1
-	#dim DieptePlaneVoorSwap As %Decimal = BasisDoos.K2 + BasisDoos.Depth - BasisDoos.T + BasisDoos.Height + BasisDoos.T + (2 * BasisDoos.Height) + BasisDoos.Depth + BasisDoos.Height
-	
-	#dim BreedtePlanoNaSwap As %Decimal = BasisDoos.K2 + BasisDoos.Width - BasisDoos.T + BasisDoos.Height + BasisDoos.T + (2 * BasisDoos.Height) + BasisDoos.Width + BasisDoos.Height
-	#dim DieptePlaneNaSwap As %Decimal = BasisDoos.K1 + BasisDoos.Width + BasisDoos.Depth + BasisDoos.Width + BasisDoos.K1
-	
-	#dim NodigeKartonBreedteVoorSwap = ..GetCardboardProductBreedte(BasisDoos.Thickness, BasisDoos.LogoPrint, BreedtePlanoVoorSwap)
-	#dim NodigeKartonBreedteNaSwap = ..GetCardboardProductBreedte(BasisDoos.Thickness, BasisDoos.LogoPrint, BreedtePlanoNaSwap)
-	
-	#dim OppervlakteKartonOmVerpakkingUitTeSnijdenVoorSwap As %Decimal = DieptePlaneVoorSwap * NodigeKartonBreedteVoorSwap
-	#dim OppervlakteKartonOmVerpakkingUitTeSnijdenNaSwap As %Decimal = DieptePlaneNaSwap * NodigeKartonBreedteNaSwap
-	
-	If ((OppervlakteKartonOmVerpakkingUitTeSnijdenNaSwap < OppervlakteKartonOmVerpakkingUitTeSnijdenVoorSwap)) {
-		Set BasisDoos.Width = ..InitieleDiepte
-		Set BasisDoos.Depth = ..InitieleBreedte
-	}
-	
-	Set BasisDoos.Swap = 0
-	
-	*/
 ]]></Implementation>
 </Method>
 
 <Method name="OptmizeV1DoosMetDeksel">
 <FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.V1DoosMetDeksel]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim BreedtePlanoVoorSwap As %Decimal = BasisDoos.Width + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.K
+	#dim BreedtePlano As %Decimal = BasisDoos.Depth + BasisDoos.Height + BasisDoos.Depth + BasisDoos.Height + BasisDoos.K + ..#MachineKant
+	
+	Set BasisDoos.CardBoardID = ..btCardboardRepository.GeefKartonID(BasisDoos.CardBoardThickness, BreedtePlano, BasisDoos.LogoPrint)
+	/*
+	#dim BreedtePlanoVoorSwap As %Decimal = BasisDoos.Width + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.K + ..#MachineKant
 	#dim DieptePlaneVoorSwap As %Decimal = (2 * BasisDoos.Height) + BasisDoos.Depth + (2 * BasisDoos.Height)
 	
-	#dim BreedtePlanoNaSwap As %Decimal =  BasisDoos.Depth + BasisDoos.Height + BasisDoos.Depth + BasisDoos.Height + BasisDoos.K
+	#dim BreedtePlanoNaSwap As %Decimal =  BasisDoos.Depth + BasisDoos.Height + BasisDoos.Depth + BasisDoos.Height + BasisDoos.K + ..#MachineKant
 	#dim DieptePlaneNaSwap As %Decimal = (2 * BasisDoos.Height) + BasisDoos.Width + (2 * BasisDoos.Height)
 	
-	#dim NodigeKartonBreedteVoorSwap = ..GetCardboardProductBreedte(BasisDoos.Thickness, BasisDoos.LogoPrint, BreedtePlanoVoorSwap)
-	#dim NodigeKartonBreedteNaSwap = ..GetCardboardProductBreedte(BasisDoos.Thickness, BasisDoos.LogoPrint, BreedtePlanoNaSwap)
+	#dim NodigeKartonBreedteVoorSwap = ..btCardboardRepository.GeefKartonBreedte(BasisDoos.Thickness, BreedtePlanoVoorSwap, BasisDoos.LogoPrint)
+	#dim NodigeKartonBreedteNaSwap = ..btCardboardRepository.GeefKartonBreedte(BasisDoos.Thickness, BreedtePlanoNaSwap, BasisDoos.LogoPrint)
 	
-	#dim OppervlakteKartonOmVerpakkingUitTeSnijdenVoorSwap As %Decimal = DieptePlaneVoorSwap * NodigeKartonBreedteVoorSwap
-	#dim OppervlakteKartonOmVerpakkingUitTeSnijdenNaSwap As %Decimal = DieptePlaneNaSwap * NodigeKartonBreedteNaSwap
+	#dim OppTotaleKartonVoorSwap As %Decimal = DieptePlaneVoorSwap * NodigeKartonBreedteVoorSwap
+	#dim OppTotaleKartonNaSwap As %Decimal = DieptePlaneNaSwap * NodigeKartonBreedteNaSwap
 	
-	If ((OppervlakteKartonOmVerpakkingUitTeSnijdenNaSwap < OppervlakteKartonOmVerpakkingUitTeSnijdenVoorSwap)) {
+	If ((OppTotaleKartonNaSwap < OppTotaleKartonVoorSwap)) {
 		Set BasisDoos.Width = ..InitieleDiepte
 		Set BasisDoos.Depth = ..InitieleBreedte
 	}
-	
-	Set BasisDoos.Swap = 0
+	*/
 ]]></Implementation>
 </Method>
-
-<Method name="GetCardboardProductID">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>Dikte:%Decimal,LogoPrint:%String,PlanoBreedte:%Decimal</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	Set Product=""
-	Set PlanoBreedte=PlanoBreedte+..#MachineKant
-	&sql(DECLARE GetProduct CURSOR FOR
-		Select Breedte, Product, CardBoardID
-		into :Breedte, :PRNr, :CardBoardID
-		from Prod.OptiBox_btCardboard 
-		where Dikte=:Dikte and LogoPrint=:LogoPrint and Breedte>=:PlanoBreedte order by Breedte asc)
-
-   	&sql(OPEN GetProduct) 	   	
- 	&sql(FETCH GetProduct)
- 	&sql(CLOSE GetProduct)
- 	
- 	Quit CardBoardID
-]]></Implementation>
-</Method>
-
-<Method name="GetCardboardProductBreedte">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>Dikte:%Decimal,LogoPrint:%String,PlanoBreedte:%Decimal</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Decimal</ReturnType>
-<Implementation><![CDATA[
-	Set Product=""
-	Set PlanoBreedte=PlanoBreedte+..#MachineKant
-	&sql(DECLARE GetProductWidth CURSOR FOR
-		Select Breedte, Product, CardBoardID
-		into :Breedte, :PRNr, :CardBoardID
-		from Prod.OptiBox_btCardboard 
-		where Dikte=:Dikte and LogoPrint=:LogoPrint and Breedte>=:PlanoBreedte order by Breedte asc)
-
-   	&sql(OPEN GetProductWidth) 	   	
- 	&sql(FETCH GetProductWidth)
- 	&sql(CLOSE GetProductWidth)
- 	
- 	Quit Breedte
-]]></Implementation>
-</Method>
 </Class>