IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2024-11-26 10:51:09 -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
Show Stats 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
#t)
col-datum
#f)))
(and get-cell-anchor-fn
(get-cell-anchor-fn
(account-and-descendants lvl-acct)
col-datum)))))
cols-data))))
(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))))))
(get-cell-anchor-fn
(lambda (account col-idx)
(let* ((splits (xaccAccountGetSplitList account))
(split-date (compose xaccTransGetDate xaccSplitGetParent))
(date (list-ref report-dates col-idx))
(valid-split? (lambda (s) (< (split-date s) date)))
(valid-splits (filter valid-split? splits)))
(and (pair? valid-splits)
(gnc:split-anchor-text (last valid-splits))))))
(and (not (pair? account))
(let* ((splits (xaccAccountGetSplitList account))
(split-date (compose xaccTransGetDate xaccSplitGetParent))
(date (list-ref report-dates col-idx))
(valid-split? (lambda (s) (< (split-date s) date)))
(valid-splits (filter valid-split? splits)))
(and (pair? valid-splits)
(gnc:split-anchor-text (last valid-splits)))))))
(asset-liability-balances
(let ((asset-liab-balances
@ -1149,7 +1153,9 @@ also show overall period profit & loss."))
(or common-currency book-main-currency))
(list "Display" "Amount" 'double)
(list "Accounts" "Accounts"
(list account))))))
(if (pair? account)
account
(list account)))))))
(chart (and include-chart?
(gnc:make-report-anchor