Index: APPS/Halux/PPS/Document/impl/TBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml
===================================================================
diff -u -r71872 -r71873
--- APPS/Halux/PPS/Document/impl/TBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml	(.../AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml)	(revision 71872)
+++ APPS/Halux/PPS/Document/impl/TBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml	(.../AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml)	(revision 71873)
@@ -57,19 +57,13 @@
 <Private>1</Private>
 <ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
 <Implementation><![CDATA[
-	#dim RugBreedte As %String = ""
+	#dim RugBreedte As %Integer = ..GeefRugBreedte(Product)
 	
-	#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 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 $$$Not((IsStalenRug) || ##class(TECH.StringUtils).StartsWith(Klasse, "SY")) {
-		If (Design = "BA") {
-			Set RugBreedte = InterneBreedte - 112
-		} Else {
-			Set RugBreedte = InterneBreedte - 87
-		}
+	If ((IsStalenRug) || ##class(TECH.StringUtils).StartsWith(Klasse, "SY")) {
+		Set RugBreedte = ""
 	}	
 	
 	Quit ..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Rugbreedte", RugBreedte)
@@ -125,6 +119,26 @@
 	Quit ..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Stalenrugbreedte", StalenRugBreedte)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefRugBreedte">
+<FormalSpec>Product:DOM.PM.MaatwerkProduct</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</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
+]]></Implementation>
+</Method>
 </Class>