Index: vhUnitTest/AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter/Test.cls.xml =================================================================== diff -u -r35116 -r35142 --- vhUnitTest/AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter/Test.cls.xml (.../Test.cls.xml) (revision 35116) +++ vhUnitTest/AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter/Test.cls.xml (.../Test.cls.xml) (revision 35142) @@ -109,12 +109,14 @@ ]]> - + Index: AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter.cls.xml =================================================================== diff -u -r35116 -r35142 --- AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter.cls.xml (.../DixfConverter.cls.xml) (revision 35116) +++ AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter.cls.xml (.../DixfConverter.cls.xml) (revision 35142) @@ -62,7 +62,7 @@ Set AxUnpaidInvoice.JournalName = "OP" Set AxUnpaidInvoice.Voucher = "OP16"_##class(TECH.StringUtils).AlignRight(LineNum,0,6) Set AxUnpaidInvoice.LineNum = LineNum - Set AxUnpaidInvoice.TransDate = "30/06/2016" + Set AxUnpaidInvoice.TransDate = ##class(TECH.Context).Instance().GeefFormatAPI().FormatDate(OpenstaandeVerkoopFactuur.GeefFactuurDatum(),"DD/MM/JJJJ") Set AxUnpaidInvoice.Company = ..FirmaBepaler.GeefInitialen() Set AxUnpaidInvoice.AccountType = "1" Set AxUnpaidInvoice.LedgerDimension = ##class(AX.common.impl.ConvertAdminToAX).ConvertCustomerID(KlantID) Index: AX/Uitgaand/VKP/OpenstaandeLeverancierFactuur/impl/DixfConverter.cls.xml =================================================================== diff -u -r35105 -r35142 --- AX/Uitgaand/VKP/OpenstaandeLeverancierFactuur/impl/DixfConverter.cls.xml (.../DixfConverter.cls.xml) (revision 35105) +++ AX/Uitgaand/VKP/OpenstaandeLeverancierFactuur/impl/DixfConverter.cls.xml (.../DixfConverter.cls.xml) (revision 35142) @@ -62,7 +62,7 @@ Set AxUnpaidInvoice.JournalName = "OP" Set AxUnpaidInvoice.Voucher = "OP16"_##class(TECH.StringUtils).AlignRight(LineNum,0,4) Set AxUnpaidInvoice.LineNum = LineNum - Set AxUnpaidInvoice.TransDate = "30/06/2016" + Set AxUnpaidInvoice.TransDate = ##class(TECH.Context).Instance().GeefFormatAPI().FormatDate(OpenstaandeAankoopFactuur.GeefFactuurDatum(),"DD/MM/JJJJ") Set AxUnpaidInvoice.Company = ..FirmaBepaler.GeefInitialen() Set AxUnpaidInvoice.AccountType = "2" Set AxUnpaidInvoice.LedgerDimension = ##class(AX.common.impl.ConvertAdminToAX).ConvertCustomerID(LeverancierID) Index: vhUnitTest/AX/Uitgaand/VKP/OpenstaandeLeverancierFactuur/impl/DixfConverter/Test.cls.xml =================================================================== diff -u -r35105 -r35142 --- vhUnitTest/AX/Uitgaand/VKP/OpenstaandeLeverancierFactuur/impl/DixfConverter/Test.cls.xml (.../Test.cls.xml) (revision 35105) +++ vhUnitTest/AX/Uitgaand/VKP/OpenstaandeLeverancierFactuur/impl/DixfConverter/Test.cls.xml (.../Test.cls.xml) (revision 35142) @@ -120,12 +120,14 @@ ]]> - +