51 lines
1.8 KiB
Haskell
51 lines
1.8 KiB
Haskell
{-|
|
|
|
|
A compound data type for efficiency. A 'Transaction' is a 'Posting' with
|
|
its parent 'LedgerTransaction' \'s date and description attached. These
|
|
are what we mostly work with when doing reports, and this name is pretty
|
|
ingrained.
|
|
|
|
-}
|
|
|
|
module Ledger.Transaction
|
|
where
|
|
import Ledger.Dates
|
|
import Ledger.Utils
|
|
import Ledger.Types
|
|
import Ledger.Dates
|
|
import Ledger.LedgerTransaction
|
|
import Ledger.Posting
|
|
import Ledger.Amount
|
|
|
|
|
|
instance Show Transaction where show=showTransaction
|
|
|
|
showTransaction :: Transaction -> String
|
|
showTransaction (Transaction eno stat d desc a amt ttype) =
|
|
s ++ unwords [showDate d,desc,a,show amt,show ttype]
|
|
where s = if stat then " *" else ""
|
|
|
|
-- | Convert a 'LedgerTransaction' to two or more 'Transaction's. An id number
|
|
-- is attached to the transactions to preserve their grouping - it should
|
|
-- be unique per entry.
|
|
flattenLedgerTransaction :: (LedgerTransaction, Int) -> [Transaction]
|
|
flattenLedgerTransaction (LedgerTransaction d s _ desc _ ps _, n) =
|
|
[Transaction n s d desc (paccount p) (pamount p) (ptype p) | p <- ps]
|
|
|
|
accountNamesFromTransactions :: [Transaction] -> [AccountName]
|
|
accountNamesFromTransactions ts = nub $ map taccount ts
|
|
|
|
sumTransactions :: [Transaction] -> MixedAmount
|
|
sumTransactions = sum . map tamount
|
|
|
|
nulltxn :: Transaction
|
|
nulltxn = Transaction 0 False (parsedate "1900/1/1") "" "" nullmixedamt RegularPosting
|
|
|
|
-- | Does the given transaction fall within the given date span ?
|
|
isTransactionInDateSpan :: DateSpan -> Transaction -> Bool
|
|
isTransactionInDateSpan (DateSpan Nothing Nothing) _ = True
|
|
isTransactionInDateSpan (DateSpan Nothing (Just e)) (Transaction{tdate=d}) = d<e
|
|
isTransactionInDateSpan (DateSpan (Just b) Nothing) (Transaction{tdate=d}) = d>=b
|
|
isTransactionInDateSpan (DateSpan (Just b) (Just e)) (Transaction{tdate=d}) = d>=b && d<e
|
|
|