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

[cash-flow] use collector arithmetic

Browse Source
This commit is contained in:
Christopher Lam 2019-10-01 01:21:20 +08:00
parent 34bb47e23f
commit 8f1c82e875
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gnucash/report/standard-reports/cash-flow.scm
View File

@ -196,8 +196,6 @@
(let* ((tree-depth (if (equal? display-depth 'all)
(accounts-get-children-depth accounts)
display-depth))
(money-diff-collector (gnc:make-commodity-collector))
(account-disp-list
(map
(lambda (account)
@ -253,8 +251,6 @@
account-full-name<?))
(money-out-alist (cdr (assq 'money-out-alist result)))
(money-out-collector (cdr (assq 'money-out-collector result))))
(money-diff-collector 'merge money-in-collector #f)
(money-diff-collector 'minusmerge money-out-collector #f)
(gnc:html-document-add-object!
doc
@ -318,7 +314,8 @@
(gnc:make-html-table-header-cell/markup
"total-number-cell"
(gnc:sum-collector-commodity
money-diff-collector report-currency exchange-fn))))
(gnc:collector- money-in-collector money-out-collector)
report-currency exchange-fn))))
(gnc:html-document-add-object! doc table)