diff options
| author | Bradley M. Kuhn <bkuhn@ebb.org> | 2013-01-27 20:24:07 -0500 |
|---|---|---|
| committer | Bradley M. Kuhn <bkuhn@ebb.org> | 2013-02-18 14:08:46 -0500 |
| commit | 11639785bba1b97600e9b06a85be248e8d2d7688 (patch) | |
| tree | 8b99ea5d05c8415f90354ee19525700d4959b7b4 /contrib | |
| parent | 7d04b92ad1445c60e0b61ab298f7384f0afbaa03 (diff) | |
| download | fork-ledger-11639785bba1b97600e9b06a85be248e8d2d7688.tar.gz fork-ledger-11639785bba1b97600e9b06a85be248e8d2d7688.tar.bz2 fork-ledger-11639785bba1b97600e9b06a85be248e8d2d7688.zip | |
Improve spreadsheet and debugging output.
Diffstat (limited to 'contrib')
| -rwxr-xr-x | contrib/non-profit-audit-reports/bank-reconcilation.plx | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/contrib/non-profit-audit-reports/bank-reconcilation.plx b/contrib/non-profit-audit-reports/bank-reconcilation.plx index 701f053e..5b8d3d6f 100755 --- a/contrib/non-profit-audit-reports/bank-reconcilation.plx +++ b/contrib/non-profit-audit-reports/bank-reconcilation.plx @@ -206,20 +206,24 @@ while ($startDate ge $earliestStartDate) { ConvertTwoDigitPrecisionToInteger($differenceSought), \&ConvertTwoDigitPrecisionToIntegerInEntry); if ($VERBOSE) { - use Data::Dumper; - print STDERR "Solution for $formattedStartDate to $formattedEndDate, $differenceSought: \n", - Data::Dumper->Dump(\@solution); + if ($solution[0]) { + use Data::Dumper; + print STDERR "Solution for $formattedStartDate to $formattedEndDate, $differenceSought: \n", + Data::Dumper->Dump(\@solution); + } else { + print STDERR "No Solution Found. :(\n"; + } } last if ($solution[0]); } if ($solution[0]) { print "\"title:$formattedEndDate: $title\"\n\"BANK RECONCILATION: $account\",\"ENDING\",\"$formattedEndDate\"\n"; print "\n\n\"DATE\",\"CHECK NUM\",\"PAYEE\",\"AMOUNT\"\n\n"; - print "\"$formattedEndDate\",\"\",\"BANK ACCOUNT BALANCE\",\"$bankBalance\"\n\n"; + print "\"$formattedEndDate\",\"\",\"BANK ACCOUNT BALANCE\",\"\$$bankBalance\"\n\n"; foreach my $ee (@{$solution[1]}) { - print "\"$ee->{date}\",\"$ee->{checkNum}\",\"$ee->{payee}\",\"$ee->{amount}\"\n"; + print "\"$ee->{date}\",\"$ee->{checkNum}\",\"$ee->{payee}\",\"\$$ee->{amount}\"\n"; } - print "\n\"$formattedEndDate\",\"\",\"OUR ACCOUNT BALANCE\",\"$total\"\n\n"; + print "\n\"$formattedEndDate\",\"\",\"OUR ACCOUNT BALANCE\",\"\$$total\"\n\n"; } ############################################################################### # |