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

[net-charts] remove doubles. send pure numbers to charts.

Browse Source
This commit is contained in:
Christopher Lam 2018-10-02 07:27:27 +08:00
parent b1f03ecd9e
commit 23d2ed708e
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gnucash/report/standard-reports/net-charts.scm
View File

@ -258,9 +258,6 @@
(warn "incompatible currencies in monetary+: " a b))) (warn "incompatible currencies in monetary+: " a b)))
(warn "wrong arguments for monetary+: " a b))) (warn "wrong arguments for monetary+: " a b)))
(define (monetary->double monetary)
(gnc-numeric-to-double (gnc:gnc-monetary-amount monetary)))
(define (split->date s) (define (split->date s)
(xaccTransGetDate (xaccSplitGetParent s))) (xaccTransGetDate (xaccSplitGetParent s)))
@ -469,11 +466,11 @@
;; Add the data ;; Add the data
(when show-sep? (when show-sep?
(add-column! (map monetary->double minuend-balances)) (add-column! (map gnc:gnc-monetary-amount minuend-balances))
(add-column! (map - (map monetary->double subtrahend-balances)))) (add-column! (map - (map gnc:gnc-monetary-amount subtrahend-balances))))
(if show-net? (if show-net?
(add-column! (map monetary->double difference-balances))) (add-column! (map gnc:gnc-monetary-amount difference-balances)))
;; Legend labels, colors ;; Legend labels, colors
((if linechart? ((if linechart?