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

Calculate dates in a reusable way throughout script.

Browse source
This commit is contained in:
Bradley M. Kuhn 2012-11-23 09:07:12 -05:00
parent fe608b12e2
commit 76292d08d9
1 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -53,6 +53,14 @@ if (@ARGV < 2) {
} }
my($startDate, $endDate, @mainLedgerOptions) = @ARGV; my($startDate, $endDate, @mainLedgerOptions) = @ARGV;
my $err;
my $formattedEndDate = UnixDate(DateCalc(ParseDate($endDate), ParseDateDelta("- 1 day"), \$err),
"%B %e, %Y");
die "Date calculation error on $endDate" if ($err);
my $formattedStartDate = UnixDate(ParseDate($endDate), "%B %e, %Y"),
die "Date calculation error on $startDate" if ($err);
my %reportFields = my %reportFields =
('Cash' => { args => [ '-e', $endDate, 'bal', '/^Assets/' ] }, ('Cash' => { args => [ '-e', $endDate, 'bal', '/^Assets/' ] },
'Accounts Receivable' => {args => [ '-e', $endDate, 'bal', '/^Accrued:Accounts Receivable/' ]}, 'Accounts Receivable' => {args => [ '-e', $endDate, 'bal', '/^Accrued:Accounts Receivable/' ]},
@ -109,16 +117,12 @@ 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 " BALANCE SHEET\n", print BALANCE_SHEET " BALANCE SHEET\n",
" Ending ", " Ending ", $formattedEndDate, "\n",
UnixDate(DateCalc(ParseDate($endDate), ParseDateDelta("- 1 day"), \$err),
"%B %e, %Y\n"),
"\n\nASSETS\n\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";