Index: BL/PPS/TBX/DocsProPlus.cls.xml
===================================================================
diff -u -r29059 -r35802
--- BL/PPS/TBX/DocsProPlus.cls.xml	(.../DocsProPlus.cls.xml)	(revision 29059)
+++ BL/PPS/TBX/DocsProPlus.cls.xml	(.../DocsProPlus.cls.xml)	(revision 35802)
@@ -639,8 +639,9 @@
 	. Set RugPRNr=$P($G(^PRBS("BS",PRNr,"PRRUGHS.001")),"\",1)
 	. Set:RugPRNr?4.7N RH=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",RugPRNr,"RugHoogte")) ; Werkelijke hoogte van de rug
 	. Set pxLabel.Rug="R: "_KR_" "_RH_" B:"_(IB-$S(DS="BA":112,1:87))_" H:"_$Case(RH,"N":69,"M":84,"K":116,"B":135,"C":167,"D":199,:"")
-	. Set:((IB'<400)||(DK=80)||(DS="BA")||(KLAS="SP")) pxLabel.Rug=pxLabel.Rug_$S((IB'<700)||(KLAS="SP"):"x2",1:"x1")
-
+	. Set AantalHoutschroevenVoorBodemRugBepaler = ##class(DOM.PM.TBX.impl.AantalHoutschroevenVoorBodemRugBepaler).%New()
+	. Set:((IB'<400)||(DK=80)||(DS="BA")||(KLAS="SP")) pxLabel.Rug=pxLabel.Rug _ "x"_AantalHoutschroevenVoorBodemRugBepaler.BepaalAantalSchroeven(KLAS,IB)   ; $S((IB'<700)||(KLAS="SP"):"x2",1:"x1")
+	
 	; Zijkant
 	Set:DC'?1(1"B",1"S") KL=KL_":"_$S(DC="L":"A2",1:DC) ; F en A design achter de ladezijkantkleur
  	Set:DK=25 KL=KL_":Intra"
Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r34172 -r35802
--- BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 34172)
+++ BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 35802)
@@ -632,7 +632,9 @@
 	Quit:ODSP="F" "" ; Onderdelen Speciaal : alleen front
 	Set pxLabel.Bor=""
 	If 'IsSR&&((IB'<400)||(DK=80)||(DS="BA")||(KLAS="SP")) Do
-	. Set pxLabel.Bor=$S((IB'<700)||(KLAS="SP"):2,1:1)
+	. Set AantalHoutschroevenVoorBodemRugBepaler = ##class(DOM.PM.TBX.impl.AantalHoutschroevenVoorBodemRugBepaler).%New()
+	. Set pxLabel.Bor=AantalHoutschroevenVoorBodemRugBepaler.BepaalAantalSchroeven(KLAS,IB)
+
 	Set TipOnSyncPRNr=$P($G(^PRBS("BS",PRNr,"PRTOSTANG.001")),"\",1) ; ;Z55Sxxx
 
 	#dim TBX As DOM.PM.TBXProduct.TBXLade = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(PRNr)