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

Output should include a heading and an ending date.

Browse source
This commit is contained in:
Bradley M. Kuhn 2012-11-23 09:01:19 -05:00
parent e0df353ca3
commit 239df56cfb
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -24,6 +24,7 @@ use strict;
use warnings; use warnings;
use Math::BigFloat; use Math::BigFloat;
use Date::Manip;
my $VERBOSE = 0; my $VERBOSE = 0;
my $DEBUG = 0; my $DEBUG = 0;
@ -113,10 +114,16 @@ foreach my $item (keys %reportFields) {
print STDERR "$item: $reportFields{$item}{total}\n" if $VERBOSE; print STDERR "$item: $reportFields{$item}{total}\n" if $VERBOSE;
} }
my $err;
open(BALANCE_SHEET, ">", "balance-sheet.txt") open(BALANCE_SHEET, ">", "balance-sheet.txt")
or die "unable to open balance-sheet.txt for writing: $!"; or die "unable to open balance-sheet.txt for writing: $!";
print BALANCE_SHEET "ASSETS\n\n"; print BALANCE_SHEET " BALANCE SHEET\n",
" Ending ",
UnixDate(DateCalc(ParseDate($endDate), ParseDateDelta("- 1 day"), \$err),
"%B %e, %Y\n"),
"\n\nASSETS\n\n";
die "Date calculation error" if ($err);
my $formatStr = " %-42s \$%13s\n"; my $formatStr = " %-42s \$%13s\n";
my $formatStrTotal = "%-45s \$%13s\n"; my $formatStrTotal = "%-45s \$%13s\n";