Index: APPS/Halux/PPS/Document/impl/TBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml
===================================================================
diff -u -r72459 -r72460
--- APPS/Halux/PPS/Document/impl/TBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml	(.../AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml)	(revision 72459)
+++ APPS/Halux/PPS/Document/impl/TBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml	(.../AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml)	(revision 72460)
@@ -108,25 +108,9 @@
 <Private>1</Private>
 <ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
 <Implementation><![CDATA[
-	#dim RugHoogteInMm As %String = ""
-	#dim RugHoogte As %String = $ListGet(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",Product.GeefID(),"RH"))
-	#dim IsStalenRug As %Boolean = $ListGet(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",Product.GeefID(),"IsSR"))
-	#dim RugProductNummer As %String = ""
+	#dim TbxProduct As DOM.PM.TBXProduct.TBXLade = Product
+	#dim RugHoogteInMm As %Integer = TbxProduct.GeefRugHoogteMM()
 	
-	If (##class(TECH.Config.ConfigMgr).Instance().GetBoolean("DOM.common.ProjectSettingsApi_IsActiefBomBolOmleidingTbxNaarDotNet")) {
-		Set RugProductNummer=$Piece($Get(^PRBS("BS",Product.GeefID(),"RUGX.001")),"\",1)
-	} Else {
-		Set RugProductNummer=$Piece($Get(^PRBS("BS",Product.GeefID(),"PRRUGHS.001")),"\",1)
-	}
-	
-	Set:RugProductNummer?4.7N RugHoogte=$ListGet(##class(Prod.Kenmerk.DataDefinitie).Get("TB", RugProductNummer,"RugHoogte")) ; Werkelijke hoogte van de rug	
-	
-	If (IsStalenRug) {
-		Set RugHoogte = ""
-	} 
-	
-	Set RugHoogteInMm = $Case(RugHoogte, "N":69, "M":84, "K":116, "B":135, "C":167, "D":199, :"")
-	
 	Quit ..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Rughoogteinmm", RugHoogteInMm)
 ]]></Implementation>
 </Method>
@@ -202,17 +186,11 @@
 <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 LadeHoogteInMm As %Float = ""
+	#dim TbxProduct As DOM.PM.TBXProduct.TBXLade = Product
+	#dim ZijwandHoogte As DOM.PM.enu.TBXLadehoogte = TbxProduct.GeefZijwandHoogte()
 	
-	Set RSTL=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",Product.GeefID(), "RSTL")) ; Rug verlaagd
-	Do ##class(Tools.Wlip).%New(26).String("RSTL: " _ RSTL)
+	#dim LadeHoogteInMm As %Float = ..GeefLadeHoogteInMM(ZijwandHoogte)
 	
-	
-	If (IngegevenKenmerken.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()){
-		
-	}
-	
 	Quit ..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Ladehoogteinmm", LadeHoogteInMm)
 ]]></Implementation>
 </Method>
@@ -226,15 +204,17 @@
 </Method>
 
 <Method name="GeefLadeHoogteInMM">
-<FormalSpec>ZijkantHoogte:%String</FormalSpec>
+<FormalSpec>ZijwandHoogte:DOM.PM.enu.TBXLadehoogte</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Float</ReturnType>
 <Implementation><![CDATA[
-	Quit $CASE(ZijkantHoogte, 
-		##class(DOM.PM.enu.TBXZijkantHoogte).N():	69,
-		##class(DOM.PM.enu.TBXZijkantHoogte).M():	84,
-		##class(DOM.PM.enu.TBXZijkantHoogte).K():	116,
-		##class(DOM.PM.enu.TBXZijkantHoogte).L():	164,
+	Quit $CASE(ZijwandHoogte, 
+		##class(DOM.PM.enu.TBXLadehoogte).N():	69,
+		##class(DOM.PM.enu.TBXLadehoogte).M():	84,
+		##class(DOM.PM.enu.TBXLadehoogte).K():	116,
+		##class(DOM.PM.enu.TBXLadehoogte).B():	135,
+		##class(DOM.PM.enu.TBXLadehoogte).C():	167,
+		##class(DOM.PM.enu.TBXLadehoogte).D():	199,
 		:0
 	)
 ]]></Implementation>