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

Bug 798747 - Crash in Investment Portfolio report

Browse Source 
add support for pricedb-before in portfolio reports
This commit is contained in:
Christopher Lam 2023-02-05 17:25:52 +08:00
parent 68cd8cfa2c
commit 9c87585d4e
2 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gnucash/report/reports/standard/advanced-portfolio.scm
View File

@ -1026,6 +1026,11 @@ by preventing negative stock balances.<br/>")
(lambda (foreign domestic date)
(find-price (gnc-pricedb-lookup-latest-any-currency pricedb foreign)
domestic)))
((pricedb-before)
(lambda (foreign domestic date)
(find-price (gnc-pricedb-lookup-nearest-before-any-currency-t64
pricedb foreign (time64CanonicalDayTime date))
domestic)))
((pricedb-nearest)
(lambda (foreign domestic date)
(find-price (gnc-pricedb-lookup-nearest-in-time-any-currency-t64

10
gnucash/report/reports/standard/portfolio.scm
View File

@ -229,6 +229,16 @@
(cons #f (gnc-numeric-zero)))))
(if price (gnc-price-list-destroy price))
fn)))
((pricedb-before)
(lambda (foreign date)
(let ((price (gnc-pricedb-lookup-nearest-before-any-currency-t64
pricedb foreign (time64CanonicalDayTime date))))
(cond
((null? price) (cons #f 0))
(else (let ((p (car price)))
(gnc-price-ref p)
(gnc-price-list-destroy price)
(cons p (gnc-price-get-value p))))))))
((pricedb-nearest)
(lambda (foreign date)
(let* ((price