From aec61497f27862848062fc465b0ad6a3433eaa0e Mon Sep 17 00:00:00 2001 From: Geert Janssens Date: Tue, 22 Mar 2016 18:33:49 +0100 Subject: [PATCH] Bug 482186 - Customer and vendor report for partners who get invoiced/paid in foreign currency show total labeled with the symbol of the default currency. --- src/report/business-reports/owner-report.scm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/src/report/business-reports/owner-report.scm b/src/report/business-reports/owner-report.scm index 84c61fe8f2..03598dee3c 100644 --- a/src/report/business-reports/owner-report.scm +++ b/src/report/business-reports/owner-report.scm @@ -202,11 +202,10 @@ (define oldintervalreversed (reverse (make-interval-list to-date))) (reverse (cons dayforcurrent oldintervalreversed))) -(define (make-aging-table options query bucket-intervals reverse? date-type) +(define (make-aging-table options query bucket-intervals reverse? date-type currency) (let ((lots (xaccQueryGetLots query QUERY-TXN-MATCH-ANY)) (buckets (new-bucket-vector)) (payments (gnc-numeric-zero)) - (currency (gnc-default-currency)) ;XXX (table (gnc:make-html-table))) (define (in-interval this-date current-bucket) @@ -385,7 +384,7 @@ (total (gnc-numeric-zero)) (debit (gnc-numeric-zero)) (credit (gnc-numeric-zero)) - (currency (gnc-default-currency)) ;XXX + (currency (xaccAccountGetCommodity acc)) (table (gnc:make-html-table)) (reverse? (gnc:option-value (gnc:lookup-option options "__reg" "reverse?")))) @@ -477,7 +476,7 @@ "grand-total" (list (gnc:make-html-table-cell/size 1 columns-used-size - (make-aging-table options query interval-vec reverse? date-type))))) + (make-aging-table options query interval-vec reverse? date-type currency))))) table))