Index: zTryout/WV/PM/Test.cls.xml
===================================================================
diff -u -r57561 -r61232
--- zTryout/WV/PM/Test.cls.xml	(.../Test.cls.xml)	(revision 57561)
+++ zTryout/WV/PM/Test.cls.xml	(.../Test.cls.xml)	(revision 61232)
@@ -4,6 +4,48 @@
 <IncludeCode>vhLib.Macro,Prod.Product</IncludeCode>
 <Super>TECH.RegisteredObject</Super>
 
+<Method name="DisplayKenmerken">
+<Description>
+Do ##class(zTryout.WV.PM.Test).%New().DisplayKenmerken(id)</Description>
+<FormalSpec>ProductId:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim TeConverterenProduct As DOM.PM.impl.MaatwerkProductImpl = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(ProductId)
+
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ""
+	
+	#dim Variant As DOM.PM.enu.Variant = TeConverterenProduct.GeefVariant()
+	If ##class(TECH.StringUtils).Equals(Variant, ##class(DOM.PM.enu.Variant).LegraboxPure(), ##class(DOM.PM.enu.Variant).Taorbox() ) {
+		Set IngegevenKenmerken = TeConverterenProduct.GeefIngegevenKenmerken()
+	}
+	ElseIf $$$StartsWith(Variant,"TBX") {
+		Set IngegevenKenmerken = ..GeefKenmerkenTBX(ProductId)
+		;Write !," **** "_$$ObjToText^vhLib(GeconverteerdeKenmerken.LegacyKenmerken)
+	}
+	Else {
+		Write !!,"Product is "_Variant_" --> unimplemented",!
+	}
+	
+	Write !," **** "_$$ObjToText^vhLib(IngegevenKenmerken)
+	Write !," **** "_$$ObjToText^vhLib(IngegevenKenmerken.GUIKenmerken)
+]]></Implementation>
+</Method>
+
+<Method name="GeefKenmerkenTBX">
+<Description>
+d ##class(zTryout.WV.PM.Test).%New().GeefKenmerkenTBX(id)</Description>
+<FormalSpec>ProductId:%String</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim TeConverterenProduct As DOM.PM.TBXProduct.impl.TBXLadeImpl = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(ProductId)
+	
+	Set GeconverteerdeKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
+	Set KenmerkConvertor = ##class(APPS.PM.Maatwerk.TBX.Conversie.KenmerkConvertor).%New()
+	Do KenmerkConvertor.Converteer(TeConverterenProduct,,.GeconverteerdeKenmerken)
+	
+	Quit GeconverteerdeKenmerken
+]]></Implementation>
+</Method>
+
 <Method name="ConverteerTBX">
 <Description>
 d ##class(zTryout.WV.PM.Test).ConverteerTBX()</Description>