Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/KenmerkenOptiesGenerator.cls.xml
===================================================================
diff -u -r71427 -r71440
--- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/KenmerkenOptiesGenerator.cls.xml	(.../KenmerkenOptiesGenerator.cls.xml)	(revision 71427)
+++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/KenmerkenOptiesGenerator.cls.xml	(.../KenmerkenOptiesGenerator.cls.xml)	(revision 71440)
@@ -28,6 +28,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="RugUtils">
+<Type>DOM.PM.Maatwerk.Lade.RugUtils.impl.LBXRugUtils</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>ProductApi:DOM.PM.ProductAPI="",AfbeeldingService:APPS.PM.Maatwerk.impl.AfbeeldingService="",IngegevenKenmerkenTypeApi:DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI=""</FormalSpec>
 <Private>1</Private>
@@ -40,6 +45,8 @@
 	Set ..KenmerkenConverterLbx = ##class(APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.Lbx).%New()
 	Set ..ProperyFilter = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.PropertyFilter).%New()
 	Set ..IngegevenKenmerkenTypeApi = $$$Inject(IngegevenKenmerkenTypeApi, ##class(DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New())
+	// LBX!
+	Set ..RugUtils  = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeRugUtils(##class(DOM.PM.enu.LadeVariant).LBXPure())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -67,12 +74,23 @@
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
 	Set LijstAlgemeneOpties = ##class(%ListOfObjects).%New()
-	
-	
+		
 	Do LijstAlgemeneOpties.Insert(..GeefOptieVoorLade(SequentieNummerBinnenToeleveringGeformateerdGeformateerd, "-AdminProductNummer", Product.GeefID()))
 	Do LijstAlgemeneOpties.Insert(..GeefOptieVoorLade(SequentieNummerBinnenToeleveringGeformateerdGeformateerd, "-Afbeeldingcode", ..AfbeeldingService.GeefImageCodeVoorIngegevenKenmerken(Ingegevenkenmerken)))
 	Do LijstAlgemeneOpties.Insert(..GeefOptieVoorLade(SequentieNummerBinnenToeleveringGeformateerdGeformateerd, "-Ladecode", Product.GeefLadeCode()))
+	Do ##class(TECH.ListUtils).AppendList(LijstAlgemeneOpties, ..GeefOptiesIngegegevenKenmerken(Ingegevenkenmerken, SequentieNummerBinnenToeleveringGeformateerdGeformateerd))
 	
+	Quit LijstAlgemeneOpties
+]]></Implementation>
+</Method>
+
+<Method name="GeefOptiesIngegegevenKenmerken">
+<FormalSpec>Ingegevenkenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,SequentieNummerBinnenToelevering:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set LijstOpties = ##class(%ListOfObjects).%New()
+	
 	// LBX!
 	#dim LbxKenmerkenApps As APPS.PM.Maatwerk.dto.LBXKenmerken = ..KenmerkenConverterLbx.Converteer(Ingegevenkenmerken)	
 	Set PropertiesIterator = ##class(TECH.ListIterator).%New(##class(TECH.ClassUtils).GeefProperties(LbxKenmerkenApps.%ClassName(1)))
@@ -82,10 +100,10 @@
 		#dim PropertyNaam As %String = GefilterdePropertiesIterator.Next()	
 		#dim Waarde As %String = $Property(LbxKenmerkenApps, PropertyNaam)
 		
-		Do LijstAlgemeneOpties.Insert(..GeefOptieVoorLade(SequentieNummerBinnenToeleveringGeformateerdGeformateerd, "-" _ PropertyNaam , Waarde))
+		Do LijstOpties.Insert(..GeefOptieVoorLade(SequentieNummerBinnenToelevering, "-" _ PropertyNaam , Waarde))
 	}
 	
-	Quit LijstAlgemeneOpties
+	Quit LijstOpties
 ]]></Implementation>
 </Method>
 
@@ -97,46 +115,109 @@
 	Set LijstBijkomendeOpties = ##class(%ListOfObjects).%New()
 	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Product.GeefHalffabItemsBoom()
 	
+	Do LijstBijkomendeOpties.Insert(..GeefOptieVoorSmalleLade(IngegevenKenmerken, SequentieNummerBinnenToeleveringGeformateerd))
+	Do LijstBijkomendeOpties.Insert(..GeefOptieVoorBodemHoogte(IngegevenKenmerken, SequentieNummerBinnenToeleveringGeformateerd))
+	Do LijstBijkomendeOpties.Insert(..GeefOptieVoorBodemBreedte(IngegevenKenmerken, HalffabItemsBoom, SequentieNummerBinnenToeleveringGeformateerd))
+	Do ##class(TECH.ListUtils).AppendList(LijstBijkomendeOpties, ..GeefOptiesVoorRugBreedteEnRugHoogte(IngegevenKenmerken, HalffabItemsBoom, SequentieNummerBinnenToeleveringGeformateerd))
+	Do LijstBijkomendeOpties.Insert(..GeefOptiePlaatmateriaalKleuren(IngegevenKenmerken, HalffabItemsBoom, SequentieNummerBinnenToeleveringGeformateerd))
+	Do LijstBijkomendeOpties.Insert(..GeefOptieStalenRugBreedte(IngegevenKenmerken, HalffabItemsBoom, SequentieNummerBinnenToeleveringGeformateerd))
+		
+	Quit LijstBijkomendeOpties
+]]></Implementation>
+</Method>
+
+<Method name="GeefOptieVoorSmalleLade">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,SequentieNummerBinnenToelevering:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
+<Implementation><![CDATA[
 	#dim IsSmalleLade As %Boolean = ..IngegevenKenmerkenTypeApi.IsSmalleLade(IngegevenKenmerken)
-	Do LijstBijkomendeOpties.Insert(..GeefOptieVoorLade(SequentieNummerBinnenToeleveringGeformateerd, "-" _ "IsSmalleLade", IsSmalleLade))
+	Quit ..GeefOptieVoorLade(SequentieNummerBinnenToelevering, "-" _ "IsSmalleLade", IsSmalleLade)
+]]></Implementation>
+</Method>
 
+<Method name="GeefOptieVoorBodemHoogte">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,SequentieNummerBinnenToelevering:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
+<Implementation><![CDATA[
 	#dim AftrekVoorBodemDiepte As %Decimal = ##class(DOM.PM.Maatwerk.LBX.BodemUtils).GeefAftrekVoorBodemDiepte(IngegevenKenmerken.RugWandMateriaal)
 	#dim BodemHoogte As %Integer = IngegevenKenmerken.LadeDiepte - AftrekVoorBodemDiepte
-	Do LijstBijkomendeOpties.Insert(..GeefOptieVoorLade(SequentieNummerBinnenToeleveringGeformateerd, "-" _ "BodemHoogte", BodemHoogte))
 	
+	Quit ..GeefOptieVoorLade(SequentieNummerBinnenToelevering, "-" _ "BodemHoogte", BodemHoogte)
+]]></Implementation>
+</Method>
+
+<Method name="GeefOptieVoorBodemBreedte">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,SequentieNummerBinnenToelevering:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
+<Implementation><![CDATA[
+	// LBX!
 	#dim BodemItem As DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Bodem())
 	#dim LengteDimensie As DOM.PM.enu.BewerkingDimensie = ##class(DOM.PM.enu.BewerkingDimensie).Lengte()
 	#dim BodemBreedte As %Decimal = BodemItem.GeefBewerkteDimensie(LengteDimensie)
-	Do LijstBijkomendeOpties.Insert(..GeefOptieVoorLade(SequentieNummerBinnenToeleveringGeformateerd, "-" _ "BodemBreedte", BodemBreedte))
 	
+	Quit ..GeefOptieVoorLade(SequentieNummerBinnenToelevering, "-" _ "BodemBreedte", BodemBreedte)
+]]></Implementation>
+</Method>
+
+<Method name="GeefOptiesVoorRugBreedteEnRugHoogte">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,SequentieNummerBinnenToelevering:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set LijstOpties = ##class(%ListOfObjects).%New()
 	#dim RugBreedte As %String = ""
 	#dim RugHoogteInMm As %String = ""
-	#dim RugUtils As DOM.PM.Maatwerk.Lade.RugUtils.impl.LBXRugUtils = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeRugUtils(##class(DOM.PM.enu.LadeVariant).LBXPure())
-	#dim RugItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem = RugUtils.GeefRugX(HalffabItemsBoom)
+		
 	If (IngegevenKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()) {
+		#dim LengteDimensie As DOM.PM.enu.BewerkingDimensie = ##class(DOM.PM.enu.BewerkingDimensie).Lengte()
+		#dim RugItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem = ..RugUtils.GeefRugX(HalffabItemsBoom)
+		
 		Set RugBreedte = RugItem.GeefBewerkteDimensie(LengteDimensie)
-		Set RugHoogteInMm = RugUtils.GeefRugHoogteInMm(IngegevenKenmerken.RugHoogte)
+		Set RugHoogteInMm = ..RugUtils.GeefRugHoogteInMm(IngegevenKenmerken.RugHoogte)
 	}
-	Do LijstBijkomendeOpties.Insert(..GeefOptieVoorLade(SequentieNummerBinnenToeleveringGeformateerd, "-" _ "RugBreedte", RugBreedte))
-	Do LijstBijkomendeOpties.Insert(..GeefOptieVoorLade(SequentieNummerBinnenToeleveringGeformateerd, "-" _ "RugHoogteInMm", RugHoogteInMm))
 	
+	Do LijstOpties.Insert(..GeefOptieVoorLade(SequentieNummerBinnenToelevering, "-" _ "RugBreedte", RugBreedte))
+	Do LijstOpties.Insert(..GeefOptieVoorLade(SequentieNummerBinnenToelevering, "-" _ "RugHoogteInMm", RugHoogteInMm))
+	
+	Quit LijstOpties
+]]></Implementation>
+</Method>
+
+<Method name="GeefOptiePlaatmateriaalKleuren">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,SequentieNummerBinnenToelevering:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
+<Implementation><![CDATA[
+	#dim BodemItem As DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Bodem())
 	#dim PlaatmateriaalKleuren = ""
 	#dim BodemKleurZichtbaar As %string = IngegevenKenmerken.BodemKleur
 	#dim BodemKleur2de As %String = ##class(DOM.PM.Maatwerk.LBX.BodemUtils).GeefTweedeKleur(BodemItem.GeefHalffab().ProductID, BodemKleurZichtbaar)	
+	
 	If (BodemKleurZichtbaar = BodemKleur2de) {
 		Set PlaatmateriaalKleuren = BodemKleurZichtbaar
 	} Else {
 		Set PlaatmateriaalKleuren = BodemKleurZichtbaar _ "/" _ BodemKleur2de
 	}
-	Do LijstBijkomendeOpties.Insert(..GeefOptieVoorLade(SequentieNummerBinnenToeleveringGeformateerd, "-" _ "PlaatmateriaalKleuren", PlaatmateriaalKleuren))
 	
+	Quit ..GeefOptieVoorLade(SequentieNummerBinnenToelevering, "-" _ "PlaatmateriaalKleuren", PlaatmateriaalKleuren)
+]]></Implementation>
+</Method>
+
+<Method name="GeefOptieStalenRugBreedte">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,SequentieNummerBinnenToelevering:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
+<Implementation><![CDATA[
+	#dim RugItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem = ..RugUtils.GeefRugX(HalffabItemsBoom)
 	#dim StalenRugBreedte As %String = ""
 	If (IngegevenKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Staal()) {
-		Set StalenRugBreedte = RugUtils.GeefStalenRugBreedte(RugItem.GeefHalffab().ProductID)
+		Set StalenRugBreedte = ..RugUtils.GeefStalenRugBreedte(RugItem.GeefHalffab().ProductID)
 	}
-	Do LijstBijkomendeOpties.Insert(..GeefOptieVoorLade(SequentieNummerBinnenToeleveringGeformateerd, "-" _ "StalenRugBreedte", StalenRugBreedte))
 	
-	Quit LijstBijkomendeOpties
+	Quit ..GeefOptieVoorLade(SequentieNummerBinnenToelevering, "-" _ "StalenRugBreedte", StalenRugBreedte)
 ]]></Implementation>
 </Method>
 </Class>