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

[balsheet-pnl] income statement parent account can link to TR

Browse Source 
this commit modifies the recursive-parent subtotal generator to also
include a link to a transaction report with all relevant accounts.
This commit is contained in:
Christopher Lam
2019-11-20 21:00:14 +08:00
parent 1ab95b5563
commit 2671814251
1 changed files with 15 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
gnucash/report/standard-reports/balsheet-pnl.scm
View File

@@ -573,7 +573,10 @@ also show overall period profit & loss."))
col-datum col-datum
#t) #t)
col-datum col-datum
#f))) (and get-cell-anchor-fn
(get-cell-anchor-fn
(account-and-descendants lvl-acct)
col-datum)))))
cols-data)))) cols-data))))
(define* (add-account-row lvl-curr curr #:key (define* (add-account-row lvl-curr curr #:key
@@ -903,13 +906,14 @@ also show overall period profit & loss."))
(list-ref account-balance-list (1+ col-idx)))))) (list-ref account-balance-list (1+ col-idx))))))
(get-cell-anchor-fn (get-cell-anchor-fn
(lambda (account col-idx) (lambda (account col-idx)
(let* ((splits (xaccAccountGetSplitList account)) (and (not (pair? account))
(split-date (compose xaccTransGetDate xaccSplitGetParent)) (let* ((splits (xaccAccountGetSplitList account))
(date (list-ref report-dates col-idx)) (split-date (compose xaccTransGetDate xaccSplitGetParent))
(valid-split? (lambda (s) (< (split-date s) date))) (date (list-ref report-dates col-idx))
(valid-splits (filter valid-split? splits))) (valid-split? (lambda (s) (< (split-date s) date)))
(and (pair? valid-splits) (valid-splits (filter valid-split? splits)))
(gnc:split-anchor-text (last valid-splits)))))) (and (pair? valid-splits)
(gnc:split-anchor-text (last valid-splits)))))))
(asset-liability-balances (asset-liability-balances
(let ((asset-liab-balances (let ((asset-liab-balances
@@ -1149,7 +1153,9 @@ also show overall period profit & loss."))
(or common-currency book-main-currency)) (or common-currency book-main-currency))
(list "Display" "Amount" 'double) (list "Display" "Amount" 'double)
(list "Accounts" "Accounts" (list "Accounts" "Accounts"
(list account)))))) (if (pair? account)
account
(list account)))))))
(chart (and include-chart? (chart (and include-chart?
(gnc:make-report-anchor (gnc:make-report-anchor