Index: DOM/PM/TBXProduct/impl/TBXSifonladeType3.cls.xml
===================================================================
diff -u -r44246 -r46304
--- DOM/PM/TBXProduct/impl/TBXSifonladeType3.cls.xml	(.../TBXSifonladeType3.cls.xml)	(revision 44246)
+++ DOM/PM/TBXProduct/impl/TBXSifonladeType3.cls.xml	(.../TBXSifonladeType3.cls.xml)	(revision 46304)
@@ -46,14 +46,14 @@
 <Method name="GeefAfstandTotZijkantLinks">
 <Private>1</Private>
 <ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	Quit $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",..GeefPRNr(),"SPZLI"))
+<Implementation><![CDATA[	Quit $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",..GeefPRNr(),"SPZLI") ,1)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefAfstandTotZijkantRechts">
 <Private>1</Private>
 <ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	Quit $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",..GeefPRNr(),"SPZRE"))
+<Implementation><![CDATA[	Quit $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",..GeefPRNr(),"SPZRE") ,1)
 ]]></Implementation>
 </Method>
 
@@ -65,7 +65,7 @@
 		Set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("Geen 2 sifonnen aanwezig in deze sifonlade")
 		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
-	Quit ..GeefAfstandTotZijkantLinks() + ..GeefSifonBreedte() + $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",..GeefPRNr(),"SPRUGMID"))
+	Quit ..GeefAfstandTotZijkantLinks() + ..GeefSifonBreedte() + $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",..GeefPRNr(),"SPRUGMID") ,1)
 ]]></Implementation>
 </Method>
 
@@ -77,7 +77,7 @@
 		Set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("Geen 2 sifonnen aanwezig in deze sifonlade")
 		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
-	Quit ..GeefAfstandTotZijkantRechts() + ..GeefSifonBreedte() + $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",..GeefPRNr(),"SPRUGMID"))
+	Quit ..GeefAfstandTotZijkantRechts() + ..GeefSifonBreedte() + $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",..GeefPRNr(),"SPRUGMID") ,1)
 ]]></Implementation>
 </Method>
 
@@ -92,8 +92,8 @@
 <Private>1</Private>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
-	Set Diepte = 0
-	Set SifonType = ..GeefSifonType()
+	#dim Diepte As %Numeric = 0
+	#dim SifonType As %String = ..GeefSifonType()
 	
 	If ##class(TECH.StringUtils).Equals(SifonType, "SIF3_01", "SIF3_01.x2") {
 		Set Diepte = 227
@@ -105,7 +105,7 @@
 <Method name="GeefSifonType">
 <Private>1</Private>
 <ReturnType>DOM.PM.enu.TBXSifonType</ReturnType>
-<Implementation><![CDATA[	Quit $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",..GeefPRNr(),"SPZK"))
+<Implementation><![CDATA[	Quit $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",..GeefPRNr(),"SPZK") ,1)
 ]]></Implementation>
 </Method>
 </Class>