Index: BL/PPS/TBX/DocRugwandhouderLijst.cls.xml
===================================================================
diff -u -r29059 -r30900
--- BL/PPS/TBX/DocRugwandhouderLijst.cls.xml	(.../DocRugwandhouderLijst.cls.xml)	(revision 29059)
+++ BL/PPS/TBX/DocRugwandhouderLijst.cls.xml	(.../DocRugwandhouderLijst.cls.xml)	(revision 30900)
@@ -3,7 +3,7 @@
 <Class name="BL.PPS.TBX.DocRugwandhouderLijst">
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Property name="Batch">
 <Type>APPS.Halux.common.Batch</Type>
@@ -30,6 +30,7 @@
 <Method name="GeefDocument">
 <ReturnType>APPS.common.Print.Kolommen.Document</ReturnType>
 <Implementation><![CDATA[
+	#dim mdCacheProductIDs As %String = ""
 	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
 	Set Document = ##class(APPS.common.Print.Kolommen.Document).%New("Rugwandhouderlijst","Overzicht rugwandhouderlijst","Lijn:"_..Batch.GeefLijn()_" Batch: "_..Batch.GeefID())
 	Set Houders = ##class(%ArrayOfDataTypes).%New()
@@ -54,6 +55,7 @@
 					Set HouderPRNr = $Piece(^PRBS("BS",PRNr,BouwsteenLabel),"\",1)
 					Set HouderAantal = $Piece(^PRBS("BS",PRNr,BouwsteenLabel),"\",2)
 					Do ..IncrementHouderAantal(HouderPRNr,HouderAantal)
+					Set mdCacheProductIDs(HouderPRNr,PRNr)=""
 				}
 			}
 		}
@@ -66,6 +68,9 @@
 		Set HouderAantal = HouderIterator.Next()
 		Set HouderPRNr = HouderIterator.Key()
 		Set HouderProduct = ##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()
 		If (HouderProduct.IsLVormig()) Set Hoogte = Hoogte_".22"
@@ -93,6 +98,19 @@
 	Do ..Houders.SetAt(..Houders.GetAt(HouderPRNr)+Aantal,HouderPRNr)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefDebugInfo">
+<FormalSpec><![CDATA[HouderProductID:DOM.common.ProductID,&mdCacheProductIDs:%String]]></FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim LijstMoederProductIDs As %String = ""
+	#dim MoederProductID As %String =""
+	For { Set MoederProductID=$O(mdCacheProductIDs(HouderProductID,MoederProductID))  Quit:(MoederProductID="")
+		Set LijstMoederProductIDs = $$$IfLength(LijstMoederProductIDs,"",",")_MoederProductID
+	}
+	Quit " (BatchID "_..Batch.GeefID()_", TBX-productIDs "_LijstMoederProductIDs_")"
+]]></Implementation>
+</Method>
 </Class>