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/budget-barchart.scm

Browse Source
This commit is contained in:
Christopher Lam 2017-12-15 19:12:06 +08:00
parent db316c2d16
commit 811d4e5718
1 changed files with 7 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
gnucash/report/standard-reports/budget-barchart.scm
View File

@ -141,11 +141,9 @@
;;
;; Create bar and and values
;;
(define (gnc:chart-create-budget-actual budget acct running-sum chart-type width height from-tp to-tp)
(define (gnc:chart-create-budget-actual budget acct running-sum chart-type width height report-start-time report-end-time)
(let* (
(chart #f)
(report-start-time (car from-tp))
(report-end-time (car to-tp))
)
(if (eqv? chart-type 'bars)
@ -183,7 +181,6 @@
(bgt-sum 0)
(act-sum 0)
(date (gnc-budget-get-period-start-date budget period))
(period-start-time (car date))
(bgt-vals '())
(act-vals '())
(date-iso-string-list '())
@ -206,7 +203,7 @@
(gnc-budget-get-account-period-actual-value budget acct period))))
)
)
(if (<= report-start-time period-start-time)
(if (<= report-start-time date)
;; within reporting period, update the display lists
(begin
(if (not running-sum)
@ -221,14 +218,13 @@
)
(set! bgt-vals (append bgt-vals (list bgt-sum)))
(set! act-vals (append act-vals (list act-sum)))
(set! date-iso-string-list (append date-iso-string-list (list (gnc-print-date date))))
(set! date-iso-string-list (append date-iso-string-list (list (qof-print-date date))))
)
)
;; prepare data for next loop repetition
(set! period (+ period 1))
(set! date (gnc-budget-get-period-start-date budget period))
(set! period-start-time (car date))
(if (< report-end-time period-start-time)
(if (< report-end-time date)
(set! period num-periods) ;; reporting period has ended, break the loop
)
)
@ -319,10 +315,10 @@
(report-title (get-option gnc:pagename-general
gnc:optname-reportname))
(document (gnc:make-html-document))
(from-date-tp (gnc:timepair-start-day-time
(from-date-t64 (gnc:time64-start-day-time
(gnc:date-option-absolute-time
(get-option gnc:pagename-general optname-from-date))))
(to-date-tp (gnc:timepair-end-day-time
(to-date-t64 (gnc:time64-end-day-time
(gnc:date-option-absolute-time
(get-option gnc:pagename-general optname-to-date))))
)
@ -357,7 +353,7 @@
)
(gnc:html-document-add-object!
document
(gnc:chart-create-budget-actual budget acct running-sum chart-type width height from-date-tp to-date-tp)
(gnc:chart-create-budget-actual budget acct running-sum chart-type width height from-date-t64 to-date-t64)
)
)
)