Index: BL/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r34098 -r35774
--- BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 34098)
+++ BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 35774)
@@ -1028,6 +1028,35 @@
 ]]></Implementation>
 </Method>
 
+<Method name="CalcAantalHoutschroevenVoorBodemRug">
+<Description>
+In sync houden met Cache v5 !!! </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>TBKlasseID:%String,BreedteIntern:%Numeric</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim OnderdelenSpeciaal As %String = ""
+	#dim SifonQty As %Numeric = 0
+	#dim IsStalenRug As %Boolean = $$$False
+	
+	#dim AantalSchroeven As %Integer = 0
+	#dim ItemIsActief As %Boolean = (OnderdelenSpeciaal="") && (SifonQty < 2) && (TBKlasseID '= "SY2") && ($$$Not(IsStalenRug)) && (BreedteIntern '< 400)
+	If ItemIsActief {
+		If (TBKlasseID = "SY") {
+			Set AantalSchroeven = 2
+		}
+		ElseIf (TBKlasseID'?1(1"SP2",1"SY2")) {
+			Set AantalSchroeven = $S(BreedteIntern>999:3, BreedteIntern>700:2, 1:1)
+		}
+		Else {
+			Set AantalSchroeven = 1
+		}
+	}
+	Quit AantalSchroeven
+]]></Implementation>
+</Method>
+
 <Method name="CalcOpvullijstLengte">
 <Description>
 Voor sommige ladedieptes moeten opvullijsten ingekort worden.