Index: vhUnitTest/APPS/EC/impl/ConfiguratorService/KenmerkDomeinPostProcessor/VerwerkKenmerkMogelijkheden/TestTAORLadeKleurWaarden.cls.xml
===================================================================
diff -u -r29059 -r31193
--- vhUnitTest/APPS/EC/impl/ConfiguratorService/KenmerkDomeinPostProcessor/VerwerkKenmerkMogelijkheden/TestTAORLadeKleurWaarden.cls.xml	(.../TestTAORLadeKleurWaarden.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/EC/impl/ConfiguratorService/KenmerkDomeinPostProcessor/VerwerkKenmerkMogelijkheden/TestTAORLadeKleurWaarden.cls.xml	(.../TestTAORLadeKleurWaarden.cls.xml)	(revision 31193)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.EC.impl.ConfiguratorService.KenmerkDomeinPostProcessor.VerwerkKenmerkMogelijkheden.TestTAORLadeKleurWaarden">
-<Super>vhUnitTest.TestCase</Super>
+<Super>vhUnitTest.DOM.PM.Maatwerk.TAX.Base</Super>
 
 <Property name="Kenmerken">
 <Type>APPS.PM.Maatwerk.dto.IngegevenKenmerken</Type>
@@ -26,76 +26,83 @@
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
-	Do ##super(aTestName)
-	Set ..Kenmerken = ##class(APPS.PM.Maatwerk.dto.TAORKenmerken).%New()
-	Set ..KenmerkMogelijkheden = ##class(APPS.PM.Maatwerk.dto.KenmerkMogelijkheden).%New()
-	Set ..Personality = ##class(vhTest.Dummy.DOM.common.Personality).%New()
-	Set ..Klant = ##class(vhTest.Dummy.DOM.VKP.VanHoeckeKlant).%New()
-	Do ..InitLadeKleuren()
+	do ##super(aTestName)
+	
+	set ..Kenmerken = ##class(APPS.PM.Maatwerk.dto.TAORKenmerken).%New()
+	set ..KenmerkMogelijkheden = ##class(APPS.PM.Maatwerk.dto.KenmerkMogelijkheden).%New()
+	set ..Personality = ##class(vhTest.Dummy.DOM.common.Personality).%New()
+	set ..Klant = ##class(vhTest.Dummy.DOM.VKP.VanHoeckeKlant).%New()
+
+	do ..InitLadeKleuren()
 ]]></Implementation>
 </Method>
 
 <Method name="TestLadeKleuren">
 <Implementation><![CDATA[
 	#dim VerwachteWaarden As List of DOM.PM.enu.TAORLadeKleur = ##class(%ListOfDataTypes).%New()
-	Do VerwachteWaarden.Insert(##class(DOM.PM.enu.TAORLadeKleur).NatuurEikenhout())
-	Do VerwachteWaarden.Insert(##class(DOM.PM.enu.TAORLadeKleur).NatuurNotenhout())
-	Do VerwachteWaarden.Insert(##class(DOM.PM.enu.TAORLadeKleur).ZwartIngekleurdYaya())
-	Do VerwachteWaarden.Insert(##class(DOM.PM.enu.TAORLadeKleur).BardolinoEik())
-	Do VerwachteWaarden.Insert(##class(DOM.PM.enu.TAORLadeKleur).NebraskaEikenhout())
-	Do VerwachteWaarden.Insert(##class(DOM.PM.enu.TAORLadeKleur).TennesseeNoot())
-	Do VerwachteWaarden.Insert(##class(DOM.PM.enu.TAORLadeKleur).Zwart())
-	Do VerwachteWaarden.Insert(##class(DOM.PM.enu.TAORLadeKleur).Wit())
 	
-	Do ..Assert(VerwachteWaarden,VerwachteWaarden)
+	do VerwachteWaarden.Insert(..Enum.LadeKleur.NatuurEikenhout)
+	do VerwachteWaarden.Insert(..Enum.LadeKleur.NatuurNotenhout)
+	do VerwachteWaarden.Insert(..Enum.LadeKleur.ZwartIngekleurdYaya)
+	do VerwachteWaarden.Insert(..Enum.LadeKleur.BardolinoEik)
+	do VerwachteWaarden.Insert(..Enum.LadeKleur.NebraskaEikenhout)
+	do VerwachteWaarden.Insert(..Enum.LadeKleur.TennesseeNoot)
+	do VerwachteWaarden.Insert(..Enum.LadeKleur.Zwart)
+	do VerwachteWaarden.Insert(..Enum.LadeKleur.Wit)
+	
+	do ..Assert(VerwachteWaarden, VerwachteWaarden)
 ]]></Implementation>
 </Method>
 
-<Method name="TestTAXBodemKleuren">
+<Method name="TestBodemKleuren">
 <Implementation><![CDATA[
-	#dim VerwachteWaarden As List of DOM.PM.enu.TAORLadeKleur = ##class(%ListOfDataTypes).%New()
-	Do VerwachteWaarden.Insert(##class(DOM.PM.enu.TAORLadeKleur).NatuurEikenhout())
-	Do VerwachteWaarden.Insert(##class(DOM.PM.enu.TAORLadeKleur).NatuurNotenhout())
-	Do VerwachteWaarden.Insert(##class(DOM.PM.enu.TAORLadeKleur).ZwartIngekleurdYaya())
-	Do VerwachteWaarden.Insert(##class(DOM.PM.enu.TAORLadeKleur).BardolinoEik())
-	Do VerwachteWaarden.Insert(##class(DOM.PM.enu.TAORLadeKleur).NebraskaEikenhout())
-	Do VerwachteWaarden.Insert(##class(DOM.PM.enu.TAORLadeKleur).TennesseeNoot())
-	Do VerwachteWaarden.Insert(##class(DOM.PM.enu.TAORLadeKleur).Zwart())
-	Do VerwachteWaarden.Insert(##class(DOM.PM.enu.TAORLadeKleur).Wit())
+	#dim VerwachteWaarden As List of DOM.PM.enu.TAORBodemKleur = ##class(%ListOfDataTypes).%New()
 	
-	Do ..Assert(VerwachteWaarden,VerwachteWaarden)
+	do VerwachteWaarden.Insert(..Enum.BodemKleur.NatuurEikenhout)
+	do VerwachteWaarden.Insert(..Enum.BodemKleur.NatuurNotenhout)
+	do VerwachteWaarden.Insert(..Enum.BodemKleur.ZwartIngekleurdYaya)
+	do VerwachteWaarden.Insert(..Enum.BodemKleur.BardolinoEik)
+	do VerwachteWaarden.Insert(..Enum.BodemKleur.NebraskaEikenhout)
+	do VerwachteWaarden.Insert(..Enum.BodemKleur.TennesseeNoot)
+	do VerwachteWaarden.Insert(..Enum.BodemKleur.Zwart)
+	do VerwachteWaarden.Insert(..Enum.BodemKleur.Wit)
+
+	do ..Assert(VerwachteWaarden, VerwachteWaarden)
 ]]></Implementation>
 </Method>
 
 <Method name="InitLadeKleuren">
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set WaardenLijst = ##class(APPS.PM.Maatwerk.dto.KenmerkWaardenLijst).%New()
-	Set WaardenLijst.Waarden = ##class(DOM.PM.enu.TAORLadeKleur).ValueList()
-	Do ..KenmerkMogelijkheden.MogelijkeWaarden.SetAt(WaardenLijst.%ConstructClone(), "LadeKleur")
-	Do ..KenmerkMogelijkheden.MogelijkeWaarden.SetAt(WaardenLijst.%ConstructClone(), "BodemKleur")
+	#dim WaardenLijst As APPS.PM.Maatwerk.dto.KenmerkWaardenLijst = ##class(APPS.PM.Maatwerk.dto.KenmerkWaardenLijst).%New()
+	
+	set WaardenLijst.Waarden = ##class(DOM.PM.enu.TAORLadeKleur).ValueList()
+	
+	do ..KenmerkMogelijkheden.MogelijkeWaarden.SetAt(WaardenLijst.%ConstructClone(), ..Enum.KenmerkNaam.LadeKleur)
+	do ..KenmerkMogelijkheden.MogelijkeWaarden.SetAt(WaardenLijst.%ConstructClone(), ..Enum.KenmerkNaam.BodemKleur)
 ]]></Implementation>
 </Method>
 
 <Method name="Assert">
 <FormalSpec>VerwachteLadeKleuren:%ListOfDataTypes,VerwachteBodemKleuren:%ListOfDataTypes</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set KenmerkDomeinPostProcessor = ##class(APPS.EC.impl.ConfiguratorService.InterneKenmerkDomeinPostProcessor).%New()
-	Do KenmerkDomeinPostProcessor.VerwerkKenmerkMogelijkheden(..Kenmerken, ..KenmerkMogelijkheden, ..Klant, ..Personality)
+	#dim KenmerkDomeinPostProcessor As APPS.EC.impl.ConfiguratorService.KenmerkDomeinPostProcessor= ##class(APPS.EC.impl.ConfiguratorService.InterneKenmerkDomeinPostProcessor).%New()
 	
-	Do ..AssertKleuren(VerwachteLadeKleuren, "LadeKleur")
-	Do ..AssertKleuren(VerwachteBodemKleuren, "BodemKleur")
+	do KenmerkDomeinPostProcessor.VerwerkKenmerkMogelijkheden(..Kenmerken, ..KenmerkMogelijkheden, ..Klant, ..Personality)
+	
+	do ..AssertKleuren(VerwachteLadeKleuren, ..Enum.KenmerkNaam.LadeKleur)
+	do ..AssertKleuren(VerwachteBodemKleuren, ..Enum.KenmerkNaam.BodemKleur)
 ]]></Implementation>
 </Method>
 
 <Method name="AssertKleuren">
-<FormalSpec>VerwachteKleuren:%ListOfDataTypes,IngegevenKenmerk:TECH.String</FormalSpec>
+<FormalSpec>VerwachteKleuren:%ListOfDataTypes,KenmerkNaam:TECH.String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	If VerwachteKleuren.Count() > 0 {
-		#dim Kleuren As List of %String = ..KenmerkMogelijkheden.MogelijkeWaarden.GetAt(IngegevenKenmerk).Waarden
-		Do $$$AssertEqualsList(Kleuren,VerwachteKleuren, IngegevenKenmerk)
+	if (VerwachteKleuren.Count() > 0) {
+		#dim Kleuren As List of %String = ..KenmerkMogelijkheden.MogelijkeWaarden.GetAt(KenmerkNaam).Waarden
+		do $$$AssertEqualsList(Kleuren, VerwachteKleuren, KenmerkNaam)
 	}
 ]]></Implementation>
 </Method>