mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
Christian Stimming's balance and pnl report patch.
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@3038 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas
parent
889c27cc18
commit
6162eb6a4b
@ -265,6 +265,9 @@
|
||||
;; total <amount>. The results is a list of each call's result.
|
||||
;; 'merge <currency-collector> #f: Merge the given other currency-collector into
|
||||
;; this one, adding all currencies' amounts, respectively.
|
||||
;; 'minusmerge <currency-collector> #f: Merge the given other
|
||||
;; currency-collector into this one (like above) but subtract the other's
|
||||
;; currencies' amounts from this one's amounts, respectively.
|
||||
;; 'reset #f #f: Delete everything that has been accumulated
|
||||
;; (even the fact that any currency showed up at all).
|
||||
;; (internal) 'list #f #f: get the association list of currency->value-collector
|
||||
@ -296,6 +299,13 @@
|
||||
((cadar clist) 'total #f))
|
||||
(add-currency-clist (cdr clist)))))
|
||||
|
||||
(define (minus-currency-clist clist)
|
||||
(cond ((null? clist) '())
|
||||
(else (add-currency-value (caar clist)
|
||||
(* -1
|
||||
((cadar clist) 'total #f)))
|
||||
(minus-currency-clist (cdr clist)))))
|
||||
|
||||
;; helper function walk the association list doing a callback on
|
||||
;; each key-value pair.
|
||||
(define (process-currency-list fn clist)
|
||||
@ -308,6 +318,7 @@
|
||||
(case action
|
||||
('add (add-currency-value currency amount))
|
||||
('merge (add-currency-clist (currency 'list #f #f)))
|
||||
('minusmerge (minus-currency-clist (currency 'list #f #f)))
|
||||
('format (process-currency-list currency currencylist))
|
||||
('reset (set! currencylist '()))
|
||||
('list currencylist) ; this one is only for internal use
|
||||
@ -378,6 +389,29 @@
|
||||
(gnc:split-get-balance split)
|
||||
(gnc:account-get-split account (+ index 1))))))))
|
||||
|
||||
;; This works similar as above but returns a currency-collector,
|
||||
;; thus takes care of children accounts with different currencies.
|
||||
(define (gnc:account-get-curr-balance-at-date account
|
||||
date include-children?)
|
||||
(let ((balance-collector
|
||||
(if include-children?
|
||||
(gnc:group-get-curr-balance-at-date
|
||||
(gnc:account-get-children account) date)
|
||||
(make-currency-collector))))
|
||||
(let loop ((index 0)
|
||||
(balance 0)
|
||||
(split (gnc:account-get-split account 0)))
|
||||
(if (pointer-token-null? split)
|
||||
(balance-collector 'add (gnc:account-get-currency account)
|
||||
balance)
|
||||
(if (gnc:timepair-lt date (gnc:split-get-transaction-date split))
|
||||
(balance-collector 'add (gnc:account-get-currency account)
|
||||
balance)
|
||||
(loop (+ index 1)
|
||||
(gnc:split-get-balance split)
|
||||
(gnc:account-get-split account (+ index 1))))))
|
||||
balance-collector))
|
||||
|
||||
;; get the balance of a group of accounts at the specified date.
|
||||
;; all children are included in the calculation
|
||||
(define (gnc:group-get-balance-at-date group date)
|
||||
@ -386,6 +420,15 @@
|
||||
(lambda (account)
|
||||
(gnc:account-get-balance-at-date account date #t)) group)))
|
||||
|
||||
;; returns a currency-collector
|
||||
(define (gnc:group-get-curr-balance-at-date group date)
|
||||
(let ((this-collector (make-currency-collector)))
|
||||
(for-each (lambda (x) (this-collector 'merge x #f))
|
||||
(gnc:group-map-accounts
|
||||
(lambda (account)
|
||||
(gnc:account-get-curr-balance-at-date account date #t)) group))
|
||||
this-collector))
|
||||
|
||||
;; get the change in balance from the 'from' date to the 'to' date.
|
||||
;; this isn't quite as efficient as it could be, but it's a whole lot
|
||||
;; simpler :)
|
||||
@ -393,12 +436,31 @@
|
||||
(- (gnc:account-get-balance-at-date account to include-children?)
|
||||
(gnc:account-get-balance-at-date account from include-children?)))
|
||||
|
||||
;; the version which returns a currency-collector
|
||||
(define (gnc:account-get-curr-balance-interval
|
||||
account from to include-children?)
|
||||
(let ((this-collector (gnc:account-get-curr-balance-at-date
|
||||
account to include-children?)))
|
||||
(this-collector 'minusmerge (gnc:account-get-curr-balance-at-date
|
||||
account from include-children?) #f)
|
||||
this-collector))
|
||||
|
||||
(define (gnc:group-get-balance-interval group from to)
|
||||
(apply +
|
||||
(gnc:group-map-accounts
|
||||
(lambda (account)
|
||||
(gnc:account-get-balance-interval account from to #t)) group)))
|
||||
|
||||
;; the version which returns a currency-collector
|
||||
(define (gnc:group-get-curr-balance-interval group from to)
|
||||
(let ((this-collector (make-currency-collector)))
|
||||
(for-each (lambda (x) (this-collector 'merge x #f))
|
||||
(gnc:group-map-accounts
|
||||
(lambda (account)
|
||||
(gnc:account-get-curr-balance-interval
|
||||
account from to #t)) group))
|
||||
this-collector))
|
||||
|
||||
(define (gnc:transaction-get-splits transaction)
|
||||
(let* ((num-splits (gnc:transaction-get-split-count transaction)))
|
||||
(let loop ((index 0))
|
||||
|
||||
@ -16,39 +16,126 @@
|
||||
;; Boston, MA 02111-1307, USA gnu@gnu.org
|
||||
|
||||
;; Balance and Profit/Loss Reports
|
||||
;;
|
||||
;; A lot of currency handling extensions by
|
||||
;; Christian Stimming <stimming@uclink.berkeley.edu> on 10/09/2000.
|
||||
|
||||
(gnc:support "report/balance-and-pnl.scm")
|
||||
(gnc:depend "html-generator.scm")
|
||||
(gnc:depend "text-export.scm")
|
||||
(gnc:depend "report-utilities.scm")
|
||||
(gnc:depend "options.scm")
|
||||
(gnc:depend "currencies.scm")
|
||||
|
||||
|
||||
;; Just a private scope.
|
||||
(let
|
||||
((l0-collector (make-currency-collector))
|
||||
(l1-collector (make-currency-collector))
|
||||
(l2-collector (make-currency-collector)))
|
||||
(l2-collector (make-currency-collector))
|
||||
(default-exchange-rate 0) ;; if there is no user-specified exchange rate
|
||||
(currency-pref-options
|
||||
'(("Currency 1" "USD")
|
||||
("Currency 2" "EUR")
|
||||
("Currency 3" "DEM")
|
||||
("Currency 4" "GBP")
|
||||
("Currency 5" "FRF")))
|
||||
(currency-option-value-prefix "Exchange rate for "))
|
||||
|
||||
(define string-db (gnc:make-string-database))
|
||||
|
||||
(define (register-common-options option-registerer)
|
||||
(begin
|
||||
(option-registerer
|
||||
(gnc:make-date-option
|
||||
"Report" "To"
|
||||
"a" "Calculate balance sheet up to this date"
|
||||
(lambda ()
|
||||
(let ((bdtime (localtime (current-time))))
|
||||
(set-tm:sec bdtime 59)
|
||||
(set-tm:min bdtime 59)
|
||||
(set-tm:hour bdtime 23)
|
||||
(let ((time (car (mktime bdtime))))
|
||||
(cons 'absolute (cons time 0)))))
|
||||
#f 'absolute #f))
|
||||
|
||||
;; doesn't seem to work -- see at the very main loop
|
||||
; ;; accounts to do report on
|
||||
; (option-registerer
|
||||
; (gnc:make-account-list-option
|
||||
; "Report" "Account"
|
||||
; "c" "Do the report on these accounts"
|
||||
; (lambda ()
|
||||
; (let ((current-accounts (gnc:get-current-accounts))
|
||||
; (num-accounts
|
||||
; (gnc:group-get-num-accounts (gnc:get-current-group))))
|
||||
; (cond ((not (null? current-accounts)) current-accounts)
|
||||
; (else
|
||||
; (let ((acctlist '()))
|
||||
; (gnc:for-loop
|
||||
; (lambda(x)
|
||||
; (set! acctlist
|
||||
; (append!
|
||||
; acctlist
|
||||
; (list (gnc:group-get-account
|
||||
; (gnc:get-current-group) x)))))
|
||||
; 0 num-accounts 1)
|
||||
; acctlist)))))
|
||||
; #f #t))
|
||||
|
||||
(option-registerer
|
||||
(gnc:make-simple-boolean-option
|
||||
"Display" "Type"
|
||||
"b" "Display the account type?" #t))
|
||||
|
||||
; (option-registerer
|
||||
; (gnc:make-simple-boolean-option
|
||||
; "Display" "Num"
|
||||
; "b" "Display the account number?" #t))
|
||||
|
||||
(option-registerer
|
||||
(gnc:make-simple-boolean-option
|
||||
"Display" "Foreign Currency"
|
||||
"b" "Display the account's foreign currency amount?" #t))
|
||||
|
||||
(option-registerer
|
||||
(gnc:make-currency-option
|
||||
"Currencies" "Report's currency"
|
||||
"AA" "All other currencies will get converted to this currency."
|
||||
(gnc:locale-default-currency)))
|
||||
|
||||
(option-registerer
|
||||
(gnc:make-simple-boolean-option
|
||||
"Currencies" "Other currencies' total"
|
||||
"AB" "Show the total amount of other currencies?" #f))
|
||||
|
||||
(for-each
|
||||
(lambda(x)(begin (option-registerer
|
||||
(gnc:make-currency-option
|
||||
"Currencies" (car x)
|
||||
(string-append (car x) "a")
|
||||
"Choose foreign currency to specify an exchange rate for"
|
||||
(cadr x)))
|
||||
(option-registerer
|
||||
(gnc:make-string-option
|
||||
"Currencies"
|
||||
(string-append currency-option-value-prefix (car x))
|
||||
(string-append (car x) "b")
|
||||
"Choose exchange rate for above currency"
|
||||
(number->string default-exchange-rate)))))
|
||||
currency-pref-options)))
|
||||
|
||||
(define (balsht-options-generator)
|
||||
(define gnc:*balsht-report-options* (gnc:new-options))
|
||||
(define (gnc:register-balsht-option new-option)
|
||||
(gnc:register-option gnc:*balsht-report-options* new-option))
|
||||
|
||||
(gnc:register-balsht-option
|
||||
(gnc:make-date-option
|
||||
"Report Options" "To"
|
||||
"a" "Calculate balance sheet up to this date"
|
||||
(lambda ()
|
||||
(let ((bdtime (localtime (current-time))))
|
||||
(set-tm:sec bdtime 59)
|
||||
(set-tm:min bdtime 59)
|
||||
(set-tm:hour bdtime 23)
|
||||
(let ((time (car (mktime bdtime))))
|
||||
(cons 'absolute (cons time 0)))))
|
||||
#f 'absolute #f))
|
||||
;; The lazy way :-] Common options for both reports in one.
|
||||
(register-common-options gnc:register-balsht-option)
|
||||
|
||||
(gnc:options-set-default-section gnc:*balsht-report-options*
|
||||
"Report")
|
||||
|
||||
gnc:*balsht-report-options*)
|
||||
|
||||
(define (pnl-options-generator)
|
||||
@ -58,7 +145,7 @@
|
||||
|
||||
(gnc:register-pnl-option
|
||||
(gnc:make-date-option
|
||||
"Report Options" "From"
|
||||
"Report" "From"
|
||||
"a" "Start of reporting period"
|
||||
(lambda ()
|
||||
(let ((bdtime (localtime (current-time))))
|
||||
@ -71,73 +158,108 @@
|
||||
(cons 'absolute (cons time 0)))))
|
||||
#f 'absolute #f))
|
||||
|
||||
(gnc:register-pnl-option
|
||||
(gnc:make-date-option
|
||||
"Report Options" "To"
|
||||
"b" "End of reporting period"
|
||||
(lambda ()
|
||||
(let ((bdtime (localtime (current-time))))
|
||||
(set-tm:sec bdtime 59)
|
||||
(set-tm:min bdtime 59)
|
||||
(set-tm:hour bdtime 23)
|
||||
(let ((time (car (mktime bdtime))))
|
||||
(cons 'absolute (cons time 0)))))
|
||||
#f 'absolute #f))
|
||||
(register-common-options gnc:register-pnl-option)
|
||||
|
||||
(gnc:options-set-default-section gnc:*pnl-report-options*
|
||||
"Report")
|
||||
|
||||
gnc:*pnl-report-options*)
|
||||
|
||||
(define (render-level-2-account level-2-account l2-currency-collector)
|
||||
(define (render-level-2-account
|
||||
level-2-account l2-currency-collector
|
||||
balance-currency exchange-alist row-aligner)
|
||||
(let ((account-name (string-append NBSP NBSP NBSP NBSP
|
||||
(gnc:account-get-full-name
|
||||
level-2-account)))
|
||||
(type-name (gnc:account-get-type-string
|
||||
(gnc:account-get-type level-2-account))))
|
||||
(l2-currency-collector 'format
|
||||
(lambda (currency value)
|
||||
(let ((tacc account-name)
|
||||
(ttype type-name))
|
||||
(set! account-name "")
|
||||
(set! type-name "")
|
||||
(html-table-row-align
|
||||
(list tacc ttype
|
||||
(gnc:amount->formatted-currency-string
|
||||
value currency #f))
|
||||
(list "left" "center" "right"))))
|
||||
#f)))
|
||||
(l2-currency-collector
|
||||
'format
|
||||
(lambda (currency value)
|
||||
(let ((tacc account-name)
|
||||
(ttype type-name))
|
||||
(set! account-name "")
|
||||
(set! type-name "")
|
||||
(row-aligner
|
||||
(append
|
||||
(list tacc ttype)
|
||||
(if (equal? currency balance-currency)
|
||||
(list NBSP
|
||||
(gnc:amount->formatted-currency-string
|
||||
value balance-currency #f))
|
||||
(list (gnc:amount->formatted-currency-string
|
||||
value currency #f)
|
||||
(gnc:amount->formatted-currency-string
|
||||
(* value
|
||||
(let ((pair (assoc currency exchange-alist)))
|
||||
(if (not pair) default-exchange-rate (cadr pair))))
|
||||
balance-currency #f)))
|
||||
(list NBSP NBSP)))))
|
||||
#f)))
|
||||
|
||||
(define (render-level-1-account l1-account l1-currency-collector)
|
||||
(define (render-level-1-account
|
||||
l1-account l1-currency-collector
|
||||
balance-currency exchange-alist row-aligner)
|
||||
(let ((account-name (gnc:account-get-full-name l1-account))
|
||||
(type-name (gnc:account-get-type-string
|
||||
(gnc:account-get-type l1-account))))
|
||||
(l1-currency-collector 'format
|
||||
(lambda (currency value)
|
||||
(let ((tacc account-name)
|
||||
(ttype type-name))
|
||||
(set! account-name "")
|
||||
(set! type-name "")
|
||||
(html-table-row-align
|
||||
(list tacc ttype NBSP
|
||||
(gnc:amount->formatted-currency-string
|
||||
value currency #f)
|
||||
NBSP NBSP)
|
||||
(list "left" "center" "right"
|
||||
"right" "right" "right"))))
|
||||
#f)))
|
||||
(l1-currency-collector
|
||||
'format
|
||||
(lambda (currency value)
|
||||
(let ((tacc account-name)
|
||||
(ttype type-name))
|
||||
(set! account-name "")
|
||||
(set! type-name "")
|
||||
(row-aligner
|
||||
(append
|
||||
(list tacc ttype NBSP NBSP)
|
||||
(if (equal? currency balance-currency)
|
||||
(list NBSP
|
||||
(gnc:amount->formatted-currency-string
|
||||
value balance-currency #f))
|
||||
(list (gnc:amount->formatted-currency-string
|
||||
value currency #f)
|
||||
(gnc:amount->formatted-currency-string
|
||||
(* value
|
||||
(let ((pair (assoc currency exchange-alist)))
|
||||
(if (not pair) default-exchange-rate (cadr pair))))
|
||||
balance-currency #f)))))))
|
||||
#f)))
|
||||
|
||||
(define (render-total l0-currency-collector)
|
||||
(let ((account-name (string-html-strong (string-db 'lookup 'net))))
|
||||
(l0-currency-collector 'format
|
||||
(lambda (currency value)
|
||||
(let ((tacc account-name))
|
||||
(set! account-name "")
|
||||
(html-table-row-align
|
||||
(list tacc NBSP NBSP
|
||||
(gnc:amount->formatted-currency-string
|
||||
value currency #f)
|
||||
NBSP NBSP)
|
||||
(list "left" "center"
|
||||
"right" "right"
|
||||
"right" "right"))))
|
||||
#f)))
|
||||
(define (render-total l0-currency-collector
|
||||
balance-currency exchange-alist
|
||||
other-currency-total? show-fcur?
|
||||
row-aligner)
|
||||
(let ((account-name (string-html-strong (string-db 'lookup 'net)))
|
||||
(exchanged-total 0))
|
||||
(append
|
||||
(l0-currency-collector
|
||||
'format
|
||||
(lambda (currency value)
|
||||
(if (equal? currency balance-currency)
|
||||
(begin
|
||||
(set! exchanged-total (+ exchanged-total value))
|
||||
'())
|
||||
(begin
|
||||
(set! exchanged-total
|
||||
(+ exchanged-total
|
||||
(* value
|
||||
(let ((pair (assoc currency exchange-alist)))
|
||||
(if (not pair) default-exchange-rate
|
||||
(cadr pair))))))
|
||||
(if (and other-currency-total? show-fcur?)
|
||||
(row-aligner
|
||||
(list
|
||||
NBSP NBSP NBSP NBSP
|
||||
(gnc:amount->formatted-currency-string
|
||||
value currency #f)
|
||||
NBSP))
|
||||
'()))))
|
||||
#f)
|
||||
(row-aligner
|
||||
(list account-name NBSP NBSP NBSP NBSP
|
||||
(gnc:amount->formatted-currency-string
|
||||
exchanged-total balance-currency #f))))))
|
||||
|
||||
(define blank-line
|
||||
(html-table-row '()))
|
||||
@ -152,14 +274,58 @@
|
||||
options
|
||||
balance-sheet?)
|
||||
|
||||
(let* ((from-option (gnc:lookup-option options "Report Options" "From"))
|
||||
(let* ((from-option (gnc:lookup-option options "Report" "From"))
|
||||
(from-value (if from-option (gnc:date-option-absolute-time (gnc:option-value from-option)) #f))
|
||||
(to-value (gnc:timepair-end-day-time
|
||||
(gnc:date-option-absolute-time (gnc:option-value
|
||||
(gnc:lookup-option options "Report Options" "To"))))))
|
||||
(gnc:lookup-option options "Report" "To")))))
|
||||
(report-currency
|
||||
(gnc:option-value
|
||||
(gnc:lookup-option options "Currencies"
|
||||
"Report's currency")))
|
||||
(show-currency-total?
|
||||
(gnc:option-value
|
||||
(gnc:lookup-option options "Currencies"
|
||||
"Other currencies' total")))
|
||||
(exchange-alist
|
||||
(map
|
||||
(lambda(x)
|
||||
(list
|
||||
(gnc:option-value
|
||||
(gnc:lookup-option options "Currencies" (car x)))
|
||||
(let ((y (string->number
|
||||
(gnc:option-value
|
||||
(gnc:lookup-option
|
||||
options "Currencies"
|
||||
(string-append
|
||||
currency-option-value-prefix (car x)))))))
|
||||
(if (not y) 0 y))))
|
||||
currency-pref-options))
|
||||
; (accounts (gnc:option-value
|
||||
; (gnc:lookup-option options "Report" "Account")))
|
||||
(show-type? (gnc:option-value
|
||||
(gnc:lookup-option options "Display" "Type")))
|
||||
(show-fcur? (gnc:option-value
|
||||
(gnc:lookup-option options "Display"
|
||||
"Foreign Currency")))
|
||||
(report-row-align (lambda(x)
|
||||
(html-table-row-align
|
||||
(append
|
||||
(list (car x))
|
||||
(if show-type? (list (cadr x)) '())
|
||||
(if show-fcur? (list (caddr x)) '())
|
||||
(list (cadddr x))
|
||||
(if show-fcur? (list (cadddr (cdr x))) '())
|
||||
(list (cadddr (cddr x))))
|
||||
(append '("left")
|
||||
(if show-type? '("center") '())
|
||||
(if show-fcur? '("right") '())
|
||||
'("right")
|
||||
(if show-fcur? '("right") '())
|
||||
'("right"))))))
|
||||
|
||||
(define (handle-level-1-account account options)
|
||||
(let ((type (gnc:account-type->symbol (gnc:account-get-type account))))
|
||||
(let ((type (gnc:account-type->symbol (gnc:account-get-type account))))
|
||||
(if (is-it-on-balance-sheet? type balance-sheet?)
|
||||
;; Ignore
|
||||
'()
|
||||
@ -187,7 +353,9 @@
|
||||
(l1-collector 'merge l2-collector #f)
|
||||
(l0-collector 'merge l1-collector #f)
|
||||
(let ((level-1-output
|
||||
(render-level-1-account account l1-collector)))
|
||||
(render-level-1-account
|
||||
account l1-collector report-currency
|
||||
exchange-alist report-row-align)))
|
||||
(l1-collector 'reset #f #f)
|
||||
(l2-collector 'reset #f #f)
|
||||
(if (null? childrens-output)
|
||||
@ -219,18 +387,18 @@
|
||||
;; add in balances for any sub-sub groups
|
||||
(let ((grandchildren (gnc:account-get-children account)))
|
||||
(if (not (pointer-token-null? grandchildren))
|
||||
(balance 'add
|
||||
(gnc:account-get-currency account)
|
||||
((if balance-sheet? + -)
|
||||
0
|
||||
(if balance-sheet?
|
||||
(gnc:group-get-balance-at-date grandchildren
|
||||
to-value)
|
||||
(gnc:group-get-balance-interval grandchildren
|
||||
from-value
|
||||
to-value)))))
|
||||
(balance (if balance-sheet? 'merge 'minusmerge)
|
||||
(if balance-sheet?
|
||||
(gnc:group-get-curr-balance-at-date grandchildren
|
||||
to-value)
|
||||
(gnc:group-get-curr-balance-interval grandchildren
|
||||
from-value
|
||||
to-value))
|
||||
#f))
|
||||
(l2-collector 'merge balance #f)
|
||||
(render-level-2-account account balance)))))
|
||||
(render-level-2-account
|
||||
account balance report-currency exchange-alist
|
||||
report-row-align)))))
|
||||
|
||||
(let
|
||||
((current-group (gnc:get-current-group))
|
||||
@ -241,13 +409,28 @@
|
||||
(l0-collector 'reset #f #f)
|
||||
(l1-collector 'reset #f #f)
|
||||
(l2-collector 'reset #f #f)
|
||||
(set! report-name
|
||||
(if from-option
|
||||
(list report-name " "
|
||||
(strftime "%x" (localtime (car from-value)))
|
||||
" to "
|
||||
(strftime "%x" (localtime (car to-value))))
|
||||
(list report-name " "
|
||||
(strftime "%x" (localtime (car to-value))))))
|
||||
|
||||
(if (not (pointer-token-null? current-group))
|
||||
(set! output
|
||||
(list
|
||||
(gnc:group-map-accounts
|
||||
; (map
|
||||
(lambda (x) (handle-level-1-account x options))
|
||||
; accounts)
|
||||
;; obviously you can't just replace this "current-group" by
|
||||
;; the "accounts" list. Which is a pity. -- Christian
|
||||
current-group)
|
||||
(render-total l0-collector))))
|
||||
(render-total l0-collector report-currency
|
||||
exchange-alist show-currency-total? show-fcur?
|
||||
report-row-align))))
|
||||
|
||||
(list
|
||||
"<html>"
|
||||
@ -263,8 +446,13 @@
|
||||
"<caption><b>" report-name "</b></caption>"
|
||||
"<tr>"
|
||||
"<th>" (string-db 'lookup 'account-name) "</th>"
|
||||
"<th align=center>" (string-db 'lookup 'type) "</th>"
|
||||
"<th align=right>" (string-db 'lookup 'subaccounts) "</th>"
|
||||
(if show-type? (string-append "<th align=center>"
|
||||
(string-db 'lookup 'type) "</th>")
|
||||
"")
|
||||
"<th "
|
||||
(if show-fcur? "colspan=2 " "")
|
||||
"align=right>" (string-db 'lookup 'subaccounts) "</th>"
|
||||
(if show-fcur? "<th></th>" "")
|
||||
"<th align=right>" (string-db 'lookup 'balance) "</th>"
|
||||
"</tr>"
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user