Index: DOM/PM/TBXProduct/impl/TBXBodemImpl.cls.xml
===================================================================
diff -u -r2166 -r2474
--- DOM/PM/TBXProduct/impl/TBXBodemImpl.cls.xml	(.../TBXBodemImpl.cls.xml)	(revision 2166)
+++ DOM/PM/TBXProduct/impl/TBXBodemImpl.cls.xml	(.../TBXBodemImpl.cls.xml)	(revision 2474)
@@ -11,16 +11,10 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefBreedte">
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	Quit $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",..GeefPRNr(),"BreedteIntern"))
+<Method name="GeefExacteDiepte">
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefDiepte()-$S($E($LG(..GeefKleuren()),3)="S":22,1:24)
 ]]></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>
Index: DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml
===================================================================
diff -u -r2463 -r2474
--- DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml	(.../TBXLadeImpl.cls.xml)	(revision 2463)
+++ DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml	(.../TBXLadeImpl.cls.xml)	(revision 2474)
@@ -526,7 +526,7 @@
 
 <Method name="GeefRugHoogteMM">
 <ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	Quit $Case(..GeefRugHoogte(),"N":69,"M":84,"K":116,"B":135,"C":167,"D":199,:"")
+<Implementation><![CDATA[	Quit ##class(DOM.PM.TBXProduct.impl.TBXRugImpl).GeefRugHoogteMM(..GeefRugHoogte())
 ]]></Implementation>
 </Method>
 
Index: DOM/PM/TBXProduct/impl/TBXRugImpl.cls.xml
===================================================================
diff -u -r2463 -r2474
--- DOM/PM/TBXProduct/impl/TBXRugImpl.cls.xml	(.../TBXRugImpl.cls.xml)	(revision 2463)
+++ DOM/PM/TBXProduct/impl/TBXRugImpl.cls.xml	(.../TBXRugImpl.cls.xml)	(revision 2474)
@@ -13,6 +13,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefExacteHoogte">
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[
+	Set RugCode=..GeefHoogte()
+	Quit $Case(RugCode,"N":69,"M":84,"K":116,"B":135,"C":167,"D":199,:"")
+]]></Implementation>
+</Method>
 <Method name="GeefKleur">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",..GeefPRNr(),"Kleur"))
Index: DOM/PM/TBXProduct/impl/TBXSpaanplaatImpl.cls.xml
===================================================================
diff -u -r1922 -r2474
--- DOM/PM/TBXProduct/impl/TBXSpaanplaatImpl.cls.xml	(.../TBXSpaanplaatImpl.cls.xml)	(revision 1922)
+++ DOM/PM/TBXProduct/impl/TBXSpaanplaatImpl.cls.xml	(.../TBXSpaanplaatImpl.cls.xml)	(revision 2474)
@@ -50,5 +50,13 @@
 <Implementation><![CDATA[$S($L(KleurCode)=3:$E(KleurCode,1,2),1:KleurCode)
 ]]></Implementation>
 </Method>
+
+<Method name="IsStrook">
+<Description>
+Om in te korten</Description>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA[##class(Prod.Kenmerk.DataDefinitie).Get("TB",..GeefPRNr(),"BasisType")["STRK"
+]]></Implementation>
+</Method>
 </Class>
 </Export>