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