Index: BL/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r35781 -r35782
--- BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 35781)
+++ BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 35782)
@@ -995,7 +995,7 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim AantalSchroeven As %Integer = 0
+	Set AantalSchroeven = 0
 
 	Set AantalHoutschroevenVoorBodemRugBepaler = ##class(DOM.PM.TBX.impl.AantalHoutschroevenVoorBodemRugBepaler).%New()
 	Set AantalSchroeven = AantalHoutschroevenVoorBodemRugBepaler.BepaalAantalSchroeven(TBKlasseID,BreedteIntern)
Index: DOM/PM/TBX/impl/AantalHoutschroevenVoorBodemRugBepaler.cls.xml
===================================================================
diff -u -r35776 -r35782
--- DOM/PM/TBX/impl/AantalHoutschroevenVoorBodemRugBepaler.cls.xml	(.../AantalHoutschroevenVoorBodemRugBepaler.cls.xml)	(revision 35776)
+++ DOM/PM/TBX/impl/AantalHoutschroevenVoorBodemRugBepaler.cls.xml	(.../AantalHoutschroevenVoorBodemRugBepaler.cls.xml)	(revision 35782)
@@ -1,13 +1,14 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="24">
+<Export generator="Cache" version="9">
 <Class name="DOM.PM.TBX.impl.AantalHoutschroevenVoorBodemRugBepaler">
 <Super>TECH.RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="BepaalAantalSchroeven">
 <FormalSpec>TBKlasseID:%String,BreedteIntern:%Numeric</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim AantalSchroeven As %Integer = 0
+	Set AantalSchroeven = 0
 	
 	If (TBKlasseID = "SY") {
 		Set AantalSchroeven = 2
@@ -29,11 +30,9 @@
 <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)
+	Set ItemIsActief = (OnderdelenSpeciaal="") && (SifonQty < 2) && (TBKlasseID '= "SY2") && ($$$Not(IsStalenRug)) && (BreedteIntern '< 400)
 	Quit ItemIsActief
 ]]></Implementation>
 </Method>
 </Class>
-
-
 </Export>