Index: DOM/PM/TBXProduct/impl/TBXBodemImpl.cls.xml
===================================================================
diff -u -r2474 -r2495
--- DOM/PM/TBXProduct/impl/TBXBodemImpl.cls.xml	(.../TBXBodemImpl.cls.xml)	(revision 2474)
+++ DOM/PM/TBXProduct/impl/TBXBodemImpl.cls.xml	(.../TBXBodemImpl.cls.xml)	(revision 2495)
@@ -16,5 +16,17 @@
 <Implementation><![CDATA[	Quit ..GeefDiepte()-$S($E($LG(..GeefKleuren()),3)="S":22,1:24)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefBreedte">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",..GeefPRNr(),"BreedteIntern"))
+]]></Implementation>
+</Method>
+
+<Method name="HeeftInkeping">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",..GeefPRNr(),"Opties")) = "INKEPING"
+]]></Implementation>
+</Method>
 </Class>
 </Export>