Index: APPS/PM/Maatwerk/impl/KenmerkNaarDtoVisitor.cls.xml
===================================================================
diff -u -r38082 -r39414
--- APPS/PM/Maatwerk/impl/KenmerkNaarDtoVisitor.cls.xml	(.../KenmerkNaarDtoVisitor.cls.xml)	(revision 38082)
+++ APPS/PM/Maatwerk/impl/KenmerkNaarDtoVisitor.cls.xml	(.../KenmerkNaarDtoVisitor.cls.xml)	(revision 39414)
@@ -64,13 +64,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkTBXKenmerken">
+<FormalSpec>TBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</FormalSpec>
+<Implementation><![CDATA[
+	Set IngegevenKenmerken = ##class(APPS.PM.Maatwerk.dto.TBXKenmerken).%New()
+	Set ..IngegevenKenmerken = IngegevenKenmerken
+	
+	Set IngegevenKenmerken.LegacyKenmerken = $$ConstructClone^vhLib.Class(TBXKenmerken.LegacyKenmerken,"APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy")
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkBasis">
 <FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	
+	Quit:Kenmerken.GeefVariant()["TBX"
+	
 	Set Iterator = ##class(TECH.ListIterator).%New(Kenmerken.ExplicietGekozenKenmerken)
 	While (Iterator.HasNext()) {
 		#dim KenmerkNaam As %String = Iterator.Next()
+		Do ##class(Tools.Wlip).%New(127).String(KenmerkNaam)
 		if '..IngegevenKenmerken.ExplicietGekozenKenmerken.Find(KenmerkNaam) {
 			Do ..IngegevenKenmerken.ExplicietGekozenKenmerken.Insert(KenmerkNaam)
 		}
Index: APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml
===================================================================
diff -u -r38703 -r39414
--- APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml	(.../DtoNaarKenmerkVisitor.cls.xml)	(revision 38703)
+++ APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml	(.../DtoNaarKenmerkVisitor.cls.xml)	(revision 39414)
@@ -122,6 +122,8 @@
 	Set ..IngegevenKenmerken.ZijwandVerhogingKleur = TBXKenmerken.ZijwandVerhogingKleur
 	Set ..IngegevenKenmerken.ZijwandVerhogingAantal = TBXKenmerken.ZijwandVerhogingAantal
 	Set ..IngegevenKenmerken.LadeKleur = TBXKenmerken.LadeKleur
+	
+	Set ..IngegevenKenmerken.LegacyKenmerken = $$ConstructClone^vhLib.Class(TBXKenmerken.LegacyKenmerken,"DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy")
 
 	Quit $$$OK
 ]]></Implementation>