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

Merge branch 'maint'

Browse Source
This commit is contained in:
Christopher Lam
2022-08-25 23:47:18 +08:00
parent 7d1b9474bb 4efbddd538
commit 3e02859277
15 changed files with 430 additions and 189 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
bindings/guile/date-utilities.scm
View File

@@ -325,6 +325,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))
@@ -351,6 +356,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))