Index: BL/PPS/TBX/DocRugwandhouderLijst.cls.xml
===================================================================
diff -u -r30900 -r30901
--- BL/PPS/TBX/DocRugwandhouderLijst.cls.xml	(.../DocRugwandhouderLijst.cls.xml)	(revision 30900)
+++ BL/PPS/TBX/DocRugwandhouderLijst.cls.xml	(.../DocRugwandhouderLijst.cls.xml)	(revision 30901)
@@ -42,8 +42,8 @@
 	{
 		Set oQ=##class(DS.PPS.TBX.Queue).%OpenId(ResultSet.Data("ID"))
 		Continue:oQ.Status="PB" ; sequencelijnen met status "PB" worden overgeslagen
-		Set PRNr = oQ.ProductGetObjectId()
-		Set Lade = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(PRNr)
+		#dim PRNr As DOM.common.ProductID = oQ.ProductGetObjectId()
+		#dim Lade As DOM.PM.TBXProduct.TBXLade = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(PRNr)
 		
 		If (Lade.GeefRugMateriaal()=##class(DOM.PM.enu.TBXRugMateriaal).Hout()) &&
 		   ( Lade.%Extends("DOM.PM.TBXProduct.TBXLadeMetUitsparing") || (Lade.GeefBlumotion() = ##class(DOM.PM.enu.TBXBlumotion).TipOn()) )
@@ -65,14 +65,14 @@
 	Set HouderIterator = ##class(TECH.ListIterator).%New(..Houders)
 	While (HouderIterator.HasNext())
 	{
-		Set HouderAantal = HouderIterator.Next()
-		Set HouderPRNr = HouderIterator.Key()
-		Set HouderProduct = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(HouderPRNr)
+		#dim HouderAantal As %Integer = HouderIterator.Next()
+		#dim HouderPRNr As %String = HouderIterator.Key()
+		#dim HouderProduct As DOM.PM.TBXProduct.impl.TBXRughouderImpl= ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(HouderPRNr)
 		If $$$Not(HouderProduct.%Extends("DOM.PM.TBXProduct.TBXRughouder")) {
 			Do ##class(TECH.Exceptions.InvalidInputException).Throw("Product "_HouderPRNr_" wordt niet als TBXRughouder erkend"_..GeefDebugInfo(HouderPRNr,.mdCacheProductIDs)_".")
 		}
 		Do Document.GeefKolom(1).Insert(HouderProduct.GeefKleur())
-		Set Hoogte = HouderProduct.GeefVoorZijwandHoogte()
+		#dim Hoogte As %Numeric = HouderProduct.GeefVoorZijwandHoogte()
 		If (HouderProduct.IsLVormig()) Set Hoogte = Hoogte_".22"
 		Do Document.GeefKolom(2).Insert(Hoogte)
 		Do Document.GeefKolom(3).Insert(HouderAantal)