Index: vhUnitTest/AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevCifDixfConverter/Test.cls.xml
===================================================================
diff -u -r45160 -r45166
--- vhUnitTest/AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevCifDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 45160)
+++ vhUnitTest/AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevCifDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 45166)
@@ -42,7 +42,6 @@
 	Do $$$AssertEquals(ConvertedProduct.JournalName  ,"HOJ")
 	Do $$$AssertEquals(ConvertedProduct.JournalNum  ,"00000004")
 	Do $$$AssertEquals(ConvertedProduct.Module  ,"Leverancier")
-	Do $$$AssertEquals(ConvertedProduct.Percent1  ,"")
 	Do $$$AssertEquals(ConvertedProduct.Percent2  ,"")
 	Do $$$AssertEquals(ConvertedProduct.QuantityAmountFrom  ,"")
 	Do $$$AssertEquals(ConvertedProduct.QuantityAmountTo  ,"")
@@ -53,6 +52,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Amount is PPL waarvan het punt omgzet is naar een komma">
+<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()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterProduct()
+	Set AxProduct.Prijs.PPL = "2.52"
+	
+	#dim Converter As AX.Uitgaand.PM.AankoopPrijzenLev.impl.AankoopPrijzenLevCifDixfConverter = ..GeefConverter()
+	
+	#dim ConvertedProduct As AXdixf.AankoopPrijzenLev.AankoopPrijzenLev = Converter.Convert(AxProduct,"1",Firma)
+	
+	Do $$$AssertEquals(ConvertedProduct.Amount,"2,52")
+]]></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()
@@ -74,6 +91,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Percent1 is CifPerc waarvan het punt omgzet is naar een komma">
+<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()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterProduct()
+	Set AxProduct.Prijs.CifPerc = "5.25"
+	
+	#dim Converter As AX.Uitgaand.PM.AankoopPrijzenLev.impl.AankoopPrijzenLevCifDixfConverter = ..GeefConverter()
+	
+	#dim ConvertedProduct As AXdixf.AankoopPrijzenLev.AankoopPrijzenLev = Converter.Convert(AxProduct,"1",Firma)
+	
+	Do $$$AssertEquals(ConvertedProduct.Percent1,"5,25")
+]]></Implementation>
+</Method>
+
 <Method name="GeefTeConverterProduct">
 <Private>1</Private>
 <ReturnType>AX.Uitgaand.PM.Product.impl.Product</ReturnType>
Index: AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevCifDixfConverter.cls.xml
===================================================================
diff -u -r45160 -r45166
--- AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevCifDixfConverter.cls.xml	(.../AankoopPrijzenLevCifDixfConverter.cls.xml)	(revision 45160)
+++ AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevCifDixfConverter.cls.xml	(.../AankoopPrijzenLevCifDixfConverter.cls.xml)	(revision 45166)
@@ -72,7 +72,7 @@
 	
 	Set ..AxProduct.AccountCode = "Tabel"
 	Set ..AxProduct.AccountRelation = ..BepaalAccountRelation(Product,Vestiging)
-	Set ..AxProduct.Amount = ..BepaalAmount(Product)
+	Set ..AxProduct.Amount = $Translate(Product.Prijs.PPL,".",",")
 	Set ..AxProduct.Currency = Product.Prijs.MuntAankoop.MuntCode
 	Set ..AxProduct.FromDate = "01/01/2017"
 	Set ..AxProduct.InventDimId = "AllBlank"
@@ -82,7 +82,7 @@
 	Set ..AxProduct.JournalNum = "00000004"
 	Set ..AxProduct.LineNum = LineNum
 	Set ..AxProduct.Module = "Leverancier"
-	Set ..AxProduct.Percent1 = ""
+	Set ..AxProduct.Percent1 = $Translate(Product.Prijs.CifPerc,".",",")
 	Set ..AxProduct.Percent2 = ""
 	Set ..AxProduct.PriceUnit = ""
 	Set ..AxProduct.QuantityAmountFrom = ""
@@ -118,21 +118,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BepaalAmount">
-<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim Amount As %String
-	#dim PPL As %String = Product.Prijs.PPL
-	
-	Set Amount = PPL
-	Set $Extract(Amount,$Find(Amount,".")-1) = ","
-	
-	Quit Amount
-]]></Implementation>
-</Method>
-
 <Method name="BepaalItemRelation">
 <FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
 <Private>1</Private>