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

Call a Balance Sheet, a Balance Sheet. :)

Browse source
This commit is contained in:
Bradley M. Kuhn 2012-11-23 08:53:02 -05:00
parent 23dd0899f2
commit e0df353ca3
1 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -113,43 +113,43 @@ foreach my $item (keys %reportFields) {
print STDERR "$item: $reportFields{$item}{total}\n" if $VERBOSE; print STDERR "$item: $reportFields{$item}{total}\n" if $VERBOSE;
} }
open(ASSETS, ">", "assets-and-liabilities.txt") open(BALANCE_SHEET, ">", "balance-sheet.txt")
or die "unable to open assets-and-liabilities.txt for writing: $!"; or die "unable to open balance-sheet.txt for writing: $!";
print ASSETS "ASSETS\n\n"; print BALANCE_SHEET "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;
print ASSETS sprintf($formatStr, "$item:", Commify($reportFields{$item}{total})); print BALANCE_SHEET sprintf($formatStr, "$item:", Commify($reportFields{$item}{total}));
$tot += $reportFields{$item}{total}; $tot += $reportFields{$item}{total};
} }
print ASSETS "\n", sprintf($formatStrTotal, "TOTAL ASSETS", Commify($tot)), "\n\nLIABILITIES\n\n"; print BALANCE_SHEET "\n", sprintf($formatStrTotal, "TOTAL ASSETS", Commify($tot)), "\n\nLIABILITIES\n\n";
my $totLiabilities = $ZERO; my $totLiabilities = $ZERO;
foreach my $item ('Accounts Payable', 'Accrued Expenses', foreach my $item ('Accounts Payable', 'Accrued Expenses',
'Liabilities, Credit Cards', 'Liabilities, Other', 'Liabilities, Credit Cards', 'Liabilities, Other',
'Unearned Income, Conference Registration', 'Unearned Income, Other') { 'Unearned Income, Conference Registration', 'Unearned Income, Other') {
next if $reportFields{$item}{total} == $ZERO; next if $reportFields{$item}{total} == $ZERO;
print ASSETS sprintf($formatStr, "$item:", Commify($reportFields{$item}{total})); print BALANCE_SHEET sprintf($formatStr, "$item:", Commify($reportFields{$item}{total}));
$totLiabilities += $reportFields{$item}{total}; $totLiabilities += $reportFields{$item}{total};
} }
print ASSETS "\n", sprintf($formatStr, "TOTAL LIABILTIES", Commify($totLiabilities)), print BALANCE_SHEET "\n", sprintf($formatStr, "TOTAL LIABILTIES", Commify($totLiabilities)),
"\n\nNET ASSETS\n\n"; "\n\nNET ASSETS\n\n";
my $totNetAssets = $ZERO; my $totNetAssets = $ZERO;
foreach my $item ('Unrestricted Net Assets', 'Temporarily Restricted Net Assets') { foreach my $item ('Unrestricted Net Assets', 'Temporarily Restricted Net Assets') {
next if $reportFields{$item}{total} == $ZERO; next if $reportFields{$item}{total} == $ZERO;
print ASSETS sprintf($formatStr, "$item:", Commify($reportFields{$item}{total})); print BALANCE_SHEET sprintf($formatStr, "$item:", Commify($reportFields{$item}{total}));
$totNetAssets += $reportFields{$item}{total}; $totNetAssets += $reportFields{$item}{total};
} }
print ASSETS "\n", sprintf($formatStr, "TOTAL NET ASSETS", Commify($totNetAssets)), "\n\n", print BALANCE_SHEET "\n", sprintf($formatStr, "TOTAL NET ASSETS", Commify($totNetAssets)), "\n\n",
sprintf($formatStrTotal, "TOTAL LIABILITIES AND NET ASSETS", sprintf($formatStrTotal, "TOTAL LIABILITIES AND NET ASSETS",
Commify($totNetAssets + $totLiabilities)); Commify($totNetAssets + $totLiabilities));
close ASSETS; close BALANCE_SHEET;
print STDERR "\n"; print STDERR "\n";
die "unable to write to Assets-and-liabilities.txt: $!" unless ($? == 0); die "unable to write to Assets-and-liabilities.txt: $!" unless ($? == 0);