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 @@
]]>
-
+