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

calculations so we don't get GtkCritical warnings.


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/branches/1.8@8242 57a11ea4-9604-0410-9ed3-97b8803252fd

ChangeLog

@@ -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-21  Christian Stimming  <stimming@tuhh.de>
 
 	* po/de.po: Update German translation (latest transaction.scm

src/business/business-reports/aging.scm

@@ -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))