Index: AXdixf/Vendor/Vendor.cls.xml
===================================================================
diff -u -r34401 -r34402
--- AXdixf/Vendor/Vendor.cls.xml	(.../Vendor.cls.xml)	(revision 34401)
+++ AXdixf/Vendor/Vendor.cls.xml	(.../Vendor.cls.xml)	(revision 34402)
@@ -82,6 +82,10 @@
 <Property name="PaymMode">
 <Type>%String</Type>
 </Property>
+
+<Property name="UseCashDisc">
+<Type>%String</Type>
+</Property>
 </Class>
 
 
Index: vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml
===================================================================
diff -u -r34401 -r34402
--- vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml	(.../Convert.cls.xml)	(revision 34401)
+++ vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml	(.../Convert.cls.xml)	(revision 34402)
@@ -37,6 +37,8 @@
 	Do ..Leverancier.IndienMethodCall("GeefBTWnr").DanReturn("BE0402775276")
 	Do ..Leverancier.IndienMethodCall("GeefBetaalwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Betalingstermijn())
 	Do ..Leverancier.IndienMethodCall("GeefBetaalTermijn").DanReturn("30D")
+	Do ..Leverancier.IndienMethodCall("GeefKortingKontant").DanReturn(0)
+	Do ..Leverancier.IndienMethodCall("GeefTermijnKortingKontant").DanReturn("")
 ]]></Implementation>
 </Method>
 
@@ -541,6 +543,54 @@
 	Do $$$AssertEquals(..AxLeverancier.PaymMode,"OVER")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: KortingContant variaties - Geen korting contant CashDisc is leeg">
+<Implementation><![CDATA[
+	Do ..Leverancier.IndienMethodCall("GeefKortingKontant").DanReturn(0)
+	Do ..Leverancier.IndienMethodCall("GeefTermijnKortingKontant").DanReturn("")
+	
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	
+	Do $$$AssertEquals(..AxLeverancier.UseCashDisc,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: KortingContant variaties - Korting contant en geen termijn">
+<Implementation><![CDATA[
+	Do ..Leverancier.IndienMethodCall("GeefKortingKontant").DanReturn(1)
+	Do ..Leverancier.IndienMethodCall("GeefTermijnKortingKontant").DanReturn("")
+	
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	
+	Do $$$AssertEquals(..AxLeverancier.UseCashDisc,"08D1%")
+]]></Implementation>
+</Method>
+
+<Method name="Test: KortingContant variaties - Korting contant en termijn">
+<Implementation><![CDATA[
+	Do ..Leverancier.IndienMethodCall("GeefKortingKontant").DanReturn(3)
+	Do ..Leverancier.IndienMethodCall("GeefTermijnKortingKontant").DanReturn("10D")
+	
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	
+	Do $$$AssertEquals(..AxLeverancier.UseCashDisc,"10D3%")
+]]></Implementation>
+</Method>
+
+<Method name="Test: KortingContant variaties - Korting termijn is 0D defaulten naar 8D">
+<Implementation><![CDATA[
+	Do ..Leverancier.IndienMethodCall("GeefKortingKontant").DanReturn(3)
+	Do ..Leverancier.IndienMethodCall("GeefTermijnKortingKontant").DanReturn("0D")
+	
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	
+	Do $$$AssertEquals(..AxLeverancier.UseCashDisc,"08D3%")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml
===================================================================
diff -u -r34401 -r34402
--- AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 34401)
+++ AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 34402)
@@ -42,7 +42,8 @@
 	Set AxLeverancier.EnterpriseNumber = ..Formatter.FormatEnterpriseNumber(Leverancier.GeefBTWnr())
 	Set AxLeverancier.VATNum = ..Formatter.FormatVATNum(Leverancier.GeefBTWnr())
 	Set AxLeverancier.PaymTermId = ..Formatter.ConvertPaymTermId(Leverancier.GeefBetaalwijze(),Leverancier.GeefBetaalTermijn())
-	Set AxLeverancier.PaymMode = ..Formatter.ConvertPaymMode(Leverancier.GeefBetaalwijze())	
+	Set AxLeverancier.PaymMode = ..Formatter.ConvertPaymMode(Leverancier.GeefBetaalwijze())
+	Set AxLeverancier.UseCashDisc = ..Formatter.FormatCashDiscount(Leverancier.GeefKortingKontant(),Leverancier.GeefTermijnKortingKontant())	
 	
 	Quit AxLeverancier
 ]]></Implementation>