IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2024-11-26 02:40:43 -06:00
Code Issues Packages Projects Releases Wiki Activity

Christian Stimming's report patch for better currency support.

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@2757 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas 2000-09-04 02:09:04 +00:00
parent 441938d811
commit 166b8c5ee4
4 changed files with 22 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
AUTHORS
View File

@ -110,6 +110,7 @@ Mike Simons <msimons@fsimons01.erols.com> misc configure.in patches
Richard Skelton <rich@brake.demon.co.uk> for Solaris cleanup
Henning Spruth <spruth@bigfoot.com> for German text & euro date rework
Robby Stephenson <robby.stephenson@usa.net> register & file history patches
Christian Stimming <stimming@uclink.berkeley.edu> report patch
Herbert Thoma <tma@iis.fhg.de> gnome register & euro support patches
Diane Trout <detrout@earthlink.net> scheme qif import patch
Richard Wackerbarth <rkw@dataplex.net> patch to gnc-prices, qif import fixes

10
doc/sgml/C/xacc-about.sgml
View File

@ -760,6 +760,7 @@ Motif as a school project, taking it to version 0.9 by October
<PARA>for German text and euro date rework</PARA>
</GLOSSDEF>
</GLOSSENTRY>
<GLOSSENTRY>
<GLOSSTERM><email> robby.stephenson@usa.net</email> Robby
Stephenson</GLOSSTERM>
@ -767,6 +768,15 @@ Motif as a school project, taking it to version 0.9 by October
<PARA>register &amp; file history patches</PARA>
</GLOSSDEF>
</GLOSSENTRY>
<GLOSSENTRY>
<GLOSSTERM><email> stimming@uclink.berkeley.edu></email> Christian
Stimming</GLOSSTERM>
<GLOSSDEF>
<PARA>report patch</PARA>
</GLOSSDEF>
</GLOSSENTRY>
<GLOSSENTRY>
<GLOSSTERM><email> tma@iis.fhg.de</email> Herbert Thoma</GLOSSTERM>
<GLOSSDEF>

6
src/scm/report-utilities.scm
View File

@ -32,6 +32,12 @@
(define (gnc:amount->formatted-string amount shares_value?)
(gnc:amount->string amount #t #t shares_value?))
(define (gnc:amount->formatted-currency-string amount
this_currency shares_value?)
(gnc:amount->string-helper (exact->inexact amount)
#t #t shares_value?
this_currency))
(define (gnc:account-has-shares? account)
(let ((type (gnc:account-type->symbol (gnc:account-get-type account))))
(member type '(STOCK MUTUAL CURRENCY))))

7
src/scm/report/balance-and-pnl.scm
View File

@ -93,7 +93,9 @@
(gnc:account-get-type level-2-account))))
(html-table-row-align
(list
account-name type-name (gnc:amount->formatted-string l2-value #f))
account-name type-name
(gnc:amount->formatted-currency-string
l2-value (gnc:account-get-currency level-2-account) #f))
(list "left" "center" "right"))))
(define (render-level-1-account account l1-value)
@ -101,7 +103,8 @@
(type (gnc:account-get-type-string (gnc:account-get-type account))))
(html-table-row-align
(list name type NBSP
(gnc:amount->formatted-string l1-value #f)
(gnc:amount->formatted-currency-string
l1-value (gnc:account-get-currency account) #f)
NBSP NBSP)
(list "left" "center" "right" "right" "right" "right"))))