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

REFACTOR: simplify num/t-num display code

Browse Source
This commit is contained in:
Christopher Lam 2017-11-29 18:27:30 +08:00
parent 005fdb5f43
commit 39dceb5534
1 changed files with 12 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
gnucash/report/standard-reports/transaction.scm
View File

@ -877,20 +877,18 @@ tags within description, notes or memo. ")
(_ "Num/T-Num")
(_ "Num"))
(lambda (split transaction-row?)
(define trans (xaccSplitGetParent split))
(if transaction-row?
(if BOOK-SPLIT-ACTION
(let* ((num (gnc-get-num-action trans split))
(t-num (if (opt-val gnc:pagename-display (N_ "Trans Number"))
(gnc-get-num-action trans #f)
""))
(num-string (if (string-null? t-num)
num
(string-append num "/" t-num))))
(gnc:make-html-table-cell/markup "text-cell" num-string))
(gnc:make-html-table-cell/markup "text-cell"
(gnc-get-num-action trans split)))
""))))
(let* ((trans (xaccSplitGetParent split))
(num (gnc-get-num-action trans split))
(t-num (if (and BOOK-SPLIT-ACTION
(opt-val gnc:pagename-display (N_ "Trans Number")))
(gnc-get-num-action trans #f)
""))
(num-string (if (string-null? t-num)
num
(string-append num "/" t-num))))
(if transaction-row?
(gnc:make-html-table-cell/markup "text-cell" num-string)
"")))))
(add-if (column-uses? 'description)
(vector (_ "Description")