Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test012/StartBatch/15000_0001.xml
===================================================================
diff -u -r73376 -r73424
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test012/StartBatch/15000_0001.xml	(.../15000_0001.xml)	(revision 73376)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test012/StartBatch/15000_0001.xml	(.../15000_0001.xml)	(revision 73424)
@@ -273,7 +273,7 @@
   <options>
     <description>LADE 001</description>
     <name>001-Bodemhoogte</name>
-    <value>246</value>
+    <value>248</value>
   </options>
   <options>
     <description>LADE 001</description>
Index: APPS/Halux/PPS/Document/impl/TBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml
===================================================================
diff -u -r73399 -r73424
--- APPS/Halux/PPS/Document/impl/TBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml	(.../AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml)	(revision 73399)
+++ APPS/Halux/PPS/Document/impl/TBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml	(.../AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml)	(revision 73424)
@@ -29,15 +29,14 @@
 </Method>
 
 <Method name="GeefOptieVoorBodemHoogte">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Product:DOM.PM.MaatwerkProduct,SequentieNummerLade:%String</FormalSpec>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken,Product:DOM.PM.MaatwerkProduct,SequentieNummerLade:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
 <Implementation><![CDATA[
-	#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 Ladediepte As %Integer = IngegevenKenmerken.LadeDiepte
 	
 	#dim BodemHoogte As %Integer = Ladediepte - 24
-	If (($Length(BodemKleur) = 3) && ($Extract(BodemKleur,3) = "S")) {
+	If (IngegevenKenmerken.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()) {
 		Set BodemHoogte = BodemHoogte + 2
 	}
 	
@@ -46,19 +45,15 @@
 </Method>
 
 <Method name="GeefOptieVoorBodemBreedte">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Product:DOM.PM.MaatwerkProduct,SequentieNummerLade:%String</FormalSpec>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken,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
-	#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"))
+	#dim InterneBreedte As %Integer = IngegevenKenmerken.InterneBreedte
+	#dim Draagkracht As %Integer = IngegevenKenmerken.Draagkracht
 		
-	If (Draagkracht = 80) {
-		Set BodemBreedte = InterneBreedte - 81
-	} Else {
-		Set BodemBreedte = InterneBreedte - 75
-	}
+	Set BodemBreedte = InterneBreedte - 75
 	
 	Quit ..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Bodembreedte", BodemBreedte)
 ]]></Implementation>
@@ -96,7 +91,7 @@
 </Method>
 
 <Method name="GeefOptieVoorRugHoogteInMm">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Product:DOM.PM.MaatwerkProduct,SequentieNummerLade:%String</FormalSpec>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken,Product:DOM.PM.MaatwerkProduct,SequentieNummerLade:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
 <Implementation><![CDATA[
@@ -108,7 +103,7 @@
 </Method>
 
 <Method name="GeefOptiePlaatmateriaalKleuren">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Product:DOM.PM.MaatwerkProduct,SequentieNummerLade:%String</FormalSpec>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken,Product:DOM.PM.MaatwerkProduct,SequentieNummerLade:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
@@ -123,37 +118,32 @@
 </Method>
 
 <Method name="GeefOptieStalenRugBreedte">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Product:DOM.PM.MaatwerkProduct,SequentieNummerLade:%String</FormalSpec>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken,Product:DOM.PM.MaatwerkProduct,SequentieNummerLade:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
 <Implementation><![CDATA[
 	#dim StalenRugBreedte As %String = ""
 	
-	#dim IsStalenRug As %Boolean = $ListGet(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",Product.GeefID(),"IsSR"))
+	#dim IsStalenRug As %Boolean = (IngegevenKenmerken.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal())
 	
 	If (IsStalenRug) {
-		Set StalenRugBreedte = ..GeefRugBreedteStalenRug(Product)
+		Set StalenRugBreedte = ..GeefRugBreedteStalenRug(IngegevenKenmerken)
 	}
 		
 	Quit ..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Stalenrugbreedte", StalenRugBreedte)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefRugBreedteStalenRug">
-<FormalSpec>Product:DOM.PM.MaatwerkProduct</FormalSpec>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Decimal</ReturnType>
 <Implementation><![CDATA[
 	#dim RugBreedte As %String = ""
 	
-	#dim InterneBreedte As %Integer = $ListGet(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",Product.GeefID(),"IB"))
-	#dim Design As %String = $ListGet(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",Product.GeefID(),"DS"))
+	#dim InterneBreedte As %Integer = IngegevenKenmerken.InterneBreedte
 	
-	If (Design = "BA") {
-		Set RugBreedte = InterneBreedte - 112
-	} Else {
-		Set RugBreedte = InterneBreedte - 87
-	}
+	Set RugBreedte = InterneBreedte - 87
 	
 	Quit RugBreedte
 ]]></Implementation>