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.scm

Browse Source
This commit is contained in:
Christopher Lam 2017-12-15 18:47:42 +08:00
parent 98ef625ada
commit db316c2d16
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gnucash/report/standard-reports/budget.scm
View File

@ -553,7 +553,7 @@
(let* (
(col-info (car col-list))
(tc #f)
(period-to-date-string (lambda (p) (gnc-print-date (gnc-budget-get-period-start-date budget p))))
(period-to-date-string (lambda (p) (qof-print-date (gnc-budget-get-period-start-date budget p))))
)
(cond
((equal? col-info 'total)
@ -631,8 +631,8 @@
(let* ((now (current-time))
(total-periods (gnc-budget-get-num-periods budget) )
(last-period (- total-periods 1))
(period-start (lambda (x) (car (gnc-budget-get-period-start-date budget x))))
(period-end (lambda (x) (car (gnc-budget-get-period-end-date budget x))))
(period-start (lambda (x) (gnc-budget-get-period-start-date budget x)))
(period-end (lambda (x) (gnc-budget-get-period-end-date budget x)))
)
(cond ((< now (period-start 0)) 1)
((> now (period-end last-period)) total-periods)