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

[date-utilities] avoid report crash if start>end date

Browse Source
This commit is contained in:
Christopher Lam 2022-08-21 16:52:13 +08:00
parent 9642025745
commit b7a3652de7
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
libgnucash/app-utils/date-utilities.scm
View File

@ -339,6 +339,11 @@
(assv-ref MonthDeltas incr))
(define (make-interval from to)
(list from (if (< to enddate) (decdate to SecDelta) enddate)))
(when (< enddate startdate)
(let ((saved-enddate enddate))
(gnc:warn "start > end date. Swapping dates to avoid some reports crashing.")
(set! enddate startdate)
(set! startdate saved-enddate)))
(let loop ((result '())
(date startdate)
(idx 0))
@ -365,6 +370,11 @@
(define (gnc:make-date-list startdate enddate incr)
(define month-delta
(assv-ref MonthDeltas incr))
(when (< enddate startdate)
(let ((saved-enddate enddate))
(gnc:warn "start > end date. Swapping dates to avoid some reports crashing.")
(set! enddate startdate)
(set! startdate saved-enddate)))
(let loop ((result '())
(date startdate)
(idx 0))