Revert report date option to the 1.8 state where the stock

gnc:options-add-report-date! was used and allowed many potential
relative dates.



git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@13707 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Christian Stimming 2006-03-28 20:30:58 +00:00
parent 34a5577a73
commit d7d2d47903
3 changed files with 16 additions and 16 deletions

View File

@ -1,3 +1,13 @@
2006-03-28 Christian Stimming <stimming@tuhh.de>
* src/report/standard-reports/trial-balance.scm,
income-statement.scm, equity-statement.scm: Remove unused strings.
* src/report/standard-reports/account-summary.scm,
balance-sheet.scm: Revert report date option to the 1.8 state
where the stock gnc:options-add-report-date! was used and allowed
many potential relative dates.
2006-03-27 David Hampton <hampton@employees.org>
* src/gnome/glade/account.glade:

View File

@ -69,7 +69,6 @@
(define opthelp-party-name (N_ "Name of company/individual"))
(define optname-date (N_ "Date"))
(define opthelp-date (N_ "Account summary as-of date"))
;; FIXME this needs an indent option
(define optname-accounts (N_ "Accounts to include"))
@ -147,12 +146,8 @@
;; does anyone know the function to get the company name??
;; date at which to report balance
(add-option
(gnc:make-date-option
gnc:pagename-general optname-date
"c" opthelp-date
(lambda () (cons 'absolute (cons (current-time) 0)))
#f 'both '(start-cal-year start-prev-year end-prev-year) ))
(gnc:options-add-report-date!
options gnc:pagename-general optname-date "c")
;; accounts to work on
(add-option

View File

@ -82,7 +82,6 @@
(define opthelp-party-name (N_ "Name of company/individual"))
(define optname-date (N_ "Balance Sheet Date"))
(define opthelp-date (N_ "Balance sheet as-of date"))
(define optname-report-form (N_ "Single column Balance Sheet"))
(define opthelp-report-form
(N_ "Print liability/equity section in the same column under the assets section as opposed to a second column right of the assets section"))
@ -157,23 +156,19 @@
(add-option
(gnc:make-string-option
(N_ "General") optname-report-title
gnc:pagename-general optname-report-title
"a" opthelp-report-title reportname))
(add-option
(gnc:make-string-option
(N_ "General") optname-party-name
gnc:pagename-general optname-party-name
"b" opthelp-party-name ""))
;; this should default to company name in (gnc:get-current-book)
;; does anyone know the function to get the company name??
;; (GnuCash is *so* well documented... sigh)
;; date at which to report balance
(add-option
(gnc:make-date-option
(N_ "General") optname-date
"c" opthelp-date
(lambda () (cons 'absolute (cons (current-time) 0)))
#f 'both '(start-cal-year start-prev-year end-prev-year) ))
(gnc:options-add-report-date!
options gnc:pagename-general optname-date "c")
(add-option
(gnc:make-simple-boolean-option