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

* src/report/standard-reports/balance-sheet.scm: add some

Browse Source 
(commented out) code to support a start date for computing the
	  Net Income (aka Net Profit) in the Balance Sheet.  This is
	  a commented-out partial fix for #113196.


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@8372 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Derek Atkins 2003-05-24 01:12:51 +00:00
parent 75366e5a57
commit 7040ca692c
2 changed files with 41 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ChangeLog
View File

@ -11,6 +11,11 @@
* src/report/report-system/report-utilities.scm: had the wrong
number of arguments in gnc:account-get-balance-at-date.
* src/report/standard-reports/balance-sheet.scm: add some
(commented out) code to support a start date for computing the
Net Income (aka Net Profit) in the Balance Sheet. This is
a commented-out partial fix for #113196.
2003-05-22 Derek Atkins <derek@ihtfp.com>
* src/business/business-reports/owner-report.scm: Better fix for 108731

42
src/report/standard-reports/balance-sheet.scm
View File

@ -38,6 +38,7 @@
;; define all option's names so that they are properly defined
;; in *one* place.
(define optname-from-date (N_ "From"))
(define optname-to-date (N_ "To"))
(define optname-display-depth (N_ "Account Display Depth"))
@ -64,13 +65,35 @@
t1 (+ (gnc:html-table-num-rows t1)
(gnc:html-table-num-rows t2)))))
(define (accountlist-get-comm-balance-at-date accountlist date)
(define (accountlist-get-comm-balance-at-date accountlist from date)
;; (for-each (lambda (x) (display x))
;; (list "computing from: " (gnc:print-date from) " to "
;; (gnc:print-date date) "\n"))
(let ((collector (gnc:make-commodity-collector)))
(for-each (lambda (account)
(let ((balance
(gnc:account-get-comm-balance-at-date
account date #f)))
(collector 'merge balance #f)))
(let* (
;; (start-balance
;; (gnc:account-get-comm-balance-at-date
;; account from #f))
;; (sb (cadr (start-balance
;; 'getpair
;; (gnc:account-get-commodity account)
;; #f)))
(end-balance
(gnc:account-get-comm-balance-at-date
account date #f))
(eb (cadr (end-balance
'getpair
(gnc:account-get-commodity account)
#f)))
)
;; (for-each (lambda (x) (display x))
;; (list "Start balance: " sb " : "
;; (gnc:account-get-name account) " : end balance: "
;; eb "\n"))
(collector 'merge end-balance #f)
;; (collector 'minusmerge start-balance #f)
))
accountlist)
collector))
@ -79,9 +102,11 @@
(let ((options (gnc:new-options)))
;; date at which to report balance
;; (gnc:options-add-date-interval!
(gnc:options-add-report-date!
options gnc:pagename-general
optname-to-date "a")
;; optname-from-date optname-to-date "a")
;; all about currencies
(gnc:options-add-currency!
@ -167,6 +192,11 @@
optname-price-source))
(show-rates? (get-option gnc:pagename-display
optname-show-rates))
(from-date-tp #f)
;; (gnc:timepair-end-day-time
;; (gnc:timepair-previous-day
;; (gnc:date-option-absolute-time
;; (get-option gnc:pagename-general optname-from-date)))))
(to-date-tp (gnc:timepair-end-day-time
(gnc:date-option-absolute-time
(get-option gnc:pagename-general
@ -254,7 +284,7 @@
(set! neg-retained-profit-balance
(accountlist-get-comm-balance-at-date
income-expense-accounts
to-date-tp))
from-date-tp to-date-tp))
(gnc:report-percent-done 14)
(set! retained-profit-balance (gnc:make-commodity-collector))
(gnc:report-percent-done 16)