Index: APPS/Verpakking/Optimizer.cls.xml
===================================================================
diff -u -r69605 -r69608
--- APPS/Verpakking/Optimizer.cls.xml	(.../Optimizer.cls.xml)	(revision 69605)
+++ APPS/Verpakking/Optimizer.cls.xml	(.../Optimizer.cls.xml)	(revision 69608)
@@ -53,6 +53,8 @@
 		Do ..OptmizeVulstukKlein(.BasisDoos)
 	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.VouwErrondDoosBuffer")) {
 		Do ..OptmizeVouwErrondDoosBuffer(.BasisDoos)
+	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.ZelfstaandMetDeksel")) {
+		Do ..OptmizeZelfstaandMetDeksel(.BasisDoos)
 	}
 	
 	Set BasisDoos.CardBoardID = ..btCardboardRepository.GeefKartonID(BasisDoos.CardBoardThickness, ..BreedtePlano, BasisDoos.LogoPrint)
@@ -277,6 +279,79 @@
 ]]></Implementation>
 </Method>
 
+<Method name="OptmizeZelfstaandMetDeksel">
+<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.ZelfstaandMetDeksel]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim SwapRecept207IsBeter, SwapRecept217IsBeter As %Boolean = $$$False
+	
+	#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.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)
+	
+	#dim OppTotaleKartonVoorSwapRecept207 As %Decimal = DieptePlanoVoorSwapRecept207 * NodigeKartonBreedteVoorSwapRecept207
+	#dim OppTotaleKartonNaSwapRecept207 As %Decimal = DieptePlanoNaSwapRecept207 * NodigeKartonBreedteNaSwapRecept207
+	
+	If ((OppTotaleKartonNaSwapRecept207 < OppTotaleKartonVoorSwapRecept207)) {
+		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 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 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)
+	
+	#dim OppTotaleKartonVoorSwapRecept217 As %Decimal = DieptePlanoVoorSwapRecept217 * NodigeKartonBreedteVoorSwapRecept217
+	#dim OppTotaleKartonNaSwapRecept217 As %Decimal = DieptePlanoNaSwapRecept217 * NodigeKartonBreedteNaSwapRecept217
+	
+	If ((OppTotaleKartonNaSwapRecept217 < OppTotaleKartonVoorSwapRecept217)) {
+		Set SwapRecept217IsBeter = $$$True
+	}
+	
+	If (SwapRecept207IsBeter && SwapRecept217IsBeter) {
+		Set ..BreedtePlano = BreedtePlanoNaSwapRecept207
+		Set BasisDoos.Swap = 1
+		If (OppTotaleKartonNaSwapRecept217 < OppTotaleKartonNaSwapRecept207) {
+			Set ..BreedtePlano = BreedtePlanoNaSwapRecept217
+			Set BasisDoos.Recipe = 217
+		}			
+	} ElseIf (SwapRecept207IsBeter && $$$Not(SwapRecept217IsBeter)) {
+		If (OppTotaleKartonVoorSwapRecept217 < OppTotaleKartonNaSwapRecept207) {
+			Set ..BreedtePlano = BreedtePlanoVoorSwapRecept217
+			Set BasisDoos.Recipe = 217
+			Set BasisDoos.Swap = 0
+		} Else {
+			Set BasisDoos.Swap = 1
+			Set ..BreedtePlano = BreedtePlanoNaSwapRecept207
+		}
+	} ElseIf ($$$Not(SwapRecept207IsBeter) && SwapRecept217IsBeter) {
+		Set ..BreedtePlano = BreedtePlanoVoorSwapRecept207
+		Set BasisDoos.Swap = 0
+		If (OppTotaleKartonNaSwapRecept217 < OppTotaleKartonVoorSwapRecept207) {
+			Set ..BreedtePlano = BreedtePlanoNaSwapRecept217
+			Set BasisDoos.Recipe = 217
+			Set BasisDoos.Swap = 1
+		}
+	} ElseIf ($$$Not(SwapRecept207IsBeter) && $$$Not(SwapRecept217IsBeter)) {
+		Set ..BreedtePlano = BreedtePlanoVoorSwapRecept207
+		Set BasisDoos.Swap = 0
+		If (OppTotaleKartonVoorSwapRecept217 < OppTotaleKartonVoorSwapRecept207) {
+			Set ..BreedtePlano = BreedtePlanoVoorSwapRecept217
+			Set BasisDoos.Recipe = 217
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="OptmizeV1DoosMetDeksel">
 <FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.V1DoosMetDeksel]]></FormalSpec>
 <Private>1</Private>
Index: APPS/Verpakking/ZelfstaandMetDeksel.cls.xml
===================================================================
diff -u
--- APPS/Verpakking/ZelfstaandMetDeksel.cls.xml	(revision 0)
+++ APPS/Verpakking/ZelfstaandMetDeksel.cls.xml	(revision 69608)
@@ -0,0 +1,90 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Verpakking.ZelfstaandMetDeksel">
+<Super>APPS.Verpakking.Doos</Super>
+
+<Parameter name="XMLTYPE">
+<Default>APPS.Verpakking.ZelfstaandMetDeksel</Default>
+</Parameter>
+
+<Property name="RecipeName">
+<Type>%String</Type>
+<InitialExpression>"OL SELFSTANDING"</InitialExpression>
+<Parameter name="XMLNAME" value="RECIPENAME"/>
+</Property>
+
+<Property name="Recipe">
+<Type>%Integer</Type>
+<InitialExpression>207</InitialExpression>
+<Parameter name="XMLNAME" value="RECIPE"/>
+</Property>
+
+<Property name="MaxLevels">
+<Type>%Decimal</Type>
+<InitialExpression>10</InitialExpression>
+<Parameter name="XMLNAME" value="MAXLEVELS"/>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="Stabil">
+<Type>%Decimal</Type>
+<InitialExpression>0.8</InitialExpression>
+<Parameter name="XMLNAME" value="STABIL"/>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="MinDepth">
+<Type>%Decimal</Type>
+<InitialExpression>100</InitialExpression>
+<Parameter name="XMLNAME" value="MINDEPTH"/>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="MinWidth">
+<Type>%Decimal</Type>
+<InitialExpression>100</InitialExpression>
+<Parameter name="XMLNAME" value="MINWIDTH"/>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="LogoPrint">
+<Type>%String</Type>
+<InitialExpression>"ORGALUX WHITE"</InitialExpression>
+<Parameter name="XMLNAME" value="LOGOPRINT"/>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="CardBoardThickness">
+<Type>%Decimal</Type>
+<InitialExpression>4.2</InitialExpression>
+<Parameter name="XMLNAME" value="CARDBOARDTHICKNESS"/>
+</Property>
+
+<Property name="Swap">
+<Type>%Decimal</Type>
+<Parameter name="XMLNAME" value="SWAP"/>
+</Property>
+
+<Property name="AltRecipe">
+<Type>%Decimal</Type>
+<InitialExpression>217</InitialExpression>
+<Parameter name="XMLNAME" value="ALTRECIPE"/>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="AltSwap">
+<Type>%Decimal</Type>
+<Parameter name="XMLNAME" value="ALTSWAP"/>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="Flap">
+<Type>%Decimal</Type>
+<InitialExpression>100</InitialExpression>
+<Parameter name="XMLNAME" value="FLAP"/>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+</Class>
+
+
+</Export>
Index: APPS/Verpakking/DoosFactory.cls.xml
===================================================================
diff -u -r69607 -r69608
--- APPS/Verpakking/DoosFactory.cls.xml	(.../DoosFactory.cls.xml)	(revision 69607)
+++ APPS/Verpakking/DoosFactory.cls.xml	(.../DoosFactory.cls.xml)	(revision 69608)
@@ -34,6 +34,7 @@
 		ElseIf (ReceptNaam = "WRAPAROUND BUFFER") { Set Doos = ##class(APPS.Verpakking.VouwErrondDoosBuffer).%New() }
 		ElseIf (ReceptNaam = "COMPLEX SEPARATOR") { Set Doos = ##class(APPS.Verpakking.ComplexeScheiding).%New() }
 		ElseIf (ReceptNaam = "WRAPAROUND") { Set Doos = ##class(APPS.Verpakking.VouwErrondDoos).%New() }
+		ElseIf (ReceptNaam = "SELFSTANDING") { Set Doos = ##class(APPS.Verpakking.ZelfstaandMetDeksel).%New() }
 	
 	} ElseIf (ProductGroep = "TAOR indelingen") {
 		If (ReceptNaam = "Mat groep") { Set Doos = ##class(APPS.Verpakking.VouwErrondDoos).%New() }	
Index: APPS/Verpakking/DoosAanvuller.cls.xml
===================================================================
diff -u -r69607 -r69608
--- APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 69607)
+++ APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 69608)
@@ -33,6 +33,8 @@
 		Do ..VulAanVulstukKlein(.BasisDoos, BoxDataID)
 	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.VouwErrondDoosBuffer")) {
 		Do ..VulAanVouwErrondDoosBuffer(.BasisDoos, BoxDataID)
+	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.ZelfstaandMetDeksel")) {
+		Do ..VulAanZelfstaandMetDeksel(.BasisDoos, BoxDataID)
 	}
 	
 	Set BasisDoos.Depth = ##class(TECH.Math).Round(BasisDoos.Depth,0)
@@ -467,6 +469,31 @@
 	Do BasisDoos.Params.Insert(Param)
 ]]></Implementation>
 </Method>
+
+<Method name="VulAanZelfstaandMetDeksel">
+<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.ZelfstaandMetDeksel,BoxDataID:%String]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	//Meta 484
+	
+	If (##class(DS.Prod.OptiBox.BoxData).%ExistsId(BoxDataID)) {
+		Set BoxData = ##class(DS.Prod.OptiBox.BoxData).%OpenId(BoxDataID)
+	} Else {
+		#dim Logger = ##class(vhLib.Logger).%New("VH doos service").ErrorMail("Geen boxdata gevonden voor boxdataID: '"_BoxDataID_"'.")
+	}
+	
+	Set BasisDoos.Depth = BoxData.DiepteExec
+	Set BasisDoos.Height = BoxData.HoogteExec
+	Set BasisDoos.Width = BoxData.BreedteExec
+	
+	Set BasisDoos.Flap = $Select($D(BoxData.Params.GetAt("Flap")): BoxData.Params.GetAt("Flap").WaardeExec, 1: BasisDoos.Flap)
+	
+	Set Param = ##class(APPS.Verpakking.Doos.Param).%New()
+	Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"1", 1: "Flap")
+	Set Param.Value = BasisDoos.Flap
+	Do BasisDoos.Params.Insert(Param)
+]]></Implementation>
+</Method>
 </Class>