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 fixes.

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@2210 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas
2000-04-25 10:13:05 +00:00
parent 974e0ee7bb
commit 72e51a660e
1 changed files with 3 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/scm/report/average-balance.scm
View File

@@ -6,8 +6,6 @@
;; Author makes no implicit or explicit guarantee of accuracy of ;; Author makes no implicit or explicit guarantee of accuracy of
;; these calculations and accepts no responsibility for direct ;; these calculations and accepts no responsibility for direct
;; or indirect losses incurred as a result of using this software. ;; or indirect losses incurred as a result of using this software.
;;
;; Matt Martin <matt.martin@ieee.org>
(gnc:support "report/average-balance.scm") (gnc:support "report/average-balance.scm")
(use-modules (ice-9 regex)) (use-modules (ice-9 regex))
@@ -170,7 +168,7 @@
(end (cadr delta))) (end (cadr delta)))
(if (null? splits) (if (null? splits)
(begin (begin
(accbal start end) (accbal prevdate end)
'()) '())
(let* ((split (car splits)) (let* ((split (car splits))
(now (gnc:split-get-transaction-date split))) (now (gnc:split-get-transaction-date split)))
@@ -210,8 +208,8 @@
end end
(/ (stat-accumulator 'total #f) (/ (stat-accumulator 'total #f)
(gnc:timepair-delta start end)) (gnc:timepair-delta start end))
(min-max-accumulator 'getmin #f)
(min-max-accumulator 'getmax #f) (min-max-accumulator 'getmax #f)
(min-max-accumulator 'getmin #f)
(- (gl-accumulator 'debits #f) (- (gl-accumulator 'debits #f)
(gl-accumulator 'credits #f)) (gl-accumulator 'credits #f))
(gl-accumulator 'debits #f) (gl-accumulator 'debits #f)