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 482186 - Customer and vendor report for partners who get invoiced/paid in foreign currency show total labeled with the symbol of the default currency.

Browse Source
This commit is contained in:
Geert Janssens 2016-03-22 18:33:49 +01:00
parent 0114a7317b
commit aec61497f2
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/report/business-reports/owner-report.scm
View File

@ -202,11 +202,10 @@
(define oldintervalreversed (reverse (make-interval-list to-date))) (define oldintervalreversed (reverse (make-interval-list to-date)))
(reverse (cons dayforcurrent oldintervalreversed))) (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)) (let ((lots (xaccQueryGetLots query QUERY-TXN-MATCH-ANY))
(buckets (new-bucket-vector)) (buckets (new-bucket-vector))
(payments (gnc-numeric-zero)) (payments (gnc-numeric-zero))
(currency (gnc-default-currency)) ;XXX
(table (gnc:make-html-table))) (table (gnc:make-html-table)))
(define (in-interval this-date current-bucket) (define (in-interval this-date current-bucket)
@ -385,7 +384,7 @@
(total (gnc-numeric-zero)) (total (gnc-numeric-zero))
(debit (gnc-numeric-zero)) (debit (gnc-numeric-zero))
(credit (gnc-numeric-zero)) (credit (gnc-numeric-zero))
(currency (gnc-default-currency)) ;XXX (currency (xaccAccountGetCommodity acc))
(table (gnc:make-html-table)) (table (gnc:make-html-table))
(reverse? (gnc:option-value (gnc:lookup-option options "__reg" (reverse? (gnc:option-value (gnc:lookup-option options "__reg"
"reverse?")))) "reverse?"))))
@ -477,7 +476,7 @@
"grand-total" "grand-total"
(list (gnc:make-html-table-cell/size (list (gnc:make-html-table-cell/size
1 columns-used-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)) table))