Index: DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml
===================================================================
diff -u -r2474 -r2500
--- DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml	(.../TBXLadeImpl.cls.xml)	(revision 2474)
+++ DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml	(.../TBXLadeImpl.cls.xml)	(revision 2500)
@@ -526,7 +526,7 @@
 
 <Method name="GeefRugHoogteMM">
 <ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.PM.TBXProduct.impl.TBXRugImpl).GeefRugHoogteMM(..GeefRugHoogte())
+<Implementation><![CDATA[	Quit $Case(..GeefRugHoogte(),"N":69,"M":84,"K":116,"B":135,"C":167,"D":199,:"")
 ]]></Implementation>
 </Method>