Index: DOM/PM/TBX/impl/AantalHoutschroevenVoorBodemRugBepaler.cls.xml
===================================================================
diff -u
--- DOM/PM/TBX/impl/AantalHoutschroevenVoorBodemRugBepaler.cls.xml	(revision 0)
+++ DOM/PM/TBX/impl/AantalHoutschroevenVoorBodemRugBepaler.cls.xml	(revision 35775)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.TBX.impl.AantalHoutschroevenVoorBodemRugBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="BepaalAantalSchroeven">
+<FormalSpec>TBKlasseID:%String,BreedteIntern:%Numeric</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim AantalSchroeven As %Integer = 0
+	
+	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="IsItemActiefBodemRugSchroef">
+<Description>
+Deze wordt voorlopig niet gebruikt; De expressie staat rechtstreeks in de excel TBX Prod.GA.MetaDesigner.xls  </Description>
+<FormalSpec>TBKlasseID:%String,BreedteIntern:%Numeric,OnderdelenSpeciaal:%String,SifonQty:%Numeric,IsStalenRug:%Boolean</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim ItemIsActief As %Boolean = (OnderdelenSpeciaal="") && (SifonQty < 2) && (TBKlasseID '= "SY2") && ($$$Not(IsStalenRug)) && (BreedteIntern '< 400)
+	Quit ItemIsActief
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: BL/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r35774 -r35775
--- BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 35774)
+++ BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 35775)
@@ -1036,23 +1036,11 @@
 <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
-		}
-	}
+
+	Set AantalHoutschroevenVoorBodemRugBepaler = ##class(DOM.PM.TBX.impl.AantalHoutschroevenVoorBodemRugBepaler).%New()
+	Set AantalSchroeven = AantalHoutschroevenVoorBodemRugBepaler.BepaalAantalSchroeven(TBKlasseID,BreedteIntern)
+
 	Quit AantalSchroeven
 ]]></Implementation>
 </Method>