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

[register.scm] some cleanups

Browse Source
This commit is contained in:
Christopher Lam 2020-10-30 10:49:34 +08:00
parent cebe6022c8
commit 9e70d7f45a
1 changed files with 12 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
gnucash/report/reports/standard/register.scm
View File

@ -177,12 +177,9 @@
(if (date-col column-vector) (if (date-col column-vector)
(addto! row-contents (addto! row-contents
(if transaction-info? (and transaction-info?
(gnc:make-html-table-cell/markup (gnc:make-html-table-cell/markup
"date-cell" "date-cell" (qof-print-date (xaccTransGetDate parent))))))
(qof-print-date
(xaccTransGetDate parent)))
" ")))
(if (num-col column-vector) (if (num-col column-vector)
(addto! row-contents (addto! row-contents
(gnc:make-html-table-cell/markup (gnc:make-html-table-cell/markup
@ -191,29 +188,18 @@
(if (and action-for-num? ledger-type?) (if (and action-for-num? ledger-type?)
(gnc-get-num-action parent #f) (gnc-get-num-action parent #f)
(gnc-get-num-action parent split)) (gnc-get-num-action parent split))
(if split-info? (and split-info? (gnc-get-action-num #f split))))))
(gnc-get-action-num #f split)
" ")))))
(if (description-col column-vector) (if (description-col column-vector)
(addto! row-contents (addto! row-contents
(gnc:make-html-table-cell/markup (gnc:make-html-table-cell/markup
"text-cell" "text-cell"
(if transaction-info? (if transaction-info?
(if description? (and description? (xaccTransGetDescription parent))
(xaccTransGetDescription parent) (and split-info? memo? (xaccSplitGetMemo split))))))
" " )
(if split-info?
(if memo?
(xaccSplitGetMemo split)
" ")
" ")))))
(if (memo-col column-vector) (if (memo-col column-vector)
(addto! row-contents (addto! row-contents
(gnc:make-html-table-cell/markup (gnc:make-html-table-cell/markup
"text-cell" "text-cell" (and transaction-info? (xaccSplitGetMemo split)))))
(if transaction-info?
(xaccSplitGetMemo split)
" "))))
(if (account-col column-vector) (if (account-col column-vector)
(addto! row-contents (addto! row-contents
(gnc:make-html-table-cell/markup (gnc:make-html-table-cell/markup
@ -231,24 +217,19 @@
(addto! row-contents (addto! row-contents
(gnc:make-html-table-cell/markup (gnc:make-html-table-cell/markup
"number-cell" "number-cell"
(if split-info? (and split-info? (xaccSplitGetAmount split)))))
(xaccSplitGetAmount split)
" "))))
(if (lot-col column-vector) (if (lot-col column-vector)
(addto! row-contents (addto! row-contents
(gnc:make-html-table-cell/markup (gnc:make-html-table-cell/markup
"text-cell" "text-cell"
(if split-info? (if split-info? (gnc-lot-get-title (xaccSplitGetLot split))))))
(gnc-lot-get-title (xaccSplitGetLot split))
" "))))
(if (price-col column-vector) (if (price-col column-vector)
(addto! row-contents (addto! row-contents
(gnc:make-html-table-cell/markup (gnc:make-html-table-cell/markup
"number-cell" "number-cell"
(if split-info? (and split-info?
(gnc:default-price-renderer (gnc:default-price-renderer
trans-currency (xaccSplitGetSharePrice split)) trans-currency (xaccSplitGetSharePrice split))))))
" "))))
(if (amount-single-col column-vector) (if (amount-single-col column-vector)
(addto! row-contents (addto! row-contents
(if split-info? (if split-info?