From 1ea1bcb38ebc8ad2dc2f024b7f8116a1be7eeefb Mon Sep 17 00:00:00 2001
From: Christopher Lam <christopher.lck@gmail.com>
Date: Sat, 2 Dec 2017 17:46:31 +0800
Subject: [PATCH] ENH: Formalise Reconciliation Report as a new menu item.

This commit offers a new item with defaults appropriate for a reconcilation report.
---
 .../report/standard-reports/transaction.scm   | 28 +++++++++++++++++--
 1 file changed, 26 insertions(+), 2 deletions(-)

diff --git a/gnucash/report/standard-reports/transaction.scm b/gnucash/report/standard-reports/transaction.scm
index 382bc29873..28b2af5e0e 100644
--- a/gnucash/report/standard-reports/transaction.scm
+++ b/gnucash/report/standard-reports/transaction.scm
@@ -17,6 +17,7 @@
 ;; - add informational box, summarising options used, useful
 ;;   to troubleshoot reports
 ;; - add support for indenting for better grouping
+;; - add defaults suitable for a reconciliation report
 ;;
 ;; This program is free software; you can redistribute it and/or    
 ;; modify it under the terms of the GNU General Public License as   
@@ -384,6 +385,24 @@ Credit Card, and Income accounts."))
    keylist))
 
 
+;;
+;; Set defaults for reconcilation report
+;;
+(define (reconcile-report-options-generator)
+  (define options (trep-options-generator))
+  (gnc:option-set-value (gnc:lookup-option options pagename-sorting optname-prime-sortkey) 'reconciled-status)
+  (gnc:option-set-value (gnc:lookup-option options pagename-sorting optname-sec-sortkey)   'date)
+  (gnc:option-set-value (gnc:lookup-option options pagename-sorting optname-sec-date-subtotal) 'none)
+  (gnc:option-set-value (gnc:lookup-option options gnc:pagename-general optname-startdate) (cons 'relative 'start-prev-quarter))
+  (gnc:option-set-value (gnc:lookup-option options gnc:pagename-general optname-enddate)   (cons 'relative 'today))
+  (gnc:option-set-value (gnc:lookup-option options gnc:pagename-display (N_ "Reconciled Date")) #t)
+  (gnc:option-set-value (gnc:lookup-option options gnc:pagename-display (N_ "Running Balance")) #t)
+  (gnc:option-set-value (gnc:lookup-option options gnc:pagename-display (N_ "Memo")) #f)
+  options)
+
+;;
+;; Default Transaction Report
+;;
 (define (trep-options-generator)
 
   (define options (gnc:new-options))
@@ -1865,11 +1884,16 @@ tags within description, notes or memo. ")
 
 ;; Define the report.
 (gnc:define-report
-
  'version 1
+ 'name (_ "Reconciliation Report")
+ 'report-guid "e45218c6d76f11e7b5ef0800277ef320"
+ 'options-generator reconcile-report-options-generator
+ 'renderer trep-renderer)
 
+;; Define the report.
+(gnc:define-report
+ 'version 1
  'name reportname
  'report-guid "2fe3b9833af044abb929a88d5a59620f"
-
  'options-generator trep-options-generator
  'renderer trep-renderer)