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

[advanced-portfolio] use G_ for guile-3.0

Browse Source
This commit is contained in:
Christopher Lam 2020-08-01 10:12:38 +08:00
parent 6f1960313f
commit 12ab85fa6c
1 changed files with 21 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
gnucash/report/reports/standard/advanced-portfolio.scm
View File

@ -1048,8 +1048,8 @@ by preventing negative stock balances.<br/>")
(lambda (foreign domestic date) (lambda (foreign domestic date)
(find-price (gnc-pricedb-lookup-nearest-in-time-any-currency-t64 (find-price (gnc-pricedb-lookup-nearest-in-time-any-currency-t64
pricedb foreign (time64CanonicalDayTime date)) domestic))))) pricedb foreign (time64CanonicalDayTime date)) domestic)))))
(headercols (list (_ "Account"))) (headercols (list (G_ "Account")))
(totalscols (list (gnc:make-html-table-cell/markup "total-label-cell" (_ "Total")))) (totalscols (list (gnc:make-html-table-cell/markup "total-label-cell" (G_ "Total"))))
(sum-total-moneyin (gnc-numeric-zero)) (sum-total-moneyin (gnc-numeric-zero))
(sum-total-income (gnc-numeric-zero)) (sum-total-income (gnc-numeric-zero))
(sum-total-both-gains (gnc-numeric-zero)) (sum-total-both-gains (gnc-numeric-zero))
@ -1060,37 +1060,37 @@ by preventing negative stock balances.<br/>")
;;begin building lists for which columns to display ;;begin building lists for which columns to display
(if show-symbol (if show-symbol
(begin (append! headercols (list (_ "Symbol"))) (begin (append! headercols (list (G_ "Symbol")))
(append! totalscols (list " ")))) (append! totalscols (list " "))))
(if show-listing (if show-listing
(begin (append! headercols (list (_ "Listing"))) (begin (append! headercols (list (G_ "Listing")))
(append! totalscols (list " ")))) (append! totalscols (list " "))))
(if show-shares (if show-shares
(begin (append! headercols (list (_ "Shares"))) (begin (append! headercols (list (G_ "Shares")))
(append! totalscols (list " ")))) (append! totalscols (list " "))))
(if show-price (if show-price
(begin (append! headercols (list (_ "Price"))) (begin (append! headercols (list (G_ "Price")))
(append! totalscols (list " ")))) (append! totalscols (list " "))))
(append! headercols (list " " (append! headercols (list " "
(_ "Basis") (G_ "Basis")
(_ "Value") (G_ "Value")
(_ "Money In") (G_ "Money In")
(_ "Money Out") (G_ "Money Out")
(_ "Realized Gain") (G_ "Realized Gain")
(_ "Unrealized Gain") (G_ "Unrealized Gain")
(_ "Total Gain") (G_ "Total Gain")
(_ "Rate of Gain") (G_ "Rate of Gain")
(_ "Income"))) (G_ "Income")))
(if (not (eq? handle-brokerage-fees 'ignore-brokerage)) (if (not (eq? handle-brokerage-fees 'ignore-brokerage))
(append! headercols (list (_ "Brokerage Fees")))) (append! headercols (list (G_ "Brokerage Fees"))))
(append! headercols (list (_ "Total Return") (append! headercols (list (G_ "Total Return")
(_ "Rate of Return"))) (G_ "Rate of Return")))
(append! totalscols (list " ")) (append! totalscols (list " "))
@ -1187,14 +1187,14 @@ by preventing negative stock balances.<br/>")
(gnc:html-document-add-object! document table) (gnc:html-document-add-object! document table)
(if warn-price-dirty (if warn-price-dirty
(gnc:html-document-append-objects! document (gnc:html-document-append-objects! document
(list (gnc:make-html-text (_ "* this commodity data was built using transaction pricing instead of the price list.")) (list (gnc:make-html-text (G_ "* this commodity data was built using transaction pricing instead of the price list."))
(gnc:make-html-text (gnc:html-markup-br)) (gnc:make-html-text (gnc:html-markup-br))
(gnc:make-html-text (_ "If you are in a multi-currency situation, the exchanges may not be correct."))))) (gnc:make-html-text (G_ "If you are in a multi-currency situation, the exchanges may not be correct.")))))
(if warn-no-price (if warn-no-price
(gnc:html-document-append-objects! document (gnc:html-document-append-objects! document
(list (gnc:make-html-text (if warn-price-dirty (gnc:html-markup-br) "")) (list (gnc:make-html-text (if warn-price-dirty (gnc:html-markup-br) ""))
(gnc:make-html-text (_ "** this commodity has no price and a price of 1 has been used."))))) (gnc:make-html-text (G_ "** this commodity has no price and a price of 1 has been used.")))))
) )
;if no accounts selected. ;if no accounts selected.