#{title'} $if elem AddPermission perms Kirjaa tapahtuma
$forall torig <- items

$with (payee, note) <- payeeAndNoteFromDescription' $ tdescription torig

#{show (tdate torig)}
$case tstatus torig $of Unmarked
$of Pending
$of Cleared
$if not $ T.null $ tcode torig
(#{tcode torig}) $if not $ T.null $ T.strip payee #{payee} $if not $ T.null $ T.strip note

#{note} $if null $ filter isVisibleTag $ ttags torig $else
$forall (tagName, tagValue) <- filter isVisibleTag $ ttags torig

#{tagName} $if not $ T.null $ T.strip tagValue
$if isAbsoluteURI tagValue #{tagValue} $elseif tagName == "tosite" #{tagValue} $else #{tagValue}
$forall Posting { paccount = acc, pamount = amt, pbalanceassertion = passert, ptags = tags } <- tpostings torig

#{elideAccountName 40 acc}
^{mixedAmountAsHtml amt} $maybe BalanceAssertion { baamount = assertAmt } <- passert jälkeen ^{mixedAmountAsHtml $ mixedAmount assertAmt} $if null $ filter (isPostingTag acc) $ filter isVisibleTag tags $else
$forall (tagName, tagValue) <- filter (isPostingTag acc) $ filter isVisibleTag tags

#{tagName} $if not $ T.null $ T.strip tagValue
$if isAbsoluteURI tagValue #{tagValue} $elseif tagName == "tosite" #{tagValue} $else #{tagValue} $if elem AddPermission perms ^{addModal AddR j today}