bkuhn/small-hacks
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Switch variable name to be more accurate and make sure totals are done.

Browse source
This commit is contained in:
Bradley M. Kuhn 2011-10-12 17:29:34 -04:00
parent f186d182a7
commit 65d3786d3f
1 changed files with 8 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
trial-balance-report.plx
View file

@ -72,11 +72,11 @@ open(LEDGER_NEGATIVE, "-|", $LEDGER_CMD, '-d', 'a<0', @ledgerOptions)
open(LEDGER_POSITIVE, "-|", $LEDGER_CMD, '-d', 'a>0', @ledgerOptions) open(LEDGER_POSITIVE, "-|", $LEDGER_CMD, '-d', 'a>0', @ledgerOptions)
or die "Unable to run $LEDGER_CMD -d a<0 @ledgerOptions: $!"; or die "Unable to run $LEDGER_CMD -d a<0 @ledgerOptions: $!";
while (my $negLine = <LEDGER_POSITIVE>) { while (my $postLine = <LEDGER_POSITIVE>) {
chomp $negLine; chomp $postLine;
die "Unable to parse output line from positive_ledger command: $negLine" die "Unable to parse output line from positive_ledger command: $postLine"
unless $negLine =~ /^\s*([^\$]+)\s+\$\s*\s*([\d\.\,]+)/; unless $postLine =~ /^\s*([^\$]+)\s+\$\s*\s*([\d\.\,]+)/;
my($account, $amount) = ($1, $2); my($account, $amount) = ($1, $2);
$amount = ParseNumber($amount); $amount = ParseNumber($amount);
$account =~ s/^\s+//; $account =~ s/\s+$//; $account =~ s/^\s+//; $account =~ s/\s+$//;
@ -97,7 +97,10 @@ foreach my $account (keys %acct) {
$acct{$account}{$val} = $ZERO unless defined $acct{$account}{$val}; $acct{$account}{$val} = $ZERO unless defined $acct{$account}{$val};
} }
print sprintf("%${ACCT_WIDTH}s \$%-.2d \$%-2.d\n", $account, print sprintf("%${ACCT_WIDTH}s \$%-.2d \$%-2.d\n", $account,
$acct{$account}{negative}, $acct{$account}{postiive}); $acct{$account}{negative}, $acct{$account}{positive});
$totNeg += $acct{$account}{negative};
$totPos += $acct{$account}{positive};
} }
print sprintf("%${ACCT_WIDTH}s \$%-.2d \$%-2.d\n", 'TOTAL', $totNeg, $totPos); print sprintf("%${ACCT_WIDTH}s \$%-.2d \$%-2.d\n", 'TOTAL', $totNeg, $totPos);