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

cli-reports: if run-report matches multiple, offer choices

Browse Source 
If --run-report="Reportname" matches multiple reports, offer a
disambiguation. Will show guid and display the options selected in the
saved report. Example:

"Multicolumn View" matches multiple reports. Select guid instead:

* guid: 2f17ecb535f24a3a9f314bc5855569e5
General / Number of columns: 2.0
General / Report name: A saved-report based on multicolumn-view
General / Stylesheet: Easy

* guid: d8ba4a2e89e8479ca9f6eccdeb164588
This commit is contained in:
Christopher Lam
2020-05-30 23:10:31 +08:00
parent ad826e0f44
commit b0effbc36f
1 changed files with 23 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
gnucash/report/report-core.scm
View File

@@ -800,24 +800,22 @@ not found.")))
(display "done!\n" (current-error-port))))))
(define-public (gnc:cmdline-run-report report export-type output-file dry-run?)
(let ((template (or (gnc:find-report-template report)
(let ((retval #f))
(hash-for-each
(lambda (report-guid template)
(when (equal? (gnc:report-template-name template) report)
(set! retval template)))
*gnc:_report-templates_*)
retval))))
(let ((templates (or (and=> (gnc:find-report-template report) list)
(hash-fold
(lambda (report-guid template prev)
(if (equal? (gnc:report-template-name template) report)
(cons template prev) prev))
'() *gnc:_report-templates_*))))
(define (run-report output-port)
(display
(gnc:report-render-html
(gnc-report-find
(gnc:make-report
(gnc:report-template-report-guid template))) #t) output-port))
(gnc:report-template-report-guid (car templates)))) #t) output-port))
(cond
((not template)
((null? templates)
(stderr-log "Cannot find ~s. Valid reports:\n" report)
(for-each
(lambda (pair)
@@ -831,7 +829,21 @@ not found.")))
(gnc:report-template-name (cdr a))
(gnc:report-template-name (cdr b))))))
(stderr-log "\n"))
(export-type (template-export report template export-type output-file dry-run?))
((pair? (cdr templates))
(stderr-log "~s matches multiple reports. Select guid instead:\n" report)
(for-each
(lambda (template)
(let* ((options-gen (gnc:report-template-options-generator template))
(options (options-gen)))
(stderr-log "\n* guid: ~a\n~a"
(gnc:report-template-report-guid template)
(gnc:html-render-options-changed options #t))))
templates)
(stderr-log "\n"))
(export-type (template-export report (car templates)
export-type output-file dry-run?))
(dry-run? #t)
(output-file
(format (current-error-port) "Saving report to ~a..." output-file)