Index: AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevKortingDixfConverter.cls.xml
===================================================================
diff -u -r42792 -r44903
--- AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevKortingDixfConverter.cls.xml	(.../AankoopPrijzenLevKortingDixfConverter.cls.xml)	(revision 42792)
+++ AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevKortingDixfConverter.cls.xml	(.../AankoopPrijzenLevKortingDixfConverter.cls.xml)	(revision 44903)
@@ -99,7 +99,7 @@
 	Set ..AxProduct.AccountCode = "Tabel"
 	Set ..AxProduct.AccountRelation = ..BepaalAccountRelation(Product,Vestiging)
 	Set ..AxProduct.Amount = ""
-	Set ..AxProduct.Currency = "EUR"
+	Set ..AxProduct.Currency = Product.Prijs.MuntAankoop.MuntCode
 	Set ..AxProduct.FromDate = "01/01/2017"
 	Set ..AxProduct.InventDimId = "AllBlank"
 	Set ..AxProduct.ItemCode = "Tabel"
Index: AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevDixfConverter.cls.xml
===================================================================
diff -u -r42792 -r44903
--- AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevDixfConverter.cls.xml	(.../AankoopPrijzenLevDixfConverter.cls.xml)	(revision 42792)
+++ AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevDixfConverter.cls.xml	(.../AankoopPrijzenLevDixfConverter.cls.xml)	(revision 44903)
@@ -99,7 +99,7 @@
 	Set ..AxProduct.AccountCode = "Tabel"
 	Set ..AxProduct.AccountRelation = ..BepaalAccountRelation(Product,Vestiging)
 	Set ..AxProduct.Amount = ..BepaalAmount(Product)
-	Set ..AxProduct.Currency = "EUR"
+	Set ..AxProduct.Currency = Product.Prijs.MuntAankoop.MuntCode
 	Set ..AxProduct.FromDate = "01/01/2017"
 	Set ..AxProduct.InventDimId = "AllBlank"
 	Set ..AxProduct.ItemCode = "Tabel"
Index: vhUnitTest/AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevKortingDixfConverter/Test.cls.xml
===================================================================
diff -u -r42655 -r44903
--- vhUnitTest/AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevKortingDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 42655)
+++ vhUnitTest/AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevKortingDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 44903)
@@ -37,7 +37,6 @@
 	
 	Do $$$AssertEquals(ConvertedProduct.AccountCode ,"Tabel")
 	Do $$$AssertEquals(ConvertedProduct.Amount ,"")
-	Do $$$AssertEquals(ConvertedProduct.Currency  ,"EUR")
 	Do $$$AssertEquals(ConvertedProduct.FromDate  ,"01/01/2017")
 	Do $$$AssertEquals(ConvertedProduct.InventDimId  ,"AllBlank")
 	Do $$$AssertEquals(ConvertedProduct.ItemCode  ,"Tabel")
@@ -55,6 +54,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Currency is van de property MuntAankoop van een Product zijnde van objecttype Res punt Munt de MuntCode property">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	Set MuntAankoop = ##class(Res.Munt).%New()
+	Set MuntAankoop.MuntCode = "USD"
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterProduct()
+	Set AxProduct.Prijs.MuntAankoop = MuntAankoop
+	
+	#dim Converter As AX.Uitgaand.PM.AankoopPrijzenLev.impl.AankoopPrijzenLevKortingDixfConverter = ..GeefConverter()
+	
+	#dim ConvertedProduct As AXdixf.AankoopPrijzenLev.AankoopPrijzenLev = Converter.Convert(AxProduct,"1",Firma)
+	
+	Do $$$AssertEquals(ConvertedProduct.Currency,"USD")
+]]></Implementation>
+</Method>
+
 <Method name="GeefTeConverterProduct">
 <Private>1</Private>
 <ReturnType>AX.Uitgaand.PM.Product.impl.Product</ReturnType>
Index: vhUnitTest/AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevDixfConverter/Test.cls.xml
===================================================================
diff -u -r42654 -r44903
--- vhUnitTest/AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 42654)
+++ vhUnitTest/AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 44903)
@@ -36,7 +36,6 @@
 	#dim ConvertedProduct As AXdixf.AankoopPrijzenLev.AankoopPrijzenLev = Converter.Convert(AxProduct,"1",Firma)
 	
 	Do $$$AssertEquals(ConvertedProduct.AccountCode ,"Tabel")
-	Do $$$AssertEquals(ConvertedProduct.Currency  ,"EUR")
 	Do $$$AssertEquals(ConvertedProduct.FromDate  ,"01/01/2017")
 	Do $$$AssertEquals(ConvertedProduct.InventDimId  ,"AllBlank")
 	Do $$$AssertEquals(ConvertedProduct.ItemCode  ,"Tabel")
@@ -54,6 +53,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Currency is van de property MuntAankoop van een Product zijnde van objecttype Res punt Munt de MuntCode property">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	Set MuntAankoop = ##class(Res.Munt).%New()
+	Set MuntAankoop.MuntCode = "USD"
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterProduct()
+	Set AxProduct.Prijs.MuntAankoop = MuntAankoop
+	
+	#dim Converter As AX.Uitgaand.PM.AankoopPrijzenLev.impl.AankoopPrijzenLevDixfConverter = ..GeefConverter()
+	
+	#dim ConvertedProduct As AXdixf.AankoopPrijzenLev.AankoopPrijzenLev = Converter.Convert(AxProduct,"1",Firma)
+	
+	Do $$$AssertEquals(ConvertedProduct.Currency,"USD")
+]]></Implementation>
+</Method>
+
 <Method name="Test: Als GrootteOrde &apos;E&apos; is dan moet PriceUnit &apos;1&apos; zijn">
 <Implementation><![CDATA[
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()