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