r17577 - gnucash/branches/2.2/src/business/business-reports - [r17575] Bug #549738: Set the default start and end dates to "start of accounting period" and "today", respectively, on customer, vendor, and employee reports.
Andreas Köhler
andi5 at cvs.gnucash.org
Sat Sep 20 21:14:35 EDT 2008
Author: andi5
Date: 2008-09-20 21:14:35 -0400 (Sat, 20 Sep 2008)
New Revision: 17577
Trac: http://svn.gnucash.org/trac/changeset/17577
Modified:
gnucash/branches/2.2/src/business/business-reports/owner-report.scm
Log:
[r17575] Bug #549738: Set the default start and end dates to "start of accounting period" and "today", respectively, on customer, vendor, and employee reports.
Committed by cedayiv.
Modified: gnucash/branches/2.2/src/business/business-reports/owner-report.scm
===================================================================
--- gnucash/branches/2.2/src/business/business-reports/owner-report.scm 2008-09-19 20:51:53 UTC (rev 17576)
+++ gnucash/branches/2.2/src/business/business-reports/owner-report.scm 2008-09-21 01:14:35 UTC (rev 17577)
@@ -37,6 +37,10 @@
(use-modules (gnucash report standard-reports))
(use-modules (gnucash report business-reports))
+;; Option names
+(define optname-from-date (N_ "From"))
+(define optname-to-date (N_ "To"))
+
(define acct-string (N_ "Account"))
(define owner-string (N_ "Company"))
(define owner-page gnc:pagename-general)
@@ -377,7 +381,12 @@
(gnc:options-add-date-interval!
gnc:*report-options* gnc:pagename-general
- (N_ "From") (N_ "To") "a")
+ optname-from-date optname-to-date "a")
+ ;; Use a default report date of 'today'
+ (gnc:option-set-value (gnc:lookup-option gnc:*report-options*
+ gnc:pagename-general
+ optname-to-date)
+ (cons 'relative 'today))
(gnc:register-inv-option
(gnc:make-simple-boolean-option
@@ -556,10 +565,10 @@
(owner (opt-val owner-page owner-string))
(start-date (gnc:timepair-start-day-time
(gnc:date-option-absolute-time
- (opt-val gnc:pagename-general (N_ "From")))))
+ (opt-val gnc:pagename-general optname-from-date))))
(end-date (gnc:timepair-end-day-time
(gnc:date-option-absolute-time
- (opt-val gnc:pagename-general (N_ "To")))))
+ (opt-val gnc:pagename-general optname-to-date))))
(book (gnc-get-current-book)) ;XXX Grab this from elsewhere
(type (opt-val "__reg" "owner-type"))
(type-str ""))
More information about the gnucash-changes
mailing list