[report-utilities] further deprecations

* deprecate unused functions
* last deprecation for gnc:query-set-match-non-voids-only!
This commit is contained in:
Christopher Lam
2020-09-20 22:41:17 +08:00
parent 64dedccfe3
commit 0ca468e0a1

View File

@@ -504,6 +504,7 @@
;; b) the result is sign reversed. Returns a commodity-collector. ;; b) the result is sign reversed. Returns a commodity-collector.
(define (gnc:accounts-get-comm-total-profit accounts (define (gnc:accounts-get-comm-total-profit accounts
get-balance-fn) get-balance-fn)
(issue-deprecation-warning "gnc:accounts-get-comm-total-profit deprecated.")
(gnc:accounts-get-balance-helper (gnc:accounts-get-balance-helper
(gnc:filter-accountlist-type (list ACCT-TYPE-INCOME ACCT-TYPE-EXPENSE) accounts) (gnc:filter-accountlist-type (list ACCT-TYPE-INCOME ACCT-TYPE-EXPENSE) accounts)
get-balance-fn get-balance-fn
@@ -514,6 +515,7 @@
;; the result is sign reversed. Returns a commodity-collector. ;; the result is sign reversed. Returns a commodity-collector.
(define (gnc:accounts-get-comm-total-income accounts (define (gnc:accounts-get-comm-total-income accounts
get-balance-fn) get-balance-fn)
(issue-deprecation-warning "gnc:accounts-get-comm-total-income deprecated.")
(gnc:accounts-get-balance-helper (gnc:accounts-get-balance-helper
(gnc:filter-accountlist-type (list ACCT-TYPE-INCOME) accounts) (gnc:filter-accountlist-type (list ACCT-TYPE-INCOME) accounts)
get-balance-fn get-balance-fn
@@ -524,6 +526,7 @@
;; the result is sign reversed. Returns a commodity-collector. ;; the result is sign reversed. Returns a commodity-collector.
(define (gnc:accounts-get-comm-total-expense accounts (define (gnc:accounts-get-comm-total-expense accounts
get-balance-fn) get-balance-fn)
(issue-deprecation-warning "gnc:accounts-get-comm-total-expense deprecated.")
(gnc:accounts-get-balance-helper (gnc:accounts-get-balance-helper
(gnc:filter-accountlist-type (list ACCT-TYPE-EXPENSE) accounts) (gnc:filter-accountlist-type (list ACCT-TYPE-EXPENSE) accounts)
get-balance-fn get-balance-fn
@@ -696,7 +699,8 @@ query instead.")
(regexp (get-val 'regexp)) (regexp (get-val 'regexp))
(closing (get-val 'closing))) (closing (get-val 'closing)))
(qof-query-set-book query (gnc-get-current-book)) (qof-query-set-book query (gnc-get-current-book))
(gnc:query-set-match-non-voids-only! query (gnc-get-current-book)) (xaccQueryAddClearedMatch
query (logand CLEARED-ALL (lognot CLEARED-VOIDED)) QOF-QUERY-AND)
(xaccQueryAddAccountMatch query account-list QOF-GUID-MATCH-ANY QOF-QUERY-AND) (xaccQueryAddAccountMatch query account-list QOF-GUID-MATCH-ANY QOF-QUERY-AND)
(xaccQueryAddDateMatchTT (xaccQueryAddDateMatchTT
query query