mirror of
https://github.com/simonmichael/hledger.git
synced 2024-11-08 07:09:28 +03:00
Revert "feat: bal: with --declared, include all declared accounts (#1765)"
This reverts commit a5e19b7391.
(It breaks filtering by account.)
This commit is contained in:
Simon Michael
parent
b7e79ef3b2
commit
94d92b9760
@ -1,6 +1,5 @@
|
||||
{-# LANGUAGE FlexibleInstances #-}
|
||||
{-# LANGUAGE OverloadedStrings #-}
|
||||
{-# LANGUAGE NamedFieldPuns #-}
|
||||
{-# LANGUAGE RecordWildCards #-}
|
||||
{-# LANGUAGE ScopedTypeVariables #-}
|
||||
{-|
|
||||
@ -27,6 +26,7 @@ module Hledger.Reports.MultiBalanceReport (
|
||||
getPostingsByColumn,
|
||||
getPostings,
|
||||
startingPostings,
|
||||
startingBalancesFromPostings,
|
||||
generateMultiBalanceReport,
|
||||
balanceReportTableAsText,
|
||||
|
||||
@ -122,8 +122,8 @@ multiBalanceReportWith rspec' j priceoracle = report
|
||||
|
||||
-- The matched accounts with a starting balance. All of these should appear
|
||||
-- in the report, even if they have no postings during the report period.
|
||||
startbals = dbg5 "startbals" $
|
||||
startingBalances rspec j priceoracle $ startingPostings rspec j priceoracle reportspan
|
||||
startbals = dbg5 "startbals" . startingBalancesFromPostings rspec j priceoracle
|
||||
$ startingPostings rspec j priceoracle reportspan
|
||||
|
||||
-- Generate and postprocess the report, negating balances and taking percentages if needed
|
||||
report = dbg4 "multiBalanceReportWith" $
|
||||
@ -166,7 +166,7 @@ compoundBalanceReportWith rspec' j priceoracle subreportspecs = cbr
|
||||
-- Filter the column postings according to each subreport
|
||||
colps' = map (second $ filter (matchesPosting q)) colps
|
||||
-- We need to filter historical postings directly, rather than their accumulated balances. (#1698)
|
||||
startbals' = startingBalances rspec j priceoracle $ filter (matchesPosting q) startps
|
||||
startbals' = startingBalancesFromPostings rspec j priceoracle $ filter (matchesPosting q) startps
|
||||
ropts = cbcsubreportoptions $ _rsReportOpts rspec
|
||||
q = cbcsubreportquery j
|
||||
|
||||
@ -183,12 +183,10 @@ compoundBalanceReportWith rspec' j priceoracle subreportspecs = cbr
|
||||
|
||||
cbr = CompoundPeriodicReport "" (map fst colps) subreports overalltotals
|
||||
|
||||
-- XXX seems refactorable
|
||||
-- | Calculate accounts' balances on the report start date, from these postings
|
||||
-- which should be all postings before that data, and possibly also from account declarations.
|
||||
startingBalances :: ReportSpec -> Journal -> PriceOracle -> [Posting]
|
||||
-- | Calculate starting balances from postings, if needed for -H.
|
||||
startingBalancesFromPostings :: ReportSpec -> Journal -> PriceOracle -> [Posting]
|
||||
-> HashMap AccountName Account
|
||||
startingBalances rspec j priceoracle ps =
|
||||
startingBalancesFromPostings rspec j priceoracle ps =
|
||||
M.findWithDefault nullacct emptydatespan
|
||||
<$> calculateReportMatrix rspec j priceoracle mempty [(emptydatespan, ps)]
|
||||
|
||||
@ -263,27 +261,24 @@ getPostings rspec@ReportSpec{_rsQuery=query, _rsReportOpts=ropts} j priceoracle
|
||||
-- handles the hledger-ui+future txns case above).
|
||||
depthless = dbg3 "depthless" $ filterQuery (not . queryIsDepth) query
|
||||
|
||||
-- | From set of postings, eg for a single report column, calculate the balance change in each account.
|
||||
-- Accounts and amounts will be depth-clipped appropriately if a depth limit is in effect.
|
||||
--
|
||||
-- When --declared is used, accounts which have been declared with an account directive are included,
|
||||
-- with a 0 balance change. These are really only needed when calculating starting balances, but
|
||||
-- it's harmless to have them in the column changes as well.
|
||||
acctChanges :: ReportSpec -> Journal -> [Posting] -> HashMap ClippedAccountName Account
|
||||
acctChanges ReportSpec{_rsQuery=query,_rsReportOpts=ropts} j ps =
|
||||
-- | Given a set of postings, eg for a single report column, gather
|
||||
-- the accounts that have postings and calculate the change amount for
|
||||
-- each. Accounts and amounts will be depth-clipped appropriately if
|
||||
-- a depth limit is in effect.
|
||||
acctChangesFromPostings :: ReportSpec -> [Posting] -> HashMap ClippedAccountName Account
|
||||
acctChangesFromPostings ReportSpec{_rsQuery=query,_rsReportOpts=ropts} ps =
|
||||
HM.fromList [(aname a, a) | a <- as]
|
||||
where
|
||||
as = filterAccounts $
|
||||
drop 1 (accountsFromPostings ps)
|
||||
++ if declared_ ropts then [nullacct{aname} | aname <- journalAccountNamesDeclared j] else []
|
||||
as = filterAccounts . drop 1 $ accountsFromPostings ps
|
||||
filterAccounts = case accountlistmode_ ropts of
|
||||
ALTree -> filter ((depthq `matchesAccount`) . aname) -- exclude deeper balances
|
||||
ALFlat -> clipAccountsAndAggregate (queryDepth depthq) -- aggregate deeper balances at the depth limit
|
||||
-- . filter ((0<) . anumpostings) -- exclude unposted accounts
|
||||
ALTree -> filter ((depthq `matchesAccount`) . aname) -- exclude deeper balances
|
||||
ALFlat -> clipAccountsAndAggregate (queryDepth depthq) . -- aggregate deeper balances at the depth limit.
|
||||
filter ((0<) . anumpostings)
|
||||
depthq = dbg3 "depthq" $ filterQuery queryIsDepth query
|
||||
|
||||
-- | Gather the account balance changes into a regular matrix, then
|
||||
-- accumulate and value amounts, as specified by the report options.
|
||||
--
|
||||
-- Makes sure all report columns have an entry.
|
||||
calculateReportMatrix :: ReportSpec -> Journal -> PriceOracle
|
||||
-> HashMap ClippedAccountName Account
|
||||
@ -313,12 +308,11 @@ calculateReportMatrix rspec@ReportSpec{_rsReportOpts=ropts} j priceoracle startb
|
||||
startingBalance = HM.lookupDefault nullacct name startbals
|
||||
valuedStart = avalue (DateSpan Nothing historicalDate) startingBalance
|
||||
|
||||
-- In each column, get each account's balance changes
|
||||
colacctchanges = dbg5 "colacctchanges" $ map (second $ acctChanges rspec j) colps :: [(DateSpan, HashMap ClippedAccountName Account)]
|
||||
-- Transpose it to get each account's balance changes across all columns
|
||||
acctchanges = dbg5 "acctchanges" $ transposeMap colacctchanges :: HashMap AccountName (Map DateSpan Account)
|
||||
-- Fill out the matrix with zeros in empty cells
|
||||
allchanges = ((<>zeros) <$> acctchanges) <> (zeros <$ startbals)
|
||||
-- Transpose to get each account's balance changes across all columns, then
|
||||
-- pad with zeros
|
||||
allchanges = ((<>zeros) <$> acctchanges) <> (zeros <$ startbals)
|
||||
acctchanges = dbg5 "acctchanges" $ transposeMap colacctchanges
|
||||
colacctchanges = dbg5 "colacctchanges" $ map (second $ acctChangesFromPostings rspec) colps
|
||||
|
||||
avalue = acctApplyBoth . mixedAmountApplyValuationAfterSumFromOptsWith ropts j priceoracle
|
||||
acctApplyBoth f a = a{aibalance = f $ aibalance a, aebalance = f $ aebalance a}
|
||||
|
||||
@ -148,13 +148,12 @@ data ReportOpts = ReportOpts {
|
||||
-- (Not a regexp, nor a full hledger query, for now.)
|
||||
,accountlistmode_ :: AccountListMode
|
||||
,drop_ :: Int
|
||||
,declared_ :: Bool -- ^ Include accounts declared but not yet posted to ?
|
||||
,row_total_ :: Bool
|
||||
,no_total_ :: Bool
|
||||
,show_costs_ :: Bool -- ^ Show costs for reports which normally don't show them ?
|
||||
,show_costs_ :: Bool -- ^ Whether to show costs for reports which normally don't show them
|
||||
,sort_amount_ :: Bool
|
||||
,percent_ :: Bool
|
||||
,invert_ :: Bool -- ^ Flip all amount signs in reports ?
|
||||
,invert_ :: Bool -- ^ if true, flip all amount signs in reports
|
||||
,normalbalance_ :: Maybe NormalSign
|
||||
-- ^ This can be set when running balance reports on a set of accounts
|
||||
-- with the same normal balance type (eg all assets, or all incomes).
|
||||
@ -198,7 +197,6 @@ defreportopts = ReportOpts
|
||||
, budgetpat_ = Nothing
|
||||
, accountlistmode_ = ALFlat
|
||||
, drop_ = 0
|
||||
, declared_ = False
|
||||
, row_total_ = False
|
||||
, no_total_ = False
|
||||
, show_costs_ = False
|
||||
@ -252,7 +250,6 @@ rawOptsToReportOpts d rawopts =
|
||||
,budgetpat_ = maybebudgetpatternopt rawopts
|
||||
,accountlistmode_ = accountlistmodeopt rawopts
|
||||
,drop_ = posintopt "drop" rawopts
|
||||
,declared_ = boolopt "declared" rawopts
|
||||
,row_total_ = boolopt "row-total" rawopts
|
||||
,no_total_ = boolopt "no-total" rawopts
|
||||
,show_costs_ = boolopt "show-costs" rawopts
|
||||
|
||||
@ -308,7 +308,6 @@ balancemode = hledgerCommandMode
|
||||
]
|
||||
++ flattreeflags True ++
|
||||
[flagReq ["drop"] (\s opts -> Right $ setopt "drop" s opts) "N" "omit N leading account name parts (in flat mode)"
|
||||
,flagNone ["declared"] (setboolopt "declared") "include accounts which have been declared but not yet used"
|
||||
,flagNone ["average","A"] (setboolopt "average") "show a row average column (in multicolumn reports)"
|
||||
,flagNone ["related","r"] (setboolopt "related") "show postings' siblings instead"
|
||||
,flagNone ["row-total","T"] (setboolopt "row-total") "show a row total column (in multicolumn reports)"
|
||||
|
||||
@ -267,12 +267,6 @@ Here are some ways to handle that:
|
||||
[csv-mode]: https://elpa.gnu.org/packages/csv-mode.html
|
||||
[visidata]: https://www.visidata.org
|
||||
|
||||
### Showing declared accounts
|
||||
|
||||
With `--declared`, accounts which have been declared with an [account directive](#declaring-accounts),
|
||||
even if they have no transactions yet, will be included in the balance report with a zero balance,
|
||||
and will be visible with `-E/--empty`.
|
||||
|
||||
### Commodity layout
|
||||
|
||||
With `--layout`, you can control how amounts with more than one commodity are displayed:
|
||||
|
||||
@ -168,10 +168,3 @@ hledger -f - balance -N --output-format=csv --tree
|
||||
"Assets:Cash","$-1"
|
||||
>>>= 0
|
||||
|
||||
# 9. --declared includes all declared accounts, with a zero balance if they have no postings.
|
||||
hledger -f - balance -N --declared -E
|
||||
<<<
|
||||
account a
|
||||
>>>
|
||||
0 a
|
||||
>>>= 0
|
||||
|
||||
Loading…
Reference in New Issue
Block a user