Index: vhUnitTest/AX/Uitgaand/PM/ProductVertaling/impl/ProductVertalingDixfConverter/Test.cls.xml
===================================================================
diff -u -r44740 -r44749
--- vhUnitTest/AX/Uitgaand/PM/ProductVertaling/impl/ProductVertalingDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 44740)
+++ vhUnitTest/AX/Uitgaand/PM/ProductVertaling/impl/ProductVertalingDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 44749)
@@ -25,107 +25,115 @@
 
 <Method name="Test: Description geeft de volledige omschrijving volgens meegegeven taal">
 <Implementation><![CDATA[
+	#dim Taal As %String = "N"
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
 	Set AxProduct.Tekst.OmschrijvingN1 = "OmschrijvingN1"
 	Set AxProduct.Tekst.OmschrijvingN22 = "OmschrijvingN22"
 	
 	#dim Converter As AX.Uitgaand.PM.ProductVertaling.impl.ProductVertalingDixfConverter = ..GeefConverter()
 	
-	#dim ConvertedProduct As AXdixf.ProductVertaling.ProductVertaling = Converter.Convert(AxProduct, "N")
+	#dim ConvertedProduct As AXdixf.ProductVertaling.ProductVertaling = Converter.Convert(AxProduct, Taal)
 	
 	Do $$$AssertEquals(ConvertedProduct.Description ,"OmschrijvingN1 OmschrijvingN22")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Description geeft de volledige omschrijving en van een puntkomma wordt een komma gemaakt zodat de csv niet kolommen verwart">
 <Implementation><![CDATA[
+	#dim Taal As %String = "N"
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
 	Set AxProduct.Tekst.OmschrijvingN1 = "Omschrijving;N1"
 	Set AxProduct.Tekst.OmschrijvingN22 = "Omschrijving;N22"
 	
 	#dim Converter As AX.Uitgaand.PM.ProductVertaling.impl.ProductVertalingDixfConverter = ..GeefConverter()
 	
-	#dim ConvertedProduct As AXdixf.ProductVertaling.ProductVertaling = Converter.Convert(AxProduct, "N")
+	#dim ConvertedProduct As AXdixf.ProductVertaling.ProductVertaling = Converter.Convert(AxProduct, Taal)
 	
 	Do $$$AssertEquals(ConvertedProduct.Description ,"Omschrijving,N1 Omschrijving,N22")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: LanguageId geeft de taal notatie volgens de ISO639x1 norm">
+<Method name="Test: LanguageId geeft de taal notatie volgens AXimpl Formatter">
 <Implementation><![CDATA[
+	#dim Taal As %String = "N"
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
 	
 	#dim Converter As AX.Uitgaand.PM.ProductVertaling.impl.ProductVertalingDixfConverter = ..GeefConverter()
 	
-	#dim ConvertedProduct As AXdixf.ProductVertaling.ProductVertaling = Converter.Convert(AxProduct, "N")
+	#dim ConvertedProduct As AXdixf.ProductVertaling.ProductVertaling = Converter.Convert(AxProduct, Taal)
 	
-	Do $$$AssertEquals(ConvertedProduct.LanguageId ,##class(DOM.enu.TaalCodeISO639x1).Nederlands())
+	Do $$$AssertEquals(ConvertedProduct.LanguageId ,##class(AXimpl.Formatter).%New().FormatLanguageId(Taal))
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Name is de KortTekst">
 <Implementation><![CDATA[
+	#dim Taal As %String = "N"
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
 	Set AxProduct.Basis.KortTekst = "KortTekst"
 	
 	#dim Converter As AX.Uitgaand.PM.ProductVertaling.impl.ProductVertalingDixfConverter = ..GeefConverter()
 	
-	#dim ConvertedProduct As AXdixf.ProductVertaling.ProductVertaling = Converter.Convert(AxProduct, "N")
+	#dim ConvertedProduct As AXdixf.ProductVertaling.ProductVertaling = Converter.Convert(AxProduct, Taal)
 	
 	Do $$$AssertEquals(ConvertedProduct.Name ,"KortTekst")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: DisplayProductNumber is het IdentNummer">
 <Implementation><![CDATA[
+	#dim Taal As %String = "N"
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
 	Set AxProduct.Basis.IdentNummer = "IdentNummer"
 	
 	#dim Converter As AX.Uitgaand.PM.ProductVertaling.impl.ProductVertalingDixfConverter = ..GeefConverter()
 	
-	#dim ConvertedProduct As AXdixf.ProductVertaling.ProductVertaling = Converter.Convert(AxProduct, "N")
+	#dim ConvertedProduct As AXdixf.ProductVertaling.ProductVertaling = Converter.Convert(AxProduct, Taal)
 	
 	Do $$$AssertEquals(ConvertedProduct.DisplayProductNumber ,"IdentNummer")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Description in het Frans">
 <Implementation><![CDATA[
+	#dim Taal As %String = "F"
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
 	Set AxProduct.Tekst.OmschrijvingF1 = "OmschrijvingF1"
 	Set AxProduct.Tekst.OmschrijvingF22 = "OmschrijvingF22"
 	
 	#dim Converter As AX.Uitgaand.PM.ProductVertaling.impl.ProductVertalingDixfConverter = ..GeefConverter()
 	
-	#dim ConvertedProduct As AXdixf.ProductVertaling.ProductVertaling = Converter.Convert(AxProduct, "F")
+	#dim ConvertedProduct As AXdixf.ProductVertaling.ProductVertaling = Converter.Convert(AxProduct, Taal)
 	
 	Do $$$AssertEquals(ConvertedProduct.Description ,"OmschrijvingF1 OmschrijvingF22")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Description in het Engels">
 <Implementation><![CDATA[
+	#dim Taal As %String = "E"
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
 	Set AxProduct.Tekst.OmschrijvingE1 = "OmschrijvingE1"
 	Set AxProduct.Tekst.OmschrijvingE22 = "OmschrijvingE22"
 	
 	#dim Converter As AX.Uitgaand.PM.ProductVertaling.impl.ProductVertalingDixfConverter = ..GeefConverter()
 	
-	#dim ConvertedProduct As AXdixf.ProductVertaling.ProductVertaling = Converter.Convert(AxProduct, "E")
+	#dim ConvertedProduct As AXdixf.ProductVertaling.ProductVertaling = Converter.Convert(AxProduct, Taal)
 	
 	Do $$$AssertEquals(ConvertedProduct.Description ,"OmschrijvingE1 OmschrijvingE22")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Description in het Duits">
 <Implementation><![CDATA[
+	#dim Taal As %String = "D"
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
 	Set AxProduct.Tekst.OmschrijvingD1 = "OmschrijvingD1"
 	Set AxProduct.Tekst.OmschrijvingD22 = "OmschrijvingD22"
 	
 	#dim Converter As AX.Uitgaand.PM.ProductVertaling.impl.ProductVertalingDixfConverter = ..GeefConverter()
 	
-	#dim ConvertedProduct As AXdixf.ProductVertaling.ProductVertaling = Converter.Convert(AxProduct, "D")
+	#dim ConvertedProduct As AXdixf.ProductVertaling.ProductVertaling = Converter.Convert(AxProduct, Taal)
 	
 	Do $$$AssertEquals(ConvertedProduct.Description ,"OmschrijvingD1 OmschrijvingD22")
 ]]></Implementation>
Index: AX/Uitgaand/PM/ProductVertaling/impl/ProductVertalingDixfConverter.cls.xml
===================================================================
diff -u -r44740 -r44749
--- AX/Uitgaand/PM/ProductVertaling/impl/ProductVertalingDixfConverter.cls.xml	(.../ProductVertalingDixfConverter.cls.xml)	(revision 44740)
+++ AX/Uitgaand/PM/ProductVertaling/impl/ProductVertalingDixfConverter.cls.xml	(.../ProductVertalingDixfConverter.cls.xml)	(revision 44749)
@@ -3,14 +3,31 @@
 <Class name="AX.Uitgaand.PM.ProductVertaling.impl.ProductVertalingDixfConverter">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="AXimplFormatter">
+<Type>AXimpl.Formatter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..AXimplFormatter = ##class(AXimpl.Formatter).%New()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="Convert">
 <FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product,Taal:%String</FormalSpec>
 <ReturnType>AXdixf.ProductVertaling.ProductVertaling</ReturnType>
 <Implementation><![CDATA[
 	Set AxProduct = ##class(AXdixf.ProductVertaling.ProductVertaling).%New()
 	
 	Set AxProduct.Description = $Translate(Product.Tekst.GetOmschrijving(Taal," "),";",",")
-	Set AxProduct.LanguageId = ##class(AXimpl.Admin.DOM.enu.Taal).ToISO639x1(Taal)
+	Set AxProduct.LanguageId = ..AXimplFormatter.FormatLanguageId(Taal)
 	Set AxProduct.Name = Product.Basis.KortTekst
 	Set AxProduct.DisplayProductNumber = Product.Basis.IdentNummer