Index: APPS/Halux/PPS/Document/impl/TBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml
===================================================================
diff -u -r72032 -r72036
--- APPS/Halux/PPS/Document/impl/TBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml	(.../AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml)	(revision 72032)
+++ APPS/Halux/PPS/Document/impl/TBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml	(.../AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml)	(revision 72036)
@@ -150,12 +150,32 @@
 	#dim IsStalenRug As %Boolean = $ListGet(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",Product.GeefID(),"IsSR"))
 	
 	If (IsStalenRug) {
-		Set StalenRugBreedte = ..GeefRugBreedte(Product)
+		Set StalenRugBreedte = ..GeefRugBreedteStalenRug(Product)
 	}
 		
 	Quit ..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Stalenrugbreedte", StalenRugBreedte)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefRugBreedteStalenRug">
+<FormalSpec>Product:DOM.PM.MaatwerkProduct</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"))
+	
+	If (Design = "BA") {
+		Set RugBreedte = InterneBreedte - 112
+	} Else {
+		Set RugBreedte = InterneBreedte - 87
+	}
+	
+	Quit RugBreedte
+]]></Implementation>
+</Method>
 </Class>