aherman
/
gnucash
mirror of https://github.com/Gnucash/gnucash
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

REWRITE income-gst-statement.scm

Browse Source 
This commit rewrites income-gst-statement.scm to be a derivation
of transaction.scm, modifying the options database and passing
custom arguments to the trep-renderer.

This should hopefully reduce risk of errors.
pull/273/head
Christopher Lam 8 years ago
parent 88b3446299
commit 276a7d24d2
3 changed files with 226 additions and 1765 deletions
Show Stats Download Patch File Download Diff File

1930
gnucash/report/standard-reports/income-gst-statement.scm
View File

File diff suppressed because it is too large Load Diff

53
gnucash/report/standard-reports/transaction.scm
Unescape View File

@ -870,7 +870,10 @@ tags within description, notes or memo. ")
gnc:pagename-display (N_ "Sign Reverses")
"m1" (_ "Reverse amount display for certain account types.")
'global
(keylist->vectorlist sign-reverse-list))))
(keylist->vectorlist sign-reverse-list)))
(gnc:register-trep-option
(gnc:make-internal-option "__trep" "unique-transactions" #f)))
(gnc:options-set-default-section options gnc:pagename-general)
options)
@ -878,9 +881,13 @@ tags within description, notes or memo. ")
;; ;;;;;;;;;;;;;;;;;;;;
;; Here comes the big function that builds the whole table.
(define (make-split-table splits options)
(define (make-split-table splits options custom-calculated-cells)
(define (opt-val section name) (gnc:option-value (gnc:lookup-option options section name)))
(define (opt-val section name)
(let ((option (gnc:lookup-option options section name)))
(if option
(gnc:option-value option)
(error (format #f "cannot find ~a ~a" section name)))))
(define BOOK-SPLIT-ACTION (qof-book-use-split-action-for-num-field (gnc-get-current-book)))
(define (build-columns-used)
@ -1059,7 +1066,7 @@ tags within description, notes or memo. ")
;;
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define calculated-cells
(define default-calculated-cells
(letrec
((damount (lambda (s) (if (gnc:split-voided? s)
(xaccSplitVoidFormerAmount s)
@ -1149,6 +1156,14 @@ tags within description, notes or memo. ")
(lambda (a) "")))
'()))))
(define calculated-cells
;; this part will check whether custom-calculated-cells were specified. this
;; describes a custom function which consumes an options list, and generates
;; a vectorlist similar to default-calculated-cells as above.
(if custom-calculated-cells
(custom-calculated-cells options)
default-calculated-cells))
(define headings-left-columns
(map (lambda (column)
(vector-ref column 0))
@ -1588,7 +1603,7 @@ tags within description, notes or memo. ")
;; Here comes the renderer function for this report.
(define (trep-renderer report-obj)
(define* (trep-renderer report-obj #:key custom-calculated-cells empty-report-message)
(define options (gnc:report-options report-obj))
(define (opt-val section name) (gnc:option-value (gnc:lookup-option options section name)))
(define BOOK-SPLIT-ACTION (qof-book-use-split-action-for-num-field (gnc-get-current-book)))
@ -1710,9 +1725,17 @@ tags within description, notes or memo. ")
;; error condition: no accounts specified or obtained after filtering
(begin
(gnc:html-document-add-object!
document
(gnc:html-make-no-account-warning report-title (gnc:report-id report-obj)))
;; error condition: no accounts specified
(begin
(gnc:html-document-add-object!
document
(gnc:html-make-no-account-warning report-title (gnc:report-id report-obj)))
(and empty-report-message
(gnc:html-document-add-object!
document
empty-report-message)))
(if (member 'no-match infobox-display)
(gnc:html-document-add-object!
@ -1738,7 +1761,10 @@ tags within description, notes or memo. ")
(eq? primary-order 'ascend)
(eq? secondary-order 'ascend)
#t)))
(set! splits (qof-query-run query))
(if (opt-val "__trep" "unique-transactions")
(set! splits (xaccQueryGetSplitsUniqueTrans query))
(set! splits (qof-query-run query)))
(qof-query-destroy query)
@ -1786,7 +1812,7 @@ tags within description, notes or memo. ")
document
(gnc:render-options-changed options))))
(let ((table (make-split-table splits options)))
(let ((table (make-split-table splits options custom-calculated-cells)))
(gnc:html-document-set-title! document report-title)
@ -1810,6 +1836,11 @@ tags within description, notes or memo. ")
document))
(define trep-guid "2fe3b9833af044abb929a88d5a59620f")
(export trep-guid)
(export trep-renderer)
(export trep-options-generator)
;; Define the report.
(gnc:define-report
'version 1
@ -1822,6 +1853,6 @@ tags within description, notes or memo. ")
(gnc:define-report
'version 1
'name reportname
'report-guid "2fe3b9833af044abb929a88d5a59620f"
'report-guid trep-guid
'options-generator trep-options-generator
'renderer trep-renderer)

8
libgnucash/app-utils/options.scm
Unescape View File

@ -1721,7 +1721,13 @@
"Use Full Other Account Name?" (cons #f "Use Full Other Account Name")
"Void Transactions?" (cons "Filter" "Void Transactions")
"Void Transactions" (cons "Filter" "Void Transactions")
"Account Substring" (cons "Filter" "Account Matcher")
"Account Substring" (cons "Filter" "Account Name Filter")
"Account Matcher" (cons "Filter" "Account Name Filter")
"Transaction Matcher" (cons "Filter" "Transaction Filter")
"Account Matcher uses regular expressions for extended matching"
(cons "Filter" "Use regular expressions for account name filter")
"Transaction Matcher uses regular expressions for extended matching"
(cons "Filter" "Use regular expressions for transaction filter")
))
(name-match (member name new-names-list)))

Write Preview
Loading…
Cancel
Save