Index: AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter.cls.xml =================================================================== diff -u -r34852 -r34854 --- AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter.cls.xml (.../DixfConverter.cls.xml) (revision 34852) +++ AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter.cls.xml (.../DixfConverter.cls.xml) (revision 34854) @@ -48,7 +48,7 @@ Set AxUnpaidInvoice.DateCashDisc = "20/07/2016" Set AxUnpaidInvoice.CashDiscAmount = -1 * Factuur.GeefBedragKortingContant() Set AxUnpaidInvoice.DocumentNum = Factuur.GeefID() - Set AxUnpaidInvoice.DocumentDate = "15/06/2016" + Set AxUnpaidInvoice.DocumentDate = Factuur.GeefDatum() Set AxUnpaidInvoice.PaymMode = "SEPA" Quit AxUnpaidInvoice Index: vhUnitTest/AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter/Test.cls.xml =================================================================== diff -u -r34852 -r34854 --- vhUnitTest/AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter/Test.cls.xml (.../Test.cls.xml) (revision 34852) +++ vhUnitTest/AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter/Test.cls.xml (.../Test.cls.xml) (revision 34854) @@ -31,6 +31,7 @@ Do ..Factuur.IndienMethodCall("GeefTotaalInclusiefBTW").DanReturn(0) Do ..Factuur.IndienMethodCall("GeefVervaldatum").DanReturn("01/08/2016") Do ..Factuur.IndienMethodCall("GeefBedragKortingContant").DanReturn(0) + Do ..Factuur.IndienMethodCall("GeefDatum").DanReturn("01/01/2016") ]]> @@ -229,6 +230,17 @@ Do $$$AssertEquals(..AxUnpaidInvoice.CashDiscAmount,"-42","") ]]> + + + +