Index: WSimpl/AX/CalculatedProduct/VariantDescriptionBepaler.cls.xml
===================================================================
diff -u -r48761 -r49575
--- WSimpl/AX/CalculatedProduct/VariantDescriptionBepaler.cls.xml	(.../VariantDescriptionBepaler.cls.xml)	(revision 48761)
+++ WSimpl/AX/CalculatedProduct/VariantDescriptionBepaler.cls.xml	(.../VariantDescriptionBepaler.cls.xml)	(revision 49575)
@@ -8,26 +8,22 @@
 <Private>1</Private>
 </Property>
 
-<Property name="KleurBepaler">
-<Type>WSimpl.AX.CalculatedProduct.VariantDescriptionBepaler.KleurBepaler</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="Vertaler">
 <Type>DOM.common.Transl.Vertaler</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Formatter:AXimpl.Formatter="",KleurBepaler:WSimpl.AX.CalculatedProduct.VariantDescriptionBepaler.KleurBepaler="",Vertaler:DOM.common.Transl.Vertaler=""</FormalSpec>
+<FormalSpec>Formatter:AXimpl.Formatter="",Vertaler:DOM.common.Transl.Vertaler=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
+	#dim VertaalGroepen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(##class(DOM.common.Transl.enu.VertaalGroep).TechnischeTermen())
+	
 	Set ..Formatter = $$$Inject(Formatter, ##class(AXimpl.Formatter).%New())
-	Set ..KleurBepaler = $$$Inject(KleurBepaler, ##class(WSimpl.AX.CalculatedProduct.VariantDescriptionBepaler.KleurBepaler).%New())
-	Set ..Vertaler = $$$Inject(Vertaler, ##class(DOM.common.Transl.impl.Vertaler).%New(##class(DOM.common.Transl.enu.VertaalGroep).TechnischeTermen()))
+	Set ..Vertaler = $$$Inject(Vertaler, ##class(DOM.common.Transl.impl.Vertaler).%New(VertaalGroepen))
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -56,7 +52,7 @@
 	#dim VariantDescription As AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityVariantDescription = ##class(AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityVariantDescription).%New()
 	#dim LanguageId As %String = ..Formatter.FormatLanguageId(Taal)
 	#dim KleurLabel As %String = ..Vertaler.GeefVertaling("Kleur", Taal)
-	#dim Kleur As %String = ..KleurBepaler.GeefKleur(Product, Taal)
+	#dim Kleur As %String = Product.GeefKleurOmschrijving(Taal)
 	#dim Description As %String = Product.GeefLangtekst(Taal, $$$False)
 	
 	If $$$Not(Kleur = "") {
Index: vhUnitTest/WSimpl/AX/CalculatedProduct/VariantDescriptionBepaler/Test.cls.xml
===================================================================
diff -u -r48761 -r49575
--- vhUnitTest/WSimpl/AX/CalculatedProduct/VariantDescriptionBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 48761)
+++ vhUnitTest/WSimpl/AX/CalculatedProduct/VariantDescriptionBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 49575)
@@ -3,6 +3,11 @@
 <Class name="vhUnitTest.WSimpl.AX.CalculatedProduct.VariantDescriptionBepaler.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<Property name="TaalEnum">
+<Type>DOM.enu.Taal.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="Test: Korttekst en Langtekst voor 4 talen worden opgehaald ">
 <Implementation><![CDATA[
 	#dim RandomKorttekst As %String = "RandomKorttekst"
@@ -15,24 +20,22 @@
 	
 	#dim ProductMock As vhTest.Mock.DOM.PM.Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
 	Do ProductMock.VerwachtMethodCall("GeefKorttekst").DanReturn(RandomKorttekst)
-	Do ProductMock.VerwachtMethodCall("GeefLangtekst", ##class(DOM.enu.Taal).Nederlands(), $$$False).DanReturn(RandomVertalingNederlands)
-	Do ProductMock.VerwachtMethodCall("GeefLangtekst", ##class(DOM.enu.Taal).Frans(), $$$False).DanReturn(RandomVertalingFrans)
-	Do ProductMock.VerwachtMethodCall("GeefLangtekst", ##class(DOM.enu.Taal).Engels(), $$$False).DanReturn(RandomVertalingEngels)
-	Do ProductMock.VerwachtMethodCall("GeefLangtekst", ##class(DOM.enu.Taal).Duits(), $$$False).DanReturn(RandomVertalingDuits)
+	Do ProductMock.VerwachtMethodCall("GeefLangtekst", ..TaalEnum.Nederlands, $$$False).DanReturn(RandomVertalingNederlands)
+	Do ProductMock.VerwachtMethodCall("GeefLangtekst", ..TaalEnum.Frans, $$$False).DanReturn(RandomVertalingFrans)
+	Do ProductMock.VerwachtMethodCall("GeefLangtekst", ..TaalEnum.Engels, $$$False).DanReturn(RandomVertalingEngels)
+	Do ProductMock.VerwachtMethodCall("GeefLangtekst", ..TaalEnum.Duits, $$$False).DanReturn(RandomVertalingDuits)
+	Do ProductMock.VerwachtMethodCall("GeefKleurOmschrijving", ..TaalEnum.Nederlands).DanReturn(RandomKleur)
+	Do ProductMock.VerwachtMethodCall("GeefKleurOmschrijving", ..TaalEnum.Frans).DanReturn(RandomKleur)
+	Do ProductMock.VerwachtMethodCall("GeefKleurOmschrijving", ..TaalEnum.Engels).DanReturn(RandomKleur)
+	Do ProductMock.VerwachtMethodCall("GeefKleurOmschrijving", ..TaalEnum.Duits).DanReturn(RandomKleur)
 	
-	#dim KleurBepalerMock As vhTest.Mock.WSimpl.AX.CalculatedProduct.VariantDescriptionBepaler.KleurBepaler = ##class(vhTest.Mock.WSimpl.AX.CalculatedProduct.VariantDescriptionBepaler.KleurBepaler).%New()
-	Do KleurBepalerMock.VerwachtMethodCall("GeefKleur", ProductMock, ##class(DOM.enu.Taal).Nederlands()).DanReturn(RandomKleur)
-	Do KleurBepalerMock.VerwachtMethodCall("GeefKleur", ProductMock, ##class(DOM.enu.Taal).Frans()).DanReturn(RandomKleur)
-	Do KleurBepalerMock.VerwachtMethodCall("GeefKleur", ProductMock, ##class(DOM.enu.Taal).Engels()).DanReturn(RandomKleur)
-	Do KleurBepalerMock.VerwachtMethodCall("GeefKleur", ProductMock, ##class(DOM.enu.Taal).Duits()).DanReturn(RandomKleur)
-	
 	#dim VertalerMock As vhTest.Mock.DOM.common.Transl.Vertaler = ##class(vhTest.Mock.DOM.common.Transl.Vertaler).%New()
-	Do VertalerMock.VerwachtMethodCall("GeefVertaling", "Kleur", ##class(DOM.enu.Taal).Nederlands(), $$$False).DanReturn(RandomKleurLabel)
-	Do VertalerMock.VerwachtMethodCall("GeefVertaling", "Kleur", ##class(DOM.enu.Taal).Frans(), $$$False).DanReturn(RandomKleurLabel)
-	Do VertalerMock.VerwachtMethodCall("GeefVertaling", "Kleur", ##class(DOM.enu.Taal).Engels(), $$$False).DanReturn(RandomKleurLabel)
-	Do VertalerMock.VerwachtMethodCall("GeefVertaling", "Kleur", ##class(DOM.enu.Taal).Duits(), $$$False).DanReturn(RandomKleurLabel)
+	Do VertalerMock.VerwachtMethodCall("GeefVertaling", "Kleur", ..TaalEnum.Nederlands, $$$False).DanReturn(RandomKleurLabel)
+	Do VertalerMock.VerwachtMethodCall("GeefVertaling", "Kleur", ..TaalEnum.Frans, $$$False).DanReturn(RandomKleurLabel)
+	Do VertalerMock.VerwachtMethodCall("GeefVertaling", "Kleur", ..TaalEnum.Engels, $$$False).DanReturn(RandomKleurLabel)
+	Do VertalerMock.VerwachtMethodCall("GeefVertaling", "Kleur", ..TaalEnum.Duits, $$$False).DanReturn(RandomKleurLabel)
 
-	#dim VariantDescriptionBepaler As WSimpl.AX.CalculatedProduct.VariantDescriptionBepaler = ##class(WSimpl.AX.CalculatedProduct.VariantDescriptionBepaler).%New("", KleurBepalerMock, VertalerMock)
+	#dim VariantDescriptionBepaler As WSimpl.AX.CalculatedProduct.VariantDescriptionBepaler = ##class(WSimpl.AX.CalculatedProduct.VariantDescriptionBepaler).%New("", VertalerMock)
 	#dim VariantDescriptionList As %ListOfObjects = VariantDescriptionBepaler.Bepaal(ProductMock, "RandomItemId")
 	
 	Do $$$AssertEquals(VariantDescriptionList.Count(), 4)
@@ -44,7 +47,6 @@
 	Do ..AssertVariantDescription(VariantDescriptionList.GetAt(4), RandomKorttekst, "de", RandomVertalingDuits, VerwachteKleur)
 	
 	Do ProductMock.Verifieer()
-	Do KleurBepalerMock.Verifieer()
 	Do VertalerMock.Verifieer()
 ]]></Implementation>
 </Method>
FishEye: Tag 49575 refers to a dead (removed) revision in file `vhTest/Fake/WSimpl/AX/CalculatedProduct/VariantDescriptionBepaler/KleurBepaler/GenerischeProducten.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 49575 refers to a dead (removed) revision in file `vhTest/Fake/WSimpl/AX/CalculatedProduct/VariantDescriptionBepaler/KleurBepaler.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 49575 refers to a dead (removed) revision in file `vhTest/Mock/WSimpl/AX/CalculatedProduct/VariantDescriptionBepaler/KleurBepaler/GenerischeProducten.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 49575 refers to a dead (removed) revision in file `vhTest/Mock/WSimpl/AX/CalculatedProduct/VariantDescriptionBepaler/KleurBepaler.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 49575 refers to a dead (removed) revision in file `vhUnitTest/WSimpl/AX/CalculatedProduct/VariantDescriptionBepaler/KleurBepaler/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 49575 refers to a dead (removed) revision in file `WSimpl/AX/CalculatedProduct/VariantDescriptionBepaler/KleurBepaler/GenerischeProducten.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 49575 refers to a dead (removed) revision in file `WSimpl/AX/CalculatedProduct/VariantDescriptionBepaler/KleurBepaler.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?