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

[balsheet-pnl] ensure txns on last report-date are processed

Browse Source 
bugfix. after writing commit message to 23d0fa132, I had to verify the
strong statement regarding txns on last report-date, and found that I
was incorrect. ensure txns are previously accounted for.
This commit is contained in:
Christopher Lam 2019-09-12 22:32:01 +08:00
parent 41c58ec00a
commit da655cfaa9
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
gnucash/report/standard-reports/balsheet-pnl.scm
View File

@ -706,12 +706,14 @@ also show overall period profit & loss."))
;; get all options values
(let* ((report-title (get-option gnc:pagename-general gnc:optname-reportname))
(startdate (gnc:date-option-absolute-time
(get-option gnc:pagename-general
optname-startdate)))
(enddate (gnc:date-option-absolute-time
(get-option gnc:pagename-general
optname-enddate)))
(startdate ((if (eq? report-type 'pnl)
gnc:time64-start-day-time
gnc:time64-end-day-time)
(gnc:date-option-absolute-time
(get-option gnc:pagename-general optname-startdate))))
(enddate (gnc:time64-end-day-time
(gnc:date-option-absolute-time
(get-option gnc:pagename-general optname-enddate))))
(disable-account-indent? (get-option gnc:pagename-display
optname-account-full-name))
(incr (get-option gnc:pagename-general optname-period))
@ -761,15 +763,13 @@ also show overall period profit & loss."))
common-currency)))))
(price-source (and common-currency
(get-option pagename-commodities optname-price-source)))
(report-dates (map (if (eq? report-type 'balsheet)
gnc:time64-end-day-time
gnc:time64-start-day-time)
(if incr
(gnc:make-date-list
startdate enddate (gnc:deltasym-to-delta incr))
(if (eq? report-type 'balsheet)
(list enddate)
(list startdate enddate)))))
(report-dates
(cond
(incr (gnc:make-date-list startdate enddate (gnc:deltasym-to-delta incr)))
((eq? report-type 'pnl) (list startdate enddate))
(else (list enddate))))
(accounts-balances (map
(lambda (acc)
(cons acc