Index: APPS/Verpakking/Optimizer.cls.xml
===================================================================
diff -u -r68229 -r68329
--- APPS/Verpakking/Optimizer.cls.xml	(.../Optimizer.cls.xml)	(revision 68229)
+++ APPS/Verpakking/Optimizer.cls.xml	(.../Optimizer.cls.xml)	(revision 68329)
@@ -3,119 +3,257 @@
 <Class name="APPS.Verpakking.Optimizer">
 <Super>TECH.RegisteredObject</Super>
 
-<Method name="OptimimaliseerDoos">
-<FormalSpec><![CDATA[BasisDoos:APPS.Verpakking.Doos,&Params:%String,ProductGroep:%String]]></FormalSpec>
+<Parameter name="MachineKant">
+<Description>
+Machinekant = 2 x 25mm</Description>
+<Default>50</Default>
+</Parameter>
+
+<Property name="InitieleBreedte">
+<Type>%Decimal</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="InitieleDiepte">
+<Type>%Decimal</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BasisDoos">
+<Type>APPS.Verpakking.Doos</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="Optimize">
+<FormalSpec>BasisDoos:APPS.Verpakking.Doos,ProductGroep:%String</FormalSpec>
 <Implementation><![CDATA[
+	Set ..InitieleBreedte = BasisDoos.Width
+	Set ..InitieleDiepte = BasisDoos.Depth
+	
 	If (BasisDoos.%Extends("APPS.Verpakking.V1HogeRug")) {
-		Do ..OptimaliseerV1HogeRug(.BasisDoos, .Params)
+		Do ..OptmizeV1HogeRug(.BasisDoos)
 	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.V1LageRug")) {
-		Do ..OptimaliseerV1LageRug(.BasisDoos, .Params)
+		Do ..OptmizeV1LageRug(.BasisDoos)
 	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.V1LosseOnderdelen")) {
-		Do ..OptimaliseerV1HogeRug(.BasisDoos, .Params, ProductGroep)
+		Do ..OptmizeV1LosseOnderdelen(.BasisDoos)
+	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.VouwErrondDoos")) {
+		Do ..OptmizeVouwErrondDoos(.BasisDoos, ProductGroep)		//TAORBOX WRAPAROUND wel ander subrecept mogelijk
+	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.V1DoosMetDeksel")) {
+		Do ..OptmizeV1DoosMetDeksel(.BasisDoos, ProductGroep)		//Enkel swap mogelijk, geen ander 'subrecept'
+	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.V1Flatpack")) {
+		Do ..OptmizeV1Flatpack(.BasisDoos)
+	}ElseIf (BasisDoos.%Extends("APPS.Verpakking.ComplexeScheiding")) {
+		Do ..OptmizeComplexeScheiding(.BasisDoos)
 	}
 	
-	Set BasisDoos.CardBoardID = ..GetCardboardProduct(BasisDoos.Thickness, BasisDoos.LogoPrint, BasisDoos.Width)
+	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 DieptePlaneVoorSwap As %Decimal = (2 * BasisDoos.Height) + BasisDoos.Depth + (2 * BasisDoos.Height)
 	
-	Quit BasisDoos
+	#dim BreedtePlanoNaSwap As %Decimal = BasisDoos.Depth - BasisDoos.T + BasisDoos.Height + BasisDoos.Depth + BasisDoos.H2 + BasisDoos.OverhangSize + (2 * BasisDoos.OverhangThickness) + BasisDoos.K
+	#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 OppervlakteKartonOmVerpakkingUitTeSnijdenVoorSwap As %Decimal = DieptePlaneVoorSwap * NodigeKartonBreedteVoorSwap
+	#dim OppervlakteKartonOmVerpakkingUitTeSnijdenNaSwap As %Decimal = DieptePlaneNaSwap * NodigeKartonBreedteNaSwap
+	
+	If ((OppervlakteKartonOmVerpakkingUitTeSnijdenNaSwap < OppervlakteKartonOmVerpakkingUitTeSnijdenVoorSwap) && (..InitieleDiepte > BasisDoos.MinWidth) && (..InitieleBreedte > BasisDoos.MinDepth)) {
+		Set BasisDoos.Width = ..InitieleDiepte
+		Set BasisDoos.Depth = ..InitieleBreedte
+	}
+	
+	Set BasisDoos.Swap = 0
 ]]></Implementation>
 </Method>
 
-<Method name="GetCardboardProduct">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>Dikte,LogoPrint,PlanoBreedte</FormalSpec>
+<Method name="OptmizeV1LageRug">
+<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.V1LageRug]]></FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
-	Set Product=""
-	&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)
+	#dim BreedtePlanoVoorSwap As %Decimal = BasisDoos.Width + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.K
+	#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 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 OppervlakteKartonOmVerpakkingUitTeSnijdenVoorSwap As %Decimal = DieptePlaneVoorSwap * NodigeKartonBreedteVoorSwap
+	#dim OppervlakteKartonOmVerpakkingUitTeSnijdenNaSwap As %Decimal = DieptePlaneNaSwap * NodigeKartonBreedteNaSwap
+	
+	If ((OppervlakteKartonOmVerpakkingUitTeSnijdenNaSwap < OppervlakteKartonOmVerpakkingUitTeSnijdenVoorSwap) && (..InitieleDiepte > BasisDoos.MinWidth) && (..InitieleBreedte > BasisDoos.MinDepth)) {
+		Set BasisDoos.Width = ..InitieleDiepte
+		Set BasisDoos.Depth = ..InitieleBreedte
+	}
+	
+	Set BasisDoos.Swap = 0
+]]></Implementation>
+</Method>
 
-   	&sql(OPEN GetProduct) 	   	
- 	&sql(FETCH GetProduct)
- 	&sql(CLOSE GetProduct)
-	Quit CardBoardID
+<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 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 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 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="OptimaliseerV1LosseOnderdelen">
-<FormalSpec><![CDATA[BasisDoos:APPS.Verpakking.V1HogeRug,&Params:%String,ProductGroep:%String]]></FormalSpec>
+<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>
+</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>
+</Method>
+
+<Method name="OptmizeVouwErrondDoos">
+<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.VouwErrondDoos,ProductGroep:%String]]></FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
-	//Meta 456
-	If (ProductGroep = "TBX") {
-		Set BasisDoos.ReceptName = "TBX V1 LOOSE COMP"
-	} ElseIf (ProductGroep = "TAORBOX") { //Meta 505
-		Set BasisDoos.ReceptName = "TAORBOX V1 LOOSE COMP"
+	/*
+	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 -->
+		
+				
+	} Else {
+		/*
+		<RECIPE>219</RECIPE>
+						<SWAP>1</SWAP>
+						<ALTRECIPE>209</ALTRECIPE>
+						<ALTSWAP>1</ALTSWAP>
+						
+		
 	}
 	
-	Set Param = ##class(APPS.Verpakking.Doos.Param).%New()
-	Set Param.Key = "Q"
-	Set Param.Value = 1
-	Do BasisDoos.Params.Insert(Param)
+	#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
 	
-	If (ProductGroep = "TBX") {
-		Set BasisDoos.Depth = Params("LODIEPTE")
-		Set BasisDoos.Height = Params("LOHOOGTE")
-		Set BasisDoos.Width = Params("LOBREEDTE")
-		
-		Set Param = ##class(APPS.Verpakking.Doos.Param).%New()
-		Set Param.Key = "T"
-		Set Param.Value = Params("LOCP")
-	} ElseIf (ProductGroep = "TAORBOX") {
-		Set BasisDoos.Depth = Params("DIEPTE")
-		Set BasisDoos.Height = Params("ZIJHOOGTE")
-		Set BasisDoos.Width = Params("BREEDTE")
+	#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
 	
-		Set Param = ##class(APPS.Verpakking.Doos.Param).%New()
-		Set Param.Key = "T"
-		Set Param.Value = Params("BREEDTECP")
+	#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
 	}
 	
-	Do BasisDoos.Params.Insert(Param)
+	Set BasisDoos.Swap = 0
+	
+	*/
 ]]></Implementation>
 </Method>
 
-<Method name="OptimaliseerV1HogeRug">
-<FormalSpec><![CDATA[BasisDoos:APPS.Verpakking.V1HogeRug,&Params:%String]]></FormalSpec>
+<Method name="OptmizeV1DoosMetDeksel">
+<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.V1DoosMetDeksel]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	// select * from "Prod"."OptiBox_BoxData" where ID not like 'PR%'
-	//Product 3098795 is enkel high back
-	//Product 1812790 is high back + LOdoos
-	//select * from "Prod"."OptiBox_BoxData" where ID like 'TBX||V1 Hoge rug%'
-	//LET OP: Er zijn hier 2 resultaten, 1 voor doos en 1 voor LOdoos
+	#dim BreedtePlanoVoorSwap As %Decimal = BasisDoos.Width + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.K
+	#dim DieptePlaneVoorSwap As %Decimal = (2 * BasisDoos.Height) + BasisDoos.Depth + (2 * BasisDoos.Height)
 	
-	//Meta 505
-	Set BasisDoos.Depth = Params("DIEPTE")
-	Set BasisDoos.Height = Params("ZIJHOOGTE")
-	Set BasisDoos.Width = Params("BREEDTE")
+	#dim BreedtePlanoNaSwap As %Decimal =  BasisDoos.Depth + BasisDoos.Height + BasisDoos.Depth + BasisDoos.Height + BasisDoos.K
+	#dim DieptePlaneNaSwap As %Decimal = (2 * BasisDoos.Height) + BasisDoos.Width + (2 * BasisDoos.Height)
 	
-	Set Param = ##class(APPS.Verpakking.Doos.Param).%New()
-	Set Param.Key = "H2"
-	Set Param.Value = Params("RUGHOOGTE")	
-	Do BasisDoos.Params.Insert(Param)
+	#dim NodigeKartonBreedteVoorSwap = ..GetCardboardProductBreedte(BasisDoos.Thickness, BasisDoos.LogoPrint, BreedtePlanoVoorSwap)
+	#dim NodigeKartonBreedteNaSwap = ..GetCardboardProductBreedte(BasisDoos.Thickness, BasisDoos.LogoPrint, BreedtePlanoNaSwap)
 	
-	;Set:($D(Params("T"))) BasisDoos.T = Params("T") // Staat niet in ^Prod.OptiBox.BoxMetaD(455,Params, 
-	;Set:($D(Params("K"))) BasisDoos.K = Params("K") // Staat niet in ^Prod.OptiBox.BoxMetaD(455,Params, 
+	#dim OppervlakteKartonOmVerpakkingUitTeSnijdenVoorSwap As %Decimal = DieptePlaneVoorSwap * NodigeKartonBreedteVoorSwap
+	#dim OppervlakteKartonOmVerpakkingUitTeSnijdenNaSwap As %Decimal = DieptePlaneNaSwap * NodigeKartonBreedteNaSwap
 	
-	//OVERHANGSIZE? Type o en x = extra info voor optimizer
-	//OVERHANGSIZETHCIKNESS? Type o en x = extra info voor optimizer
-	;^Prod.OptiBox.BoxMetaD(455,Params,		Is de plek waar de mogelijke extra params staan gedefinieerd voor dit verpakkingtype
+	If ((OppervlakteKartonOmVerpakkingUitTeSnijdenNaSwap < OppervlakteKartonOmVerpakkingUitTeSnijdenVoorSwap)) {
+		Set BasisDoos.Width = ..InitieleDiepte
+		Set BasisDoos.Depth = ..InitieleBreedte
+	}
+	
+	Set BasisDoos.Swap = 0
 ]]></Implementation>
 </Method>
 
-<Method name="OptimaliseerV1LageRug">
-<FormalSpec><![CDATA[BasisDoos:APPS.Verpakking.V1HogeRug,&Params:%String]]></FormalSpec>
+<Method name="GetCardboardProductID">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Dikte:%Decimal,LogoPrint:%String,PlanoBreedte:%Decimal</FormalSpec>
 <Private>1</Private>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	//PRNr 3429161
-	//Meta 454
-	Set BasisDoos.Depth = Params("DIEPTE")
-	Set BasisDoos.Height = Params("ZIJHOOGTE")
-	Set BasisDoos.Width = Params("BREEDTE")
+	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>