simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-11-08 07:09:28 +03:00
Code Issues Projects Releases Wiki Activity

untested accountBalanceHistory calculator

Browse Source
This commit is contained in:
Simon Michael 2012-12-05 23:52:46 +00:00
parent 0913e54e93
commit 26ad56e1b2
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
hledger-lib/Hledger/Reports.hs
View File

@ -574,6 +574,20 @@ accountsReportItem opts a@Account{aname=name, aibalance=ibal}
parents = init $ parentAccounts a
-------------------------------------------------------------------------------
-- | Get the historical running inclusive balance of a particular account,
-- from earliest to latest posting date.
-- XXX Accounts should know the Ledger & Journal they came from
accountBalanceHistory :: ReportOpts -> Journal -> Account -> [(Day, MixedAmount)]
accountBalanceHistory ropts j a = [(getdate t, bal) | (t,_,_,_,_,bal) <- items]
where
(_,items) = journalTransactionsReport ropts j acctquery
inclusivebal = True
acctquery = Acct $ (if inclusivebal then accountNameToAccountRegex else accountNameToAccountOnlyRegex) $ aname a
getdate = if effective_ ropts then transactionEffectiveDate else transactionActualDate
-------------------------------------------------------------------------------
-- TESTS