IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

[register] eradicate gnc-default-currency from .scm code

Browse Source 
The conditional (null? (xaccSplitGetAccount split)) can never be true
because it was already handled previously in code via the
"(null? (xaccSplitGetAccount (car splits))" cond clause to handle bug
639082
This commit is contained in:
Christopher Lam
2019-06-24 16:12:27 +08:00
parent 0c5f79a58f
commit 72bdaeefcd
1 changed files with 2 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
gnucash/report/standard-reports/register.scm
View File

@@ -180,9 +180,7 @@
(let* ((row-contents '())
(parent (xaccSplitGetParent split))
(account (xaccSplitGetAccount split))
(currency (if (not (null? account))
(xaccAccountGetCommodity account)
(gnc-default-currency)))
(currency (xaccAccountGetCommodity account))
(trans-currency (xaccTransGetCurrency parent))
(damount (xaccSplitGetAmount split))
(split-value (gnc:make-gnc-monetary currency damount)))
@@ -545,9 +543,7 @@
credit-amount credit-value)
(let* ((parent (xaccSplitGetParent split))
(account (xaccSplitGetAccount split))
(split-currency (if (not (null? account))
(xaccAccountGetCommodity account)
(gnc-default-currency)))
(split-currency (xaccAccountGetCommodity account))
(split-amount (xaccSplitGetAmount split))
(trans-currency (xaccTransGetCurrency parent))
(split-value (xaccSplitGetValue split)))