Index: DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml
===================================================================
diff -u -r41291 -r41309
--- DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml	(.../TBXLadeImpl.cls.xml)	(revision 41291)
+++ DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml	(.../TBXLadeImpl.cls.xml)	(revision 41309)
@@ -300,11 +300,11 @@
 <Method name="BevatLVormigeRugHouder">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	Set LVormigeHouder = 0
+	#dim LVormigeHouder As %Boolean = 0
 	Set RughouderBouwsteen = ##class(DOM.PM.Bouwstenen.Bouwsteen).%OpenId(..GeefPRNr()_"||"_"PRRUGLI.001")
 	If ($Get(RughouderBouwsteen) '= "") {
-		Set RughouderPRNr = RughouderBouwsteen.KindProduct.ProductNr
-		Set Rughouder = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(RughouderPRNr)
+		#dim RughouderPRNr As %String = RughouderBouwsteen.KindProduct.ProductNr
+		#dim Rughouder As DOM.PM.TBXProduct.TBXRughouder = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(RughouderPRNr)
 
 		If $$$Not(Rughouder.%Extends("DOM.PM.TBXProduct.TBXRughouder")) {
 			Do ##class(TECH.Exceptions.InvalidInputException).Throw("Product "_Rughouder.GeefID()_" wordt niet als TBXRug erkend."_..GeefDebugInfo(Rughouder,$this)_".")