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

Remove cruft.

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@3328 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas 2000-12-20 12:35:44 +00:00
parent a92e9a42bb
commit ae931d0aac
1 changed files with 0 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
src/scm/report-utilities.scm
View File

@ -310,37 +310,11 @@
(thunk (gnc:account-get-split account x))) (thunk (gnc:account-get-split account x)))
0 (gnc:account-get-split-count account) 1)) 0 (gnc:account-get-split-count account) 1))
(define (gnc:split-list-total splits)
(let ((num-splits (gnc:count-splits splits)))
(let loop
((total 0)
(index 0))
(if (>= index num-splits)
total
(loop (+ total (d-gnc:split-get-value (gnc:ith-split splits index)))
(+ index 1))))))
(define (gnc:split-list-balance splits)
(if (= (gnc:count-splits splits) 0)
0
(let ((first-split (gnc:ith-split splits 0)))
(+ (gnc:split-list-total splits)
(d-gnc:split-get-balance first-split)
(- (d-gnc:split-get-value first-split))))))
;; get transaction date from split - needs to be done indirectly ;; get transaction date from split - needs to be done indirectly
;; as it's stored in the parent transaction ;; as it's stored in the parent transaction
(define (gnc:split-get-transaction-date split) (define (gnc:split-get-transaction-date split)
(gnc:transaction-get-date-posted (gnc:split-get-parent split))) (gnc:transaction-get-date-posted (gnc:split-get-parent split)))
;; ditto descriptions
(define (gnc:split-get-description-from-parent split)
(gnc:transaction-get-description (gnc:split-get-parent split)))
;; get the account name of a split
(define (gnc:split-get-account-name split)
(gnc:account-get-name (gnc:split-get-account split)))
;; get the account balance at the specified date. if include-children? ;; get the account balance at the specified date. if include-children?
;; is true, the balances of all children (not just direct children) ;; is true, the balances of all children (not just direct children)
;; are included in the calculation. ;; are included in the calculation.