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

* src/business/business-reports/aging.scm: fix the percentage

Browse Source 
calculations so we don't get GtkCritical warnings.


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@8241 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Derek Atkins 2003-04-21 16:22:15 +00:00
parent 2182267e68
commit f55d2ac430
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ChangeLog
View File

@ -1,3 +1,8 @@
2003-04-21 Derek Atkins <derek@ihtfp.com>
* src/business/business-reports/aging.scm: fix the percentage
calculations so we don't get GtkCritical warnings.
2003-04-20 Derek Atkins <derek@ihtfp.com>
* src/report/standard-reports/transaction.scm: Applied Tomas

6
src/business/business-reports/aging.scm
View File

@ -532,9 +532,10 @@ totals to report currency")
;; build the table
(set! work-to-do (length splits))
;; work-done is already zero
(for-each (lambda (split)
(set! work-done (+ 1 work-done))
(gnc:report-percent-done (* 50 (/ work-done work-to-do)))
(set! work-done (+ 1 work-done))
(update-company-hash companys
split
interval-vec
@ -553,9 +554,10 @@ totals to report currency")
;; build the table
(set! work-to-do (length company-list))
(set! work-done 0)
(for-each (lambda (company-list-entry)
(set! work-done (+ 1 work-done))
(gnc:report-percent-done (+ 50 (* 50 (/ work-done work-to-do))))
(set! work-done (+ 1 work-done))
(let* ((monetary-list (convert-to-monetary-list
(company-get-buckets
(cdr company-list-entry))