Index: APPS/PM/Maatwerk/impl/KenmerkNaarDtoVisitor.cls.xml
===================================================================
diff -u -r45806 -r50619
--- APPS/PM/Maatwerk/impl/KenmerkNaarDtoVisitor.cls.xml	(.../KenmerkNaarDtoVisitor.cls.xml)	(revision 45806)
+++ APPS/PM/Maatwerk/impl/KenmerkNaarDtoVisitor.cls.xml	(.../KenmerkNaarDtoVisitor.cls.xml)	(revision 50619)
@@ -20,6 +20,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="KenmerkenConverterTax">
+<Type>APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.Tax</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>LbxConverter:APPS.PM.Maatwerk.impl.LBX.KenmerkNaarDtoConverter=""</FormalSpec>
 <Private>1</Private>
@@ -29,6 +34,7 @@
 <Implementation><![CDATA[
 	Set ..IngegevenKenmerkenTypeAPI = ##class(DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New()
 	Set ..LbxConverter = $$$Inject(LbxConverter, ##class(APPS.PM.Maatwerk.impl.LBX.KenmerkNaarDtoConverter).%New())
+	Set ..KenmerkenConverterTax = ##class(APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.Tax).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -47,43 +53,11 @@
 </Method>
 
 <Method name="VerwerkTAORKenmerken">
-<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<FormalSpec>TaxKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(APPS.PM.Maatwerk.dto.TAORKenmerken).%New()
-	Set ..IngegevenKenmerken = IngegevenKenmerken
+	Set ..IngegevenKenmerken = ..KenmerkenConverterTax.Converteer(TaxKenmerken)
 	
-	Set IngegevenKenmerken.IsBinnenbreedte = TAORKenmerken.GUIKenmerken.IsBinnenbreedte
-	Set IngegevenKenmerken.CorpusWandDikte = TAORKenmerken.GUIKenmerken.WandDikte
-	Set IngegevenKenmerken.Draagkracht = TAORKenmerken.Draagkracht
-	Set IngegevenKenmerken.IsBinnenlade = TAORKenmerken.IsBinnenlade
-	Set IngegevenKenmerken.KantenbandKleur = TAORKenmerken.KantenbandKleur
-	Set IngegevenKenmerken.SpecialType = TAORKenmerken.SpecialType
-	Set IngegevenKenmerken.LadeDiepte = TAORKenmerken.LadeDiepte
-	Set IngegevenKenmerken.LadeHoogte = TAORKenmerken.LadeHoogte
-	Set IngegevenKenmerken.LadeBinnenKleur = TAORKenmerken.LadeBinnenKleur
-	Set IngegevenKenmerken.LadeKleur = TAORKenmerken.LadeKleur
-	Set IngegevenKenmerken.HeeftOpvullijstLinks = TAORKenmerken.HeeftOpvullijstLinks
-	Set IngegevenKenmerken.HeeftOpvullijstRechts = TAORKenmerken.HeeftOpvullijstRechts
-	Set IngegevenKenmerken.HeeftZijstabilisering = TAORKenmerken.HeeftZijstabilisering
-	Set IngegevenKenmerken.HeeftDiepteVerstelling = TAORKenmerken.HeeftDiepteVerstelling
-	Set IngegevenKenmerken.GeleiderTechnologie = TAORKenmerken.GeleiderTechnologie
-	Set IngegevenKenmerken.GlijderType = TAORKenmerken.GlijderType
-	Set IngegevenKenmerken.Uittrekbaarheid = TAORKenmerken.Uittrekbaarheid
-	Set IngegevenKenmerken.VerpakkingType = TAORKenmerken.VerpakkingType
-	Set IngegevenKenmerken.FrontBevestiging = TAORKenmerken.FrontBevestiging
-	Set IngegevenKenmerken.OpvullijstKleur = TAORKenmerken.OpvullijstKleur
-	Set IngegevenKenmerken.LosseComponent = TAORKenmerken.ProductieWijze
-	Set IngegevenKenmerken.FrontEindkapKleur = TAORKenmerken.AfdekkapBovenKleur
-	Set IngegevenKenmerken.BodemKleur = TAORKenmerken.BodemKleur
-	Set IngegevenKenmerken.KoppelingType = TAORKenmerken.KoppelingType
-	Set IngegevenKenmerken.CorpusBreedte = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeCorpusBreedteBepaler().GeefCorpusBreedte(TAORKenmerken)
-	Set IngegevenKenmerken.RugHoogte = TAORKenmerken.RugHoogte
-
-	Do ..WisCorpusBreedteIndienNul(TAORKenmerken, .IngegevenKenmerken)
-	
-	Do ..KopieerNietMeeleveren(TAORKenmerken,.IngegevenKenmerken)
-	
 	Quit $$$OK
 ]]></Implementation>
 </Method>