Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorLbx.cls.xml
===================================================================
diff -u -r71867 -r71868
--- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorLbx.cls.xml	(.../AlgemeneKenmerkenOptiesGeneratorLbx.cls.xml)	(revision 71867)
+++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorLbx.cls.xml	(.../AlgemeneKenmerkenOptiesGeneratorLbx.cls.xml)	(revision 71868)
@@ -54,27 +54,37 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefOptiesVoorRugBreedteEnRugHoogte">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,SequentieNummerLade:%String</FormalSpec>
+<Method name="GeefOptieVoorRugBreedte">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Product:DOM.PM.MaatwerkProduct,SequentieNummerLade:%String</FormalSpec>
 <Private>1</Private>
-<ReturnType>%ListOfObjects</ReturnType>
+<ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
 <Implementation><![CDATA[
-	Set LijstOpties = ##class(%ListOfObjects).%New()
 	#dim RugBreedte As %String = ""
-	#dim RugHoogteInMm As %String = ""
-		
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Product.GeefHalffabItemsBoom()
+	
 	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)
 	}
 	
-	Do LijstOpties.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Rugbreedte", RugBreedte))
-	Do LijstOpties.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Rughoogteinmm", RugHoogteInMm))
+	Quit ..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Rugbreedte", RugBreedte)
+]]></Implementation>
+</Method>
+
+<Method name="GeefOptieVoorRugHoogteInMm">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Product:DOM.PM.MaatwerkProduct,SequentieNummerLade:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
+<Implementation><![CDATA[
+	#dim RugHoogteInMm As %String = ""
 	
-	Quit LijstOpties
+	If (IngegevenKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()) {		
+		Set RugHoogteInMm = ..RugUtils.GeefRugHoogteInMm(IngegevenKenmerken.RugHoogte)
+	}
+	
+	Quit ..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Rughoogteinmm", RugHoogteInMm)
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGenerator.cls.xml
===================================================================
diff -u -r71867 -r71868
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGenerator.cls.xml	(.../AlgemeneKenmerkenOptiesGenerator.cls.xml)	(revision 71867)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGenerator.cls.xml	(.../AlgemeneKenmerkenOptiesGenerator.cls.xml)	(revision 71868)
@@ -76,7 +76,8 @@
 	Do LijstBijkomendeOpties.Insert(..GeefOptieVoorSmalleLade(IngegevenKenmerken, SequentieNummerLade))
 	Do LijstBijkomendeOpties.Insert(..GeefOptieVoorBodemHoogte(IngegevenKenmerken, Product, SequentieNummerLade))
 	Do LijstBijkomendeOpties.Insert(..GeefOptieVoorBodemBreedte(IngegevenKenmerken, Product, SequentieNummerLade))
-	Do ##class(TECH.ListUtils).AppendList(LijstBijkomendeOpties, ..GeefOptiesVoorRugBreedteEnRugHoogte(IngegevenKenmerken, HalffabItemsBoom, SequentieNummerLade))
+	Do LijstBijkomendeOpties.Insert(..GeefOptieVoorRugBreedte(IngegevenKenmerken, Product, SequentieNummerLade))
+	Do LijstBijkomendeOpties.Insert(..GeefOptieVoorRugHoogteInMm(IngegevenKenmerken, Product, SequentieNummerLade))
 	Do LijstBijkomendeOpties.Insert(..GeefOptiePlaatmateriaalKleuren(IngegevenKenmerken, HalffabItemsBoom, SequentieNummerLade))
 	Do LijstBijkomendeOpties.Insert(..GeefOptieStalenRugBreedte(IngegevenKenmerken, HalffabItemsBoom, SequentieNummerLade))
 		
@@ -112,14 +113,20 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
-<Method name="GeefOptiesVoorRugBreedteEnRugHoogte">
+<Method name="GeefOptieVoorRugBreedte">
 <Abstract>1</Abstract>
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,SequentieNummerLade:%String</FormalSpec>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Product:DOM.PM.MaatwerkProduct,SequentieNummerLade:%String</FormalSpec>
 <Private>1</Private>
-<ReturnType>%ListOfObjects</ReturnType>
-<Implementation><![CDATA[]]></Implementation>
+<ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
 </Method>
 
+<Method name="GeefOptieVoorRugHoogteInMm">
+<Abstract>1</Abstract>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Product:DOM.PM.MaatwerkProduct,SequentieNummerLade:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
+</Method>
+
 <Method name="GeefOptiePlaatmateriaalKleuren">
 <Abstract>1</Abstract>
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,SequentieNummerLade:%String</FormalSpec>