slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

web: account register now obeys --cost and --effective flags like the rest

Browse Source
This commit is contained in:
Simon Michael 2011-08-19 18:30:03 +00:00
parent bc8411219b
commit e005625780
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
hledger/Hledger/Cli/Reports.hs
View File

@ -401,7 +401,8 @@ accountTransactionsReport :: ReportOpts -> Journal -> Matcher -> Matcher -> Tran
accountTransactionsReport opts j m thisacctmatcher = (label, items) accountTransactionsReport opts j m thisacctmatcher = (label, items)
where where
-- transactions affecting this account, in date order -- transactions affecting this account, in date order
ts = sortBy (comparing tdate) $ filter (matchesTransaction thisacctmatcher) $ jtxns j ts = sortBy (comparing tdate) $ filter (matchesTransaction thisacctmatcher) $ jtxns $
journalSelectingDateFromOpts opts $ journalSelectingAmountFromOpts opts j
-- starting balance: if we are filtering by a start date and nothing else, -- starting balance: if we are filtering by a start date and nothing else,
-- the sum of postings to this account before that date; otherwise zero. -- the sum of postings to this account before that date; otherwise zero.
(startbal,label) | matcherIsNull m = (nullmixedamt, balancelabel) (startbal,label) | matcherIsNull m = (nullmixedamt, balancelabel)