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

*** empty log message ***

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@2111 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas 2000-03-23 23:02:23 +00:00
parent 4c49629a7a
commit 2a3802851a
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -212,5 +212,7 @@
(define (gnc:split-list-balance splits)
(if (= (gnc:count-splits splits) 0)
0
(+ (gnc:split-list-total splits)
(gnc:split-get-balance (gnc:ith-split splits 0)))))
(let ((first-split (gnc:ith-split splits 0)))
(+ (gnc:split-list-total splits)
(gnc:split-get-balance first-split)
(- (gnc:split-get-value first-split))))))