* src/report/report-system/options-utilities.scm:

* src/report/standard-reports/account-summary.scm:
	* src/report/standard-reports/balance-sheet.scm:
	* src/report/standard-reports/cash-flow.scm:
	* src/report/standard-reports/pnl.scm:
	  change the api to gnc:options-add-account-selection! to allow
	  the caller to set the default choice on "use-subaccounts", and
	  change the cash-flow report to default to 'no'.  This will make
	  sure that "Assets:A/P" is not included (since it shouldn't be).


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@7899 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Derek Atkins 2003-01-31 03:00:50 +00:00
parent 891889f808
commit 08245a8ebb
6 changed files with 20 additions and 6 deletions

View File

@ -4,6 +4,16 @@
* Nathan Neulinger's patch to gnc-split-reg.[ch] to implement
a summary-bar "Projected minimum balance". Somewhat fixes #102440.
* src/report/report-system/options-utilities.scm:
* src/report/standard-reports/account-summary.scm:
* src/report/standard-reports/balance-sheet.scm:
* src/report/standard-reports/cash-flow.scm:
* src/report/standard-reports/pnl.scm:
change the api to gnc:options-add-account-selection! to allow
the caller to set the default choice on "use-subaccounts", and
change the cash-flow report to default to 'no'. This will make
sure that "Assets:A/P" is not included (since it shouldn't be).
2003-01-29 Matthew Vanecek <mevanecek@yahoo.com>

View File

@ -140,7 +140,7 @@
(define (gnc:options-add-account-selection!
options pagename
name-display-depth name-show-subaccounts name-accounts
sort-tag default-depth default-accounts)
sort-tag default-depth default-accounts default-show-subaccounts)
(gnc:options-add-account-levels!
options pagename name-display-depth
(string-append sort-tag "a")
@ -153,7 +153,7 @@
pagename name-show-subaccounts
(string-append sort-tag "b")
(N_ "Override account-selection and show sub-accounts of all selected accounts?")
#t))
default-show-subaccounts))
;; Semantics of the account selection, as used in the
;; gnc:html-build-acct-table: An account shows up if ( the

View File

@ -89,7 +89,8 @@
(let ((current-accounts '()))
(cond ((not (null? current-accounts)) current-accounts)
(else
(gnc:group-get-account-list (gnc:get-current-group)))))))
(gnc:group-get-account-list (gnc:get-current-group))))))
#t)
;; with or without grouping
(gnc:options-add-group-accounts!

View File

@ -101,7 +101,8 @@
(gnc:filter-accountlist-type
'(bank cash credit asset liability stock mutual-fund currency
payable receivable equity income expense)
(gnc:group-get-subaccounts (gnc:get-current-group)))))
(gnc:group-get-subaccounts (gnc:get-current-group))))
#t)
;; what to show about non-leaf accounts
(gnc:register-option

View File

@ -92,7 +92,8 @@
(lambda ()
(gnc:filter-accountlist-type
'(bank cash asset stock mutual-fund)
(gnc:group-get-subaccounts (gnc:get-current-group)))))
(gnc:group-get-subaccounts (gnc:get-current-group))))
#f)
;; Set the general page as default option tab
(gnc:options-set-default-section options gnc:pagename-general)

View File

@ -83,7 +83,8 @@
(lambda ()
(filter
gnc:account-is-inc-exp?
(gnc:group-get-account-list (gnc:get-current-group)))))
(gnc:group-get-account-list (gnc:get-current-group))))
#t)
;; with or without grouping
(gnc:options-add-group-accounts!