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

[options] compact valid-gains-loss-account?

Browse Source
This commit is contained in:
Christopher Lam 2019-03-28 11:48:41 +08:00
parent 79d72fdc33
commit faf1b08cec
1 changed files with 12 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
libgnucash/app-utils/options.scm
View File

@ -1449,36 +1449,19 @@ the option '~a'."))
(currency-lookup currency))
(define (valid-gains-loss-account? book-currency gains-loss-account-guid)
;; xaccAccountLookup returns Account if guid valid otherwise NULL; also must
;; be in book-currency, income or expense, and not placeholder nor hidden
;; xaccAccountLookup returns Account if guid valid otherwise NULL; also must
;; be in book-currency, income or expense, and not placeholder nor hidden
(let* ((account (xaccAccountLookup gains-loss-account-guid
(gnc-get-current-book)))
(hidden? (if account
(xaccAccountIsHidden account)
#t))
(placeholder? (if account
(xaccAccountGetPlaceholder account)
#t))
(account-type (if account
(xaccAccountGetType account)
#f))
(income-or-expense? (if (and account account-type)
(or (= ACCT-TYPE-INCOME account-type)
(= ACCT-TYPE-EXPENSE account-type))
#f))
(commodity-eq-book-curr? (if account
(gnc-commodity-equal
(currency-lookup book-currency)
(xaccAccountGetCommodity account))
#f))
)
(if (and account
(not hidden?)
(not placeholder?)
income-or-expense?
commodity-eq-book-curr?)
#t
#f)))
(gnc-get-current-book))))
(and account
(not (null? account))
(not (xaccAccountIsHidden account))
(not (xaccAccountGetPlaceholder account))
(memv (xaccAccountGetType account)
(list ACCT-TYPE-INCOME ACCT-TYPE-EXPENSE))
(gnc-commodity-equal
(currency-lookup book-currency)
(xaccAccountGetCommodity account)))))
(let* ((value (if (eq? 'book-currency default-radiobutton-value)
(cons default-radiobutton-value