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

TP->T64: gnucash/report/standard-reports/net-linechart.scm

Browse Source
This commit is contained in:
Christopher Lam 2017-12-19 23:16:44 +08:00
parent 0aa69a5f54
commit 0a96af20e2
1 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
gnucash/report/standard-reports/net-linechart.scm
View File

@ -188,11 +188,11 @@
(gnc:lookup-option (gnc:report-options report-obj) section name))) (gnc:lookup-option (gnc:report-options report-obj) section name)))
(gnc:report-starting reportname) (gnc:report-starting reportname)
(let* ((to-date-tp (gnc:timepair-end-day-time (let* ((to-date-t64 (gnc:time64-end-day-time
(gnc:date-option-absolute-time (gnc:date-option-absolute-time
(get-option gnc:pagename-general (get-option gnc:pagename-general
optname-to-date)))) optname-to-date))))
(from-date-tp (gnc:timepair-start-day-time (from-date-t64 (gnc:time64-start-day-time
(gnc:date-option-absolute-time (gnc:date-option-absolute-time
(get-option gnc:pagename-general (get-option gnc:pagename-general
optname-from-date)))) optname-from-date))))
@ -221,11 +221,13 @@
(commodity-list #f) (commodity-list #f)
(exchange-fn #f) (exchange-fn #f)
(dates-list ((if inc-exp? gnc:make-date-interval-list (dates-list ((if inc-exp?
gnc:make-date-interval-list
gnc:make-date-list) gnc:make-date-list)
((if inc-exp? gnc:timepair-start-day-time ((if inc-exp?
gnc:timepair-end-day-time) from-date-tp) gnc:time64-start-day-time
(gnc:timepair-end-day-time to-date-tp) gnc:time64-end-day-time) from-date-t64)
(gnc:time64-end-day-time to-date-t64)
(gnc:deltasym-to-delta interval))) (gnc:deltasym-to-delta interval)))
(report-title (get-option gnc:pagename-general (report-title (get-option gnc:pagename-general
gnc:optname-reportname)) gnc:optname-reportname))
@ -244,7 +246,7 @@
;; This exchanges the commodity-collector 'c' to one single ;; This exchanges the commodity-collector 'c' to one single
;; 'report-currency' according to the exchange-fn. Returns a gnc:monetary ;; 'report-currency' according to the exchange-fn. Returns a gnc:monetary
(define (collector->monetary c date) (define (collector->monetary c date)
(if (not (gnc:timepair? date)) (if (not (number? date))
(throw 'wrong)) (throw 'wrong))
(gnc:sum-collector-commodity (gnc:sum-collector-commodity
c report-currency c report-currency
@ -298,7 +300,7 @@
(gnc:report-percent-done 10) (gnc:report-percent-done 10)
(set! exchange-fn (gnc:case-exchange-time-fn (set! exchange-fn (gnc:case-exchange-time-fn
price-source report-currency price-source report-currency
commodity-list to-date-tp commodity-list to-date-t64
10 40)) 10 40))
(gnc:report-percent-done 50) (gnc:report-percent-done 50)
@ -316,7 +318,7 @@
(define (datelist->stringlist dates-list) (define (datelist->stringlist dates-list)
(map (lambda (date-list-item) (map (lambda (date-list-item)
(gnc-print-date (qof-print-date
(if inc-exp? (if inc-exp?
(car date-list-item) (car date-list-item)
date-list-item))) date-list-item)))
@ -376,8 +378,8 @@
(gnc:html-linechart-set-subtitle! (gnc:html-linechart-set-subtitle!
chart (sprintf #f chart (sprintf #f
(_ "%s to %s") (_ "%s to %s")
(gnc-print-date from-date-tp) (qof-print-date from-date-t64)
(gnc-print-date to-date-tp))) (qof-print-date to-date-t64)))
(gnc:html-linechart-set-width! chart width) (gnc:html-linechart-set-width! chart width)
(gnc:html-linechart-set-height! chart height) (gnc:html-linechart-set-height! chart height)