Index: vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/TestBtwUitsplitsing.cls.xml
===================================================================
diff -u -r35241 -r35733
--- vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/TestBtwUitsplitsing.cls.xml (.../TestBtwUitsplitsing.cls.xml) (revision 35241)
+++ vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/TestBtwUitsplitsing.cls.xml (.../TestBtwUitsplitsing.cls.xml) (revision 35733)
@@ -100,11 +100,11 @@
#dim JournalTable As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = ..GetJournalTable(VerkoopFactuur)
do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(1).AmountCurCredit,"924.82")
- do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(1).CashDiscAmount,"15.34")
+ do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(1).CashDiscAmount,"-15.34")
do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).LedgerDimension.GetAt(1).Account,"703110")
do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).ADUCorrectedTaxAmount,"157.84")
- do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).CashDiscAmount,"-15.34")
+ do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).CashDiscAmount,"15.34")
do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).AmountCurDebit,"924.82")
]]>
Index: AXimpl/AifMessage/Converter/SalesInvoiceConverter.cls.xml
===================================================================
diff -u -r35615 -r35733
--- AXimpl/AifMessage/Converter/SalesInvoiceConverter.cls.xml (.../SalesInvoiceConverter.cls.xml) (revision 35615)
+++ AXimpl/AifMessage/Converter/SalesInvoiceConverter.cls.xml (.../SalesInvoiceConverter.cls.xml) (revision 35733)
@@ -125,6 +125,8 @@
set Transaction.ADUCorrectedTaxAmount = ..Formatter.FormatNumber( Factuur.GeefTotaalBTW() / ..TotaalGoederenInclusiefPort * BoekingBedrag ,2)
set Transaction.CashDiscAmount = ..Formatter.FormatNumber( -1 * ( Factuur.GeefTotaalKortingKontant() / ..TotaalGoederenInclusiefPort * BoekingBedrag ) ,2)
+
+ set:(Factuur.GeefFactuurCode()=##class(DOM.VKP.Factuur.enu.FactuurType).Creditnota()) Transaction.CashDiscAmount = Transaction.CashDiscAmount * -1
set:(Factuur.GeefFactuurCode()=##class(DOM.VKP.Factuur.enu.FactuurType).Factuur()) Transaction.AmountCurCredit = ..Formatter.FormatNumber(BoekingBedrag + Transaction.ADUCorrectedTaxAmount ,2)
set:(Factuur.GeefFactuurCode()=##class(DOM.VKP.Factuur.enu.FactuurType).Creditnota()) Transaction.AmountCurDebit = ..Formatter.FormatNumber(-1 * (BoekingBedrag - Transaction.ADUCorrectedTaxAmount) ,2)
@@ -151,9 +153,11 @@
set Transaction.PaymMode = $$$If(Factuur.GeefKlant().GeefBetalingwijze()=##class(DOM.VKP.enu.Betalingwijze).Incasso(),"SEPA-DD","OVER")
set Transaction.CashDiscAmount = ..Formatter.FormatNumber(Factuur.GeefTotaalKortingKontant(),2)
+ set:(Factuur.GeefFactuurCode()=##class(DOM.VKP.Factuur.enu.FactuurType).Creditnota()) Transaction.CashDiscAmount = Transaction.CashDiscAmount * -1
set:(Factuur.GeefFactuurCode()=##class(DOM.VKP.Factuur.enu.FactuurType).Factuur()) Transaction.AmountCurDebit = ..Formatter.FormatNumber(Factuur.GeefTotaalTeBetalen(),2)
set:(Factuur.GeefFactuurCode()=##class(DOM.VKP.Factuur.enu.FactuurType).Creditnota()) Transaction.AmountCurCredit = ..Formatter.FormatNumber(Factuur.GeefTotaalTeBetalen(),2)
+
set Transaction.LedgerDimension.GetAt(1).Account = ..Formatter.FormatAccountNumber(Factuur.GeefKlantNr())
set Transaction.LedgerDimension.GetAt(1).DisplayValue = ..Formatter.FormatAccountNumber(Factuur.GeefKlantNr())_" - "_Factuur.GeefKlant().GeefNaam()
Index: vhTestFiles/UnitTests/AX.Uitgaand.common.impl.AifGenerator.Generate/Test/TestCustomer-Create/AIF/Customer/Create/Customer-Create K1234 - VHBE - 20160501_091500.xml
===================================================================
diff -u -r35610 -r35733
--- vhTestFiles/UnitTests/AX.Uitgaand.common.impl.AifGenerator.Generate/Test/TestCustomer-Create/AIF/Customer/Create/Customer-Create K1234 - VHBE - 20160501_091500.xml (.../Customer-Create K1234 - VHBE - 20160501_091500.xml) (revision 35610)
+++ vhTestFiles/UnitTests/AX.Uitgaand.common.impl.AifGenerator.Generate/Test/TestCustomer-Create/AIF/Customer/Create/Customer-Create K1234 - VHBE - 20160501_091500.xml (.../Customer-Create K1234 - VHBE - 20160501_091500.xml) (revision 35733)
@@ -21,6 +21,7 @@
OVER
NET30
BDOM
+ Normal
All
nl-be