mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
[trial-balance] use gnc:commodity-collector-get-negated
This commit is contained in:
parent
0c9c9c2594
commit
f88c54bb50
@ -152,9 +152,7 @@
|
|||||||
(amt (and sum (gnc:gnc-monetary-amount sum)))
|
(amt (and sum (gnc:gnc-monetary-amount sum)))
|
||||||
(neg? (and amt (negative? amt)))
|
(neg? (and amt (negative? amt)))
|
||||||
(bal (if neg?
|
(bal (if neg?
|
||||||
(let ((bal (gnc:make-commodity-collector)))
|
(gnc:commodity-collector-get-negated signed-balance)
|
||||||
(bal 'minusmerge signed-balance #f)
|
|
||||||
bal)
|
|
||||||
signed-balance))
|
signed-balance))
|
||||||
(bal-sum (gnc:sum-collector-commodity
|
(bal-sum (gnc:sum-collector-commodity
|
||||||
bal
|
bal
|
||||||
|
Loading…
Reference in New Issue
Block a user