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

Beginnings of income report.

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

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

@ -175,9 +175,26 @@ die "Total net assets doesn't equal sum of restricted and unrestricted ones!"
abs($reportFields{'Unrestricted Net Assets'}{total} + abs($reportFields{'Unrestricted Net Assets'}{total} +
$reportFields{'Temporarily Restricted Net Assets'}{total}) > $ONE_PENNY); $reportFields{'Temporarily Restricted Net Assets'}{total}) > $ONE_PENNY);
my(@fullCommand) = ($LEDGER_BIN, @mainLedgerOptions, '-V', '-X', '$',
'-b', $startDate, '-e', $endDate,
'-F', '%-.80A %22.108t\n', '-s',
'reg', '^Income');
open(FILE, "-|", @fullCommand)
or die "unable to run command ledger command: @fullCommand: $!";
open(INCOME, ">", "income.txt")
or die "unable to open balance-sheet.txt for writing: $!";
print INCOME " INCOME\n",
" Between $formattedStartDate and $formattedEndDate\n\n";
foreach my $line (<FILE>) { print INCOME $line; }
close INCOME;
die "unable to write to income.txt: $!" unless ($? == 0);
############################################################################### ###############################################################################
# #
# Local variables: # Local variables:
# compile-command: "perl -c summary-reports.plx" # compile-command: "perl -c summary-reports.plx"
# End: # End: