diff options
| -rwxr-xr-x | mktreasurer | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/mktreasurer b/mktreasurer index 25b4999..97a3583 100755 --- a/mktreasurer +++ b/mktreasurer @@ -60,6 +60,7 @@ sub transactions_list { who => party_name($r, $tra->{Pa}), ac => $tra->{Ac}, account => account_name($r, $tra->{Ac}), + $tra->{Trt} != 0 ? (trt => $tra->{Trt}) : (), $tra->{Sca} != 0 ? (sc_name => subcat_name($r, $tra->{Sca}, $tra->{Ca})) : (), $tra->{No} ne '(null)' ? (notes => $tra->{No}) : (), ); @@ -130,6 +131,12 @@ sub transactions_infos { $t->{balance} = new Math::BigFloat 0; foreach my $tra (@{$t->{transactions}}) { $t->{balance} += new Math::BigFloat $tra->{amount}; + next if $tra->{trt} && $by ne 'by_account'; + if ($tra->{amount} > 0) { + $t->{revenues} += new Math::BigFloat $tra->{amount}; + } else { + $t->{expenses} -= new Math::BigFloat $tra->{amount}; + } } } } |