dev: web: Use entriesReport instead of transactionReport.
This produces identical results. The only fields used in the TransactionReport were torig, split, and amt. - torig is the same as in entriesReport - since transactionsReport calls accountTransactionsReportItems with None as thisacctq, all accounts are considered ‘other accounts’, so amt is always zero, and ($if not split && not (mixedAmountLooksZero amt)) never fires. - So the only thing used is torig, and we can just get that from the entriesReport.
This commit is contained in:
parent
58516eea77
commit
acfbd36fb8
@ -27,7 +27,8 @@ getJournalR = do
|
||||
Just (a, inclsubs) -> "Transactions in " <> a <> if inclsubs then "" else " (excluding subaccounts)"
|
||||
title' = title <> if m /= Any then ", filtered" else ""
|
||||
acctlink a = (RegisterR, [("q", replaceInacct q $ accountQuery a)])
|
||||
items = transactionsReport (reportspec_ $ cliopts_ opts) j m
|
||||
rspec = (reportspec_ $ cliopts_ opts){rsQuery = m}
|
||||
items = reverse $ entriesReport rspec j
|
||||
transactionFrag = transactionFragment j
|
||||
|
||||
defaultLayout $ do
|
||||
|
||||
@ -14,15 +14,13 @@ $if elem CapAdd caps
|
||||
<th .account style="text-align:left;">Account
|
||||
<th .amount style="text-align:right;">Amount
|
||||
|
||||
$forall (torig, _, split, _, amt, _) <- items
|
||||
$forall torig <- items
|
||||
<tr .title ##{transactionFrag torig} title="#{showTransaction torig}">
|
||||
<td .date nowrap>
|
||||
#{show (tdate torig)}
|
||||
<td colspan=2>
|
||||
#{textElideRight 60 (tdescription torig)}
|
||||
<td .amount style="text-align:right;">
|
||||
$if not split && not (mixedAmountLooksZero amt)
|
||||
^{mixedAmountAsHtml amt}
|
||||
|
||||
$forall Posting { paccount = acc, pamount = amt } <- tpostings torig
|
||||
<tr .posting>
|
||||
|
||||
Loading…
Reference in New Issue
Block a user