Index: vhUnitTest/AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter/Test.cls.xml
===================================================================
diff -u -r34969 -r35035
--- vhUnitTest/AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 34969)
+++ vhUnitTest/AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 35035)
@@ -303,15 +303,37 @@
 	Do Klant.IndienMethodCall("GeefKortingContantPercentage").DanReturn("4")
 	Do Klant.IndienMethodCall("GeefKortingContantTermijn").DanReturn("20DEM")
 	Set VerkoopAPI = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
-	Do VerkoopAPI.IndienMethodCall("GeefKlant",$$$ElkeWaarde).DanReturn(Klant)
+	Do VerkoopAPI.IndienMethodCall("GeefKlant",$$$ElkeWaarde).DanReturn(Klant)	
+	Do ..OpenstaandeFactuur.IndienMethodCall("GeefKortingKontantInMuntKlant").DanReturn(0)
+	Set OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	Do OrderAPI.IndienMethodCall("GeefFactuur",$$$ElkeWaarde).DanReturn(..Factuur)
 	
-	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New(,VerkoopAPI)
+	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New(,VerkoopAPI,OrderAPI)
 	Set ..AxUnpaidInvoice = Converter.Convert(..KlantID, ..OpenstaandeFactuur)
 	
 	Do $$$AssertEquals(..AxUnpaidInvoice.CashDiscCode,"20EOM4%","")
 ]]></Implementation>
 </Method>
 
+<Method name="Test: CashDiscCode default 08D02% indien vervallen">
+<Implementation><![CDATA[
+	#dim Klant As vhTest.Utils.DOM.VKP.VanHoeckeKlant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
+	Do Klant.IndienMethodCall("GeefKortingContantPercentage").DanReturn("")
+	Do Klant.IndienMethodCall("GeefKortingContantTermijn").DanReturn("")
+	Set VerkoopAPI = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
+	Do VerkoopAPI.IndienMethodCall("GeefKlant",$$$ElkeWaarde).DanReturn(Klant)
+	
+	Do ..OpenstaandeFactuur.IndienMethodCall("GeefKortingKontantInMuntKlant").DanReturn(1)
+	Set OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	Do OrderAPI.IndienMethodCall("GeefFactuur",$$$ElkeWaarde).DanReturn(..Factuur)
+	
+	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New(,VerkoopAPI,OrderAPI)
+	Set ..AxUnpaidInvoice = Converter.Convert(..KlantID, ..OpenstaandeFactuur)
+	
+	Do $$$AssertEquals(..AxUnpaidInvoice.CashDiscCode,"08D2%","")
+]]></Implementation>
+</Method>
+
 <Method name="Test: DateCashDisc">
 <Implementation><![CDATA[
 	Set OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
Index: AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter.cls.xml
===================================================================
diff -u -r34969 -r35035
--- AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 34969)
+++ AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 35035)
@@ -87,6 +87,7 @@
 		Set AxUnpaidInvoice.DateCashDisc = ##class(TECH.Context).Instance().GeefFormatAPI().FormatDate(..Factuur.GeefVervalDatumKortingContant(),"DD/MM/JJJJ")
 		}
 	Set AxUnpaidInvoice.CashDiscAmount = OpenstaandeVerkoopFactuur.GeefKortingKontantInMuntKlant()
+	Set:((AxUnpaidInvoice.CashDiscCode="")&&(OpenstaandeVerkoopFactuur.GeefKortingKontantInMuntKlant()'=0)) AxUnpaidInvoice.CashDiscCode="08D2%"
 	Set AxUnpaidInvoice.DocumentNum = OpenstaandeVerkoopFactuur.GeefFactuurID()
 	Set AxUnpaidInvoice.DocumentDate = ##class(TECH.Context).Instance().GeefFormatAPI().FormatDate(OpenstaandeVerkoopFactuur.GeefFactuurDatum(),"DD/MM/JJJJ")
 	Set AxUnpaidInvoice.PaymMode = ..Formatter.ConvertPaymMode(..Klant.GeefBetalingwijze())