Index: AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter.cls.xml =================================================================== diff -u -r34848 -r34849 --- AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter.cls.xml (.../DixfConverter.cls.xml) (revision 34848) +++ AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter.cls.xml (.../DixfConverter.cls.xml) (revision 34849) @@ -43,7 +43,7 @@ Set AxUnpaidInvoice.CurrencyCode = "EUR" Set AxUnpaidInvoice.ExchRate = "1" Set AxUnpaidInvoice.Invoice = Factuur.GeefID() - Set AxUnpaidInvoice.Due = "31/07/2016" + Set AxUnpaidInvoice.Due = Factuur.GeefVervaldatum() Set AxUnpaidInvoice.CashDiscCode = "20EOM3%" Set AxUnpaidInvoice.DateCashDisc = "20/07/2016" Set AxUnpaidInvoice.CashDiscAmount = "-370" Index: vhUnitTest/AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter/Test.cls.xml =================================================================== diff -u -r34848 -r34849 --- vhUnitTest/AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter/Test.cls.xml (.../Test.cls.xml) (revision 34848) +++ vhUnitTest/AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter/Test.cls.xml (.../Test.cls.xml) (revision 34849) @@ -29,6 +29,7 @@ Set ..Factuur = ##class(vhTest.Mock.DOM.BKH.VerkoopFactuur).%New() Do ..Factuur.IndienMethodCall("GeefID").DanReturn("1000") Do ..Factuur.IndienMethodCall("GeefTotaalInclusiefBTW").DanReturn(0) + Do ..Factuur.IndienMethodCall("GeefVervaldatum").DanReturn("01/08/2016") ]]> @@ -187,6 +188,17 @@ Do $$$AssertEquals(..AxUnpaidInvoice.AmountCurDebit,"0","") ]]> + + + +