From a6c8a806f37f1ba182e954942324fff5cb95dc2b Mon Sep 17 00:00:00 2001 From: Christopher Lam Date: Tue, 27 Oct 2020 11:03:05 +0800 Subject: [PATCH] Bug 797982 - exchange rates' decimal places (bis) Bug introduced in e7165507c. We need to normalize date for pricedb-nearest to avoid getting next day price. --- gnucash/report/commodity-utilities.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/gnucash/report/commodity-utilities.scm b/gnucash/report/commodity-utilities.scm index e777a2a842..2dd1e6dce6 100644 --- a/gnucash/report/commodity-utilities.scm +++ b/gnucash/report/commodity-utilities.scm @@ -768,7 +768,8 @@ (define (gnc:case-price-fn source target-curr date) (define pdb (gnc-pricedb-get-db (gnc-get-current-book))) (case source - ((pricedb-nearest) (cut gnc-pricedb-get-nearest-price pdb <> target-curr date)) + ((pricedb-nearest) (cut gnc-pricedb-get-nearest-price pdb <> target-curr + (time64CanonicalDayTime date))) ((pricedb-latest) (cut gnc-pricedb-get-latest-price pdb <> target-curr)) (else (lambda (commodity)