[report-utilities] bugfix: aging-list was incorrect. off-by-1 error.

off-by-1 error in aging-list dates.
This commit is contained in:
Christopher Lam
2019-12-12 21:19:03 +08:00
parent 1c605a6b10
commit 670811455d

View File

@@ -1136,7 +1136,7 @@ flawed. see report-utilities.scm. please update reports.")
to-date date-type receivable?)
(gnc:msg "processing " (qof-print-date to-date) " date-type " date-type
"receivable? " receivable?)
(let ((bucket-dates (make-extended-interval-list to-date (- num-buckets 2)))
(let ((bucket-dates (make-extended-interval-list to-date (- num-buckets 3)))
(buckets (make-vector num-buckets 0)))
(define (addbucket! idx amt)
(vector-set! buckets idx (+ amt (vector-ref buckets idx))))