Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorLbx.cls.xml
===================================================================
diff -u -r71848 -r71867
--- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorLbx.cls.xml	(.../AlgemeneKenmerkenOptiesGeneratorLbx.cls.xml)	(revision 71848)
+++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorLbx.cls.xml	(.../AlgemeneKenmerkenOptiesGeneratorLbx.cls.xml)	(revision 71867)
@@ -29,7 +29,7 @@
 </Method>
 
 <Method name="GeefOptieVoorBodemHoogte">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,SequentieNummerLade:%String</FormalSpec>
+<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[
@@ -41,10 +41,11 @@
 </Method>
 
 <Method name="GeefOptieVoorBodemBreedte">
-<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>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
 <Implementation><![CDATA[
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Product.GeefHalffabItemsBoom()
 	#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)
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGenerator.cls.xml
===================================================================
diff -u -r71773 -r71867
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGenerator.cls.xml	(.../AlgemeneKenmerkenOptiesGenerator.cls.xml)	(revision 71773)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGenerator.cls.xml	(.../AlgemeneKenmerkenOptiesGenerator.cls.xml)	(revision 71867)
@@ -74,8 +74,8 @@
 	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Product.GeefHalffabItemsBoom()
 	
 	Do LijstBijkomendeOpties.Insert(..GeefOptieVoorSmalleLade(IngegevenKenmerken, SequentieNummerLade))
-	Do LijstBijkomendeOpties.Insert(..GeefOptieVoorBodemHoogte(IngegevenKenmerken, SequentieNummerLade))
-	Do LijstBijkomendeOpties.Insert(..GeefOptieVoorBodemBreedte(IngegevenKenmerken, HalffabItemsBoom, 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(..GeefOptiePlaatmateriaalKleuren(IngegevenKenmerken, HalffabItemsBoom, SequentieNummerLade))
 	Do LijstBijkomendeOpties.Insert(..GeefOptieStalenRugBreedte(IngegevenKenmerken, HalffabItemsBoom, SequentieNummerLade))
@@ -98,15 +98,15 @@
 
 <Method name="GeefOptieVoorBodemHoogte">
 <Abstract>1</Abstract>
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,SequentieNummerLade:%String</FormalSpec>
+<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[]]></Implementation>
 </Method>
 
 <Method name="GeefOptieVoorBodemBreedte">
 <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>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
 <Implementation><![CDATA[]]></Implementation>
Index: APPS/Halux/PPS/Document/impl/TBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml
===================================================================
diff -u -r71847 -r71867
--- APPS/Halux/PPS/Document/impl/TBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml	(.../AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml)	(revision 71847)
+++ APPS/Halux/PPS/Document/impl/TBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml	(.../AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml)	(revision 71867)
@@ -17,22 +17,36 @@
 </Method>
 
 <Method name="GeefOptieVoorBodemHoogte">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,SequentieNummerLade:%String</FormalSpec>
+<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 BodemHoogte As %Integer = 0
+	#dim Ladediepte As %Integer = $ListGet(##class(Prod.Kenmerk.DataDefinitie).Get("TBX", Product.GeefID(),"LD"))
+	#dim BodemKleur As %String = $ListGet(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",Product.GeefID(),"KB"))
 	
+	#dim BodemHoogte As %Integer = Ladediepte - 24
+	If (($Length(BodemKleur) = 3) && ($Extract(BodemKleur,3) = "S")) {
+		Set BodemHoogte = BodemHoogte + 2
+	}
+	
 	Quit ..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Bodemhoogte", BodemHoogte)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefOptieVoorBodemBreedte">
-<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>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
 <Implementation><![CDATA[
-	#dim BodemBreedte As %Decimal = 0
+	#dim BodemBreedte As %Decimal
+	#dim InterneBreedte As %Integer = $ListGet(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",Product.GeefID(),"IB"))
+	#dim Draagkracht As %Integer = $ListGet(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",Product.GeefID(),"DK"))
+		
+	If (Draagkracht = 80) {
+		Set BodemBreedte = InterneBreedte - 81
+	} Else {
+		Set BodemBreedte = InterneBreedte - 75
+	}
 	
 	Quit ..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Bodembreedte", BodemBreedte)
 ]]></Implementation>