Index: AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter.cls.xml
===================================================================
diff -u -r34850 -r34852
--- AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 34850)
+++ AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 34852)
@@ -46,7 +46,7 @@
 	Set AxUnpaidInvoice.Due = Factuur.GeefVervaldatum()
 	Set AxUnpaidInvoice.CashDiscCode = "20EOM3%"
 	Set AxUnpaidInvoice.DateCashDisc = "20/07/2016"
-	Set AxUnpaidInvoice.CashDiscAmount = "-370"
+	Set AxUnpaidInvoice.CashDiscAmount = -1 * Factuur.GeefBedragKortingContant()
 	Set AxUnpaidInvoice.DocumentNum = Factuur.GeefID()
 	Set AxUnpaidInvoice.DocumentDate = "15/06/2016"
 	Set AxUnpaidInvoice.PaymMode = "SEPA"
Index: vhUnitTest/AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter/Test.cls.xml
===================================================================
diff -u -r34850 -r34852
--- vhUnitTest/AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 34850)
+++ vhUnitTest/AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 34852)
@@ -30,6 +30,7 @@
 	Do ..Factuur.IndienMethodCall("GeefID").DanReturn("1000")
 	Do ..Factuur.IndienMethodCall("GeefTotaalInclusiefBTW").DanReturn(0)
 	Do ..Factuur.IndienMethodCall("GeefVervaldatum").DanReturn("01/08/2016")
+	Do ..Factuur.IndienMethodCall("GeefBedragKortingContant").DanReturn(0)
 ]]></Implementation>
 </Method>
 
@@ -217,6 +218,17 @@
 	Do $$$AssertEquals(..AxUnpaidInvoice.LineNum,"9876","")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: CashDiscAmount">
+<Implementation><![CDATA[
+	Do ..Factuur.IndienMethodCall("GeefBedragKortingContant").DanReturn(42)
+	
+	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
+	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur, 9876)
+	
+	Do $$$AssertEquals(..AxUnpaidInvoice.CashDiscAmount,"-42","")
+]]></Implementation>
+</Method>
 </Class>