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

web: fix wrong transaction amount in account register with virtual postings

Browse Source
This commit is contained in:
Simon Michael 2011-09-10 20:05:21 +00:00
parent fa5f09f06a
commit 6142847dd2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -433,7 +433,7 @@ accountTransactionsReportItems matcher thisacctmatcher bal signfn (t:ts) =
(psthisacct,psotheracct) = case thisacctmatcher of Just m -> partition (matchesPosting m) psmatched (psthisacct,psotheracct) = case thisacctmatcher of Just m -> partition (matchesPosting m) psmatched
Nothing -> ([],psmatched) Nothing -> ([],psmatched)
numotheraccts = length $ nub $ map paccount psotheracct numotheraccts = length $ nub $ map paccount psotheracct
amt = sum $ map pamount psotheracct amt = negate $ sum $ map pamount psthisacct
acct | isNothing thisacctmatcher = summarisePostings psmatched -- journal register acct | isNothing thisacctmatcher = summarisePostings psmatched -- journal register
| numotheraccts == 0 = "transfer between " ++ summarisePostingAccounts psthisacct | numotheraccts == 0 = "transfer between " ++ summarisePostingAccounts psthisacct
| otherwise = prefix ++ summarisePostingAccounts psotheracct | otherwise = prefix ++ summarisePostingAccounts psotheracct