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

[report-utilities] (gnc:account-get-balances-at-dates) documentation

Browse Source 
the algorithm assumes dates-list is sorted chronologically. enforce
it, and document.
This commit is contained in:
Christopher Lam 2019-02-06 21:41:20 +08:00
parent b1cd7393b6
commit 60558f6ad1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gnucash/report/report-system/report-utilities.scm
View File

@ -431,7 +431,7 @@ flawed. see report-utilities.scm. please update reports.")
;; this function will scan through the account splitlist, building ;; this function will scan through the account splitlist, building
;; a list of balances along the way at dates specified in dates-list. ;; a list of balances along the way at dates specified in dates-list.
;; in: account ;; in: account
;; dates-list (list of time64) ;; dates-list (list of time64) - NOTE: IT WILL BE SORTED
;; split->amount - an unary lambda. calling (split->amount split) ;; split->amount - an unary lambda. calling (split->amount split)
;; returns a number, or #f which effectively skips the split. ;; returns a number, or #f which effectively skips the split.
;; out: (list bal0 bal1 ...), each entry is a gnc-monetary object ;; out: (list bal0 bal1 ...), each entry is a gnc-monetary object
@ -445,7 +445,7 @@ flawed. see report-utilities.scm. please update reports.")
(define (amount->monetary bal) (define (amount->monetary bal)
(gnc:make-gnc-monetary (xaccAccountGetCommodity account) bal)) (gnc:make-gnc-monetary (xaccAccountGetCommodity account) bal))
(let loop ((splits (xaccAccountGetSplitList account)) (let loop ((splits (xaccAccountGetSplitList account))
(dates-list dates-list) (dates-list (stable-sort! dates-list <))
(currentbal 0) (currentbal 0)
(lastbal 0) (lastbal 0)
(balancelist '())) (balancelist '()))