Index: APPS/Halux/PPS/Document/impl/TBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml
===================================================================
diff -u -r71869 -r71872
--- APPS/Halux/PPS/Document/impl/TBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml	(.../AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml)	(revision 71869)
+++ APPS/Halux/PPS/Document/impl/TBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml	(.../AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml)	(revision 71872)
@@ -61,12 +61,16 @@
 	
 	#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 (Design = "BA") {
-		Set RugBreedte = InterneBreedte - 112
-	} Else {
-		Set RugBreedte = InterneBreedte - 87
-	}
+	If $$$Not((IsStalenRug) || ##class(TECH.StringUtils).StartsWith(Klasse, "SY")) {
+		If (Design = "BA") {
+			Set RugBreedte = InterneBreedte - 112
+		} Else {
+			Set RugBreedte = InterneBreedte - 87
+		}
+	}	
 	
 	Quit ..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Rugbreedte", RugBreedte)
 ]]></Implementation>
@@ -79,6 +83,7 @@
 <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 = ""
 	
 	If (##class(TECH.Config.ConfigMgr).Instance().GetBoolean("DOM.common.ProjectSettingsApi_IsActiefBomBolOmleidingTbxNaarDotNet")) {
@@ -87,8 +92,12 @@
 		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: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)