sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Changed balance sheet output from a TXT file to a CSV file.

Browse source
This commit is contained in:
Bradley M. Kuhn 2013-01-03 12:19:59 -05:00
parent f01ddd4766
commit d18e01a00f
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
contrib/non-profit-audit-reports/summary-reports.plx
View file

@ -146,15 +146,15 @@ foreach my $item (keys %reportFields) {
print STDERR "$item: $reportFields{$item}{total}\n" if $VERBOSE; print STDERR "$item: $reportFields{$item}{total}\n" if $VERBOSE;
} }
open(BALANCE_SHEET, ">", "balance-sheet.txt") open(BALANCE_SHEET, ">", "balance-sheet.csv")
or die "unable to open balance-sheet.txt for writing: $!"; or die "unable to open balance-sheet.csv for writing: $!";
print BALANCE_SHEET " BALANCE SHEET\n", print BALANCE_SHEET "\"BALANCE SHEET\"\n",
" Ending ", $formattedEndDate, "\n", "\"Ending\",\"", $formattedEndDate, "\"\n",
"\n\nASSETS\n\n"; "\n\n\"ASSETS\"\n\n";
my $formatStr = " %-42s \$%13s\n"; my $formatStr = "\"\",\"%-42s\",\"\$%13s\"\n";
my $formatStrTotal = "%-45s \$%13s\n"; my $formatStrTotal = "\"\",\"%-45s\",\"\$%13s\"\n";
my $tot = $ZERO; my $tot = $ZERO;
foreach my $item ('Cash', 'Accounts Receivable', 'Loans Receivable') { foreach my $item ('Cash', 'Accounts Receivable', 'Loans Receivable') {
next if $reportFields{$item}{total} == $ZERO; next if $reportFields{$item}{total} == $ZERO;
@ -186,7 +186,7 @@ print BALANCE_SHEET "\n", sprintf($formatStr, "TOTAL NET ASSETS", Commify($totNe
close BALANCE_SHEET; close BALANCE_SHEET;
print STDERR "\n"; print STDERR "\n";
die "unable to write to balance-sheet.txt: $!" unless ($? == 0); die "unable to write to balance-sheet.csv: $!" unless ($? == 0);
die "Cash+accounts receivable total does not equal net assets and liabilities total" die "Cash+accounts receivable total does not equal net assets and liabilities total"
if (abs( ($reportFields{'Cash'}{total} + $reportFields{'Accounts Receivable'}{total} if (abs( ($reportFields{'Cash'}{total} + $reportFields{'Accounts Receivable'}{total}