mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
Disallow Closing Transactions.
These txns must not be counted in this report.
This commit is contained in:
parent
9d85ee65d8
commit
499c33cb35
@ -1710,13 +1710,14 @@ for taxes paid on expenses, and type LIABILITY for taxes collected on sales.")
|
||||
; otherwise it will double count where transaction contains 2 splits in same account
|
||||
(set! splits (splits-filter-unique-transactions splits))
|
||||
|
||||
; For each split, we will optionally only keep those which contain useful data
|
||||
; e.g. show invoices & regular transactions
|
||||
; For each split, we will only keep those which contain useful data
|
||||
; e.g. show invoices & regular transactions. We will also disallow closing txns.
|
||||
(set! splits (filter
|
||||
(lambda (split)
|
||||
(let* ((trans (xaccSplitGetParent split))
|
||||
(txn-type (xaccTransGetTxnType trans)))
|
||||
(member txn-type (list TXN-TYPE-NONE TXN-TYPE-INVOICE))))
|
||||
(and (member txn-type (list TXN-TYPE-NONE TXN-TYPE-INVOICE))
|
||||
(not (xaccTransGetIsClosingTxn trans)))))
|
||||
splits))
|
||||
|
||||
(if (not (null? splits))
|
||||
|
Loading…
Reference in New Issue
Block a user