Index: AXimpl/AifMessage/Converter/SalesInvoiceConverter.cls.xml
===================================================================
diff -u -r35733 -r35768
--- AXimpl/AifMessage/Converter/SalesInvoiceConverter.cls.xml (.../SalesInvoiceConverter.cls.xml) (revision 35733)
+++ AXimpl/AifMessage/Converter/SalesInvoiceConverter.cls.xml (.../SalesInvoiceConverter.cls.xml) (revision 35768)
@@ -123,8 +123,8 @@
#dim BoekingBedrag As %String = $get(..BtwUitsplitsing(BoekhoudkundigeRekening,"TotaalNettoExclBtw"))
- set Transaction.ADUCorrectedTaxAmount = ..Formatter.FormatNumber( Factuur.GeefTotaalBTW() / ..TotaalGoederenInclusiefPort * BoekingBedrag ,2)
- set Transaction.CashDiscAmount = ..Formatter.FormatNumber( -1 * ( Factuur.GeefTotaalKortingKontant() / ..TotaalGoederenInclusiefPort * BoekingBedrag ) ,2)
+ set Transaction.ADUCorrectedTaxAmount = ..Formatter.FormatNumber( $$$If($$$Not(..TotaalGoederenInclusiefPort=0), Factuur.GeefTotaalBTW() / ..TotaalGoederenInclusiefPort * BoekingBedrag , 0 ) ,2)
+ set Transaction.CashDiscAmount = ..Formatter.FormatNumber( -1 * ( $$$If($$$Not(..TotaalGoederenInclusiefPort=0), Factuur.GeefTotaalKortingKontant() / ..TotaalGoederenInclusiefPort * BoekingBedrag , 0 )) ,2)
set:(Factuur.GeefFactuurCode()=##class(DOM.VKP.Factuur.enu.FactuurType).Creditnota()) Transaction.CashDiscAmount = Transaction.CashDiscAmount * -1
@@ -158,7 +158,6 @@
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: vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/TestBtwUitsplitsing.cls.xml
===================================================================
diff -u -r35733 -r35768
--- vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/TestBtwUitsplitsing.cls.xml (.../TestBtwUitsplitsing.cls.xml) (revision 35733)
+++ vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/TestBtwUitsplitsing.cls.xml (.../TestBtwUitsplitsing.cls.xml) (revision 35768)
@@ -36,6 +36,30 @@
]]>
+
+
+
+
+
+
+
+