Index: APPS/Halux/PPS/Document/impl/TBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml
===================================================================
diff -u -r71867 -r71869
--- APPS/Halux/PPS/Document/impl/TBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml	(.../AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml)	(revision 71867)
+++ APPS/Halux/PPS/Document/impl/TBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml	(.../AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml)	(revision 71869)
@@ -52,22 +52,49 @@
 ]]></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 = 0
-	#dim RugHoogteInMm As %String = 0
+	#dim RugBreedte As %String = ""
 	
-	Do LijstOpties.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Rugbreedte", RugBreedte))
-	Do LijstOpties.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Rughoogteinmm", RugHoogteInMm))
+	#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"))
 	
-	Quit LijstOpties
+	If (Design = "BA") {
+		Set RugBreedte = InterneBreedte - 112
+	} Else {
+		Set RugBreedte = InterneBreedte - 87
+	}
+	
+	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 = ""
+	#dim RugHoogte As %String = $ListGet(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",Product.GeefID(),"RH"))
+	#dim RugProductNummer As %String = ""
+	
+	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
+	
+	Set RugHoogteInMm = $Case(RugHoogte, "N":69, "M":84, "K":116, "B":135, "C":167, "D":199, :"")
+	
+	Quit ..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Rughoogteinmm", RugHoogteInMm)
+]]></Implementation>
+</Method>
+
 <Method name="GeefOptiePlaatmateriaalKleuren">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,SequentieNummerLade:%String</FormalSpec>
 <Private>1</Private>