IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

ENH: Formalise Reconciliation Report as a new menu item.

Browse Source 
This commit offers a new item with defaults appropriate for a reconcilation report.
This commit is contained in:
Christopher Lam 2017-12-02 17:46:31 +08:00
parent 7a5f2ed49b
commit 1ea1bcb38e
1 changed files with 26 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
gnucash/report/standard-reports/transaction.scm
View File

@ -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)