IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2026-09-03 20:53:02 -05:00
Code Issues Packages Projects Releases Wiki Activity

Robert Graham Merkel's balance sheet patch.

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@3893 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas
2001-04-05 06:05:31 +00:00
parent f34c9c5463
commit 6abf254fda
2 changed files with 19 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
ChangeLog
+11
View File
@@ -1,3 +1,14 @@
2001-04-05 Robert Graham Merkel <rgmerk@mira.net>
* src/scm/report/balance-sheet.scm: Relabel summary rows, fix
asset calculation bugs.
2001-04-04 Robert Graham Merkel <rgmerk@mira.net>
* src/scm/report/balance-sheet.scm: calculate retained profits
explicitly, display (liabilities + equity) to allow people
to check balances.
2001-04-04 Dave Peticolas <dave@krondo.com> 2001-04-04 Dave Peticolas <dave@krondo.com>
* src/register/gnome/gnucash-sheet.c * src/register/gnome/gnucash-sheet.c
src/scm/report/balance-sheet.scm
+8 -7
View File
@@ -133,7 +133,7 @@
commodity amount)))) commodity amount))))
#f)) #f))
(gnc:html-table-append-row! (gnc:html-table-append-row!
table (list (_ "Retained Earnings") table (list (_ "Net Profit")
(gnc:sum-collector-commodity (gnc:sum-collector-commodity
balance report-commodity exchange-fn))))) balance report-commodity exchange-fn)))))
@@ -271,7 +271,10 @@
(total-equity-balance 'minusmerge equity-balance #f) (total-equity-balance 'minusmerge equity-balance #f)
(total-equity-balance 'merge (total-equity-balance 'merge
retained-profit-balance retained-profit-balance
#f) #f)
(sign-reversed-liability-balance 'minusmerge
liability-balance
#f)
(equity-plus-liability 'merge (equity-plus-liability 'merge
sign-reversed-liability-balance sign-reversed-liability-balance
#f) #f)
@@ -280,9 +283,7 @@
#f) #f)
(sign-reversed-liability-balance 'minusmerge
liability-balance
#f)
;; add the tables ;; add the tables
(gnc:html-table-prepend-row! asset-table (list "Assets")) (gnc:html-table-prepend-row! asset-table (list "Assets"))
@@ -298,13 +299,13 @@
asset-table retained-profit-balance asset-table retained-profit-balance
show-fcur? exchange-fn report-currency) show-fcur? exchange-fn report-currency)
(add-subtotal-line (add-subtotal-line
asset-table "Equity" total-equity-balance show-fcur? asset-table "Total Equity" total-equity-balance show-fcur?
exchange-fn report-currency) exchange-fn report-currency)
(add-subtotal-line (add-subtotal-line
asset-table "Liabilities & Equity" equity-plus-liability asset-table "Liabilities & Equity" equity-plus-liability
show-fcur? exchange-fn report-currency) show-fcur? exchange-fn report-currency)
(gnc:html-document-add-object! doc asset-table) (gnc:html-document-add-object! doc asset-table)
; (gnc:free-account-group income-expense-accounts-group)
;; add currency information ;; add currency information
; (gnc:html-document-add-object! ; (gnc:html-document-add-object!
; doc ;;(gnc:html-markup-p ; doc ;;(gnc:html-markup-p