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 603183 - Equity statement shows incorrect changes

Browse Source 
Add function gnc:account-get-total-flow to report-utilities.scm

This function filters the splits from the source to the target accounts
and returns a commodity collector.
It does NOT do currency exchanges.

Author:    Carsten Rinke <carsten.rinke@gmx.de>

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@23156 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Geert Janssens 2013-09-03 14:02:02 +00:00
parent 2eaf1a5586
commit c5adac66c3
1 changed files with 68 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

68
src/report/report-system/report-utilities.scm
View File

@ -759,6 +759,74 @@
total
)
)
;; Filters the splits from the source to the target accounts
;; returns a commodity collector
;; does NOT do currency exchanges
(define (gnc:account-get-total-flow direction target-account-list from-date-tp to-date-tp)
(let* (
(total-flow (gnc:make-commodity-collector))
)
;; ------------------------------------------------------------------
;; process all target accounts
;; ------------------------------------------------------------------
(for-each
(lambda (target-account)
;; -------------------------------------
;; process all splits of current account
;; -------------------------------------
(for-each
(lambda (target-account-split)
;; ----------------------------------------------------
;; only target account splits that are within the specified time range
;; ----------------------------------------------------
(let* (
(transaction (xaccSplitGetParent target-account-split))
(transaction-date-posted (gnc-transaction-get-date-posted transaction))
)
(if (and
(gnc:timepair-le transaction-date-posted to-date-tp)
(gnc:timepair-ge transaction-date-posted from-date-tp)
)
;; -------------------------------------------------------------
;; get the split information
;; -------------------------------------------------------------
(let* (
(transaction-currency (xaccTransGetCurrency transaction))
(transaction-value (gnc-numeric-zero))
(split-value (xaccSplitGetAmount target-account-split))
)
;; -------------------------------------------------------------
;; update the return value
;; -------------------------------------------------------------
(case direction
((in)
(if (gnc-numeric-positive-p split-value)
(total-flow 'add transaction-currency split-value)
)
)
((out)
(if (gnc-numeric-negative-p split-value)
(total-flow 'add transaction-currency split-value)
)
)
(else (gnc:warn "bad gnc:account-get-total-flow action: " direction))
)
)
)
)
)
(xaccAccountGetSplitList target-account)
)
)
target-account-list
)
total-flow ;; RETURN
)
)
;; similar, but only counts transactions with non-negative shares and
;; *ignores* any closing entries
(define (gnc:account-get-pos-trans-total-interval