Index: DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml
===================================================================
diff -u -r2022 -r2029
--- DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml	(.../TBXLadeImpl.cls.xml)	(revision 2022)
+++ DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml	(.../TBXLadeImpl.cls.xml)	(revision 2029)
@@ -189,15 +189,13 @@
 
 <Method name="BevatBodem">
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	Set ODSP=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",..GeefPRNr(),"ODSP"))
-	Quit (ODSP="")||(ODSP["B")
+<Implementation><![CDATA[	Quit ..HeeftKey("PRBDHZ.001") || ..HeeftKey("PRBDHO.001")
 ]]></Implementation>
 </Method>
 
 <Method name="BevatVoorgezaagdeBodem">
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",..GeefPRNr(),"MATKL"))?1(1"HA",1"HZ",1"KZ",1"KA")
+<Implementation><![CDATA[	Quit ..BevatBodem() && (..GeefPlaatMateriaal()?1(1"HA",1"HZ",1"KZ",1"KA"))
 ]]></Implementation>
 </Method>
 
@@ -282,9 +280,12 @@
 		{
 			Set Bouwsteen = ##class(DOM.PM.Bouwstenen.Bouwsteen).%OpenId(..GeefPRNr()_"||"_"PRBDHO.001")
 		}
-		Set HalfFabrProduct = Bouwsteen.KindProduct
-		Set HalfFabrProductNummer = HalfFabrProduct.ProductNr
-		Set ..Bodem = ##class(DOM.PM.TBXProduct.impl.TBXBodemImpl).%New(HalfFabrProductNummer)
+		If ($IsObject(Bouwsteen))
+		{
+			Set HalfFabrProduct = Bouwsteen.KindProduct
+			Set HalfFabrProductNummer = HalfFabrProduct.ProductNr
+			Set ..Bodem = ##class(DOM.PM.TBXProduct.impl.TBXBodemImpl).%New(HalfFabrProductNummer)
+		}
 	}
 	Quit ..Bodem
 ]]></Implementation>