Index: APPS/Halux/PPS/Document/impl/TBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml
===================================================================
diff -u -r72020 -r72031
--- APPS/Halux/PPS/Document/impl/TBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml	(.../AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml)	(revision 72020)
+++ APPS/Halux/PPS/Document/impl/TBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml	(.../AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml)	(revision 72031)
@@ -53,23 +53,48 @@
 </Method>
 
 <Method name="GeefOptieVoorRugBreedte">
-<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[
 	Set LijstOptiesVoorRugBreedte = ##class(%ListOfObjects).%New()
-	#dim RugBreedte As %Integer = ..GeefRugBreedte(Product)
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Product.GeefHalffabItemsBoom()
 	
-	#dim IsStalenRug As %Boolean = $ListGet(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",Product.GeefID(),"IsSR"))
-	#dim Klasse As %String = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",Product.GeefID(),"KLAS"))
+	If (IngegevenKenmerken.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()) {
+		If ((..IngegevenKenmerkenTypeApi.IsSifonlade(Product.GeefIngegevenKenmerken())) || (..IngegevenKenmerkenTypeApi.IsSpoelbaklade(Product.GeefIngegevenKenmerken()))) {
+			#dim RugBreedteX As %Decimal = ..GeefRugBreedte("X", HalffabItemsBoom)
+			Do LijstOptiesVoorRugBreedte.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Rugxbreedte", RugBreedteX))
+			
+			#dim RugBreedteY As %Decimal = ..GeefRugBreedte("Y", HalffabItemsBoom)
+			Do LijstOptiesVoorRugBreedte.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Rugybreedte", RugBreedteY))
+			
+			#dim SifonType As %String = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX", Product.GeefID(), "SPZK"))
+			If $$$Not(SifonType = ##class(DOM.PM.enu.TBXSifonType).EnkeleDiepeSifon()) {
+				#dim RugBreedteM As %Decimal = ..GeefRugBreedte("M", HalffabItemsBoom)
+				Do LijstOptiesVoorRugBreedte.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Rugmbreedte", RugBreedteM))
+			}
+		} Else {
+			#dim RugBreedte As %Decimal = ..GeefRugBreedte("X", HalffabItemsBoom)
+			Do LijstOptiesVoorRugBreedte.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Rugbreedte", RugBreedte))
+		}
+	}
 	
-	If ((IsStalenRug) || ##class(TECH.StringUtils).StartsWith(Klasse, "SY")) {
-		Set RugBreedte = ""
-	}	
+	Quit LijstOptiesVoorRugBreedte
+]]></Implementation>
+</Method>
+
+<Method name="GeefRugBreedte">
+<FormalSpec>SubRol:%String,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[
+	#dim RugBreedte As %Decimal = ""
+	#dim LengteDimensie As DOM.PM.enu.BewerkingDimensie = ##class(DOM.PM.enu.BewerkingDimensie).Lengte()
 	
-	Do LijstOptiesVoorRugBreedte.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Rugbreedte", RugBreedte))
+	#dim RugItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Rug()_"->"_ SubRol)
+	Set:(..IsBewerkingNodigVoorRug(RugItem)) RugBreedte = RugItem.GeefBewerkteDimensie(LengteDimensie)
 	
-	Quit LijstOptiesVoorRugBreedte
+	Quit RugBreedte
 ]]></Implementation>
 </Method>
 
@@ -147,23 +172,13 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefRugBreedte">
-<FormalSpec>Product:DOM.PM.MaatwerkProduct</FormalSpec>
+<Method name="IsBewerkingNodigVoorRug">
+<FormalSpec>RugItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem</FormalSpec>
 <Private>1</Private>
-<ReturnType>%Integer</ReturnType>
+<ReturnType>%Boolean</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"))
-	
-	If (Design = "BA") {
-		Set RugBreedte = InterneBreedte - 112
-	} Else {
-		Set RugBreedte = InterneBreedte - 87
-	}
-	
-	Quit RugBreedte
+	Quit ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemUtils).IsBewerkingNodig(RugItem, ##class(DOM.PM.enu.BewerkingDimensie).Lengte())
 ]]></Implementation>
 </Method>
 </Class>