Index: AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml
===================================================================
diff -u -r34309 -r34311
--- AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 34309)
+++ AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 34311)
@@ -38,6 +38,7 @@
 	Set AxLeverancier.Email = Leverancier.GeefEmail()
 	Set:Leverancier.GeefTelefax()'="" AxLeverancier.TeleFaxName = "Fax"
 	Set AxLeverancier.TeleFax = $$$Trim(Leverancier.GeefTelefax())
+	Set AxLeverancier.Currency = Leverancier.GeefMuntkode()
 	
 	Quit AxLeverancier
 ]]></Implementation>
Index: AXdixf/Vendor/Vendor.cls.xml
===================================================================
diff -u -r34309 -r34311
--- AXdixf/Vendor/Vendor.cls.xml	(.../Vendor.cls.xml)	(revision 34309)
+++ AXdixf/Vendor/Vendor.cls.xml	(.../Vendor.cls.xml)	(revision 34311)
@@ -62,6 +62,10 @@
 <Property name="TeleFax">
 <Type>%String</Type>
 </Property>
+
+<Property name="Currency">
+<Type>%String</Type>
+</Property>
 </Class>
 
 
Index: vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml
===================================================================
diff -u -r34310 -r34311
--- vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml	(.../Convert.cls.xml)	(revision 34310)
+++ vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml	(.../Convert.cls.xml)	(revision 34311)
@@ -33,6 +33,7 @@
 	Do ..Leverancier.IndienMethodCall("GeefTelefoon2").DanReturn(" 03/765.43.21")
 	Do ..Leverancier.IndienMethodCall("GeefEmail").DanReturn("everyone@example.com")
 	Do ..Leverancier.IndienMethodCall("GeefTelefax").DanReturn(" 03/112.101")
+	Do ..Leverancier.IndienMethodCall("GeefMuntkode").DanReturn("EUR")
 ]]></Implementation>
 </Method>
 
@@ -337,6 +338,17 @@
 	Do $$$AssertEquals(..AxLeverancier.TeleFax,"")
 ]]></Implementation>
 </Method>
+
+<Method name="Test Currency">
+<Implementation><![CDATA[
+	Do ..Leverancier.IndienMethodCall("GeefMuntkode").DanReturn("EUR")
+
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+		
+	Do $$$AssertEquals(..AxLeverancier.Currency,"EUR")
+]]></Implementation>
+</Method>
 </Class>