bkuhn/small-hacks
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Wrote the basics of the general ledger report using a template sent by my accountant.

Browse source
This commit is contained in:
Bradley M. Kuhn 2011-12-02 08:21:15 -05:00
parent 0542de9da7
commit c59a1277f2
1 changed files with 22 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
general-ledger-report.plx
View file

@ -25,6 +25,7 @@ use strict;
use warnings; use warnings;
use Math::BigFloat; use Math::BigFloat;
use Date::Manip;
my $LEDGER_CMD = "/usr/bin/ledger"; my $LEDGER_CMD = "/usr/bin/ledger";
@ -80,6 +81,27 @@ foreach my $acct (
push(@sortedAccounts, $acct); push(@sortedAccounts, $acct);
} }
close(CHART_OUTPUT); die "error writing to chart-of-accounts.txt: $!" unless $? == 0; close(CHART_OUTPUT); die "error writing to chart-of-accounts.txt: $!" unless $? == 0;
my $formattedEndDate = new Date::Manip::Date;
die "badly formatted end date, $endDate" if $formattedEndDate->parse($endDate);
my $oneDayLess = new Date::Manip::Delta;
die "bad one day less" if $oneDayLess->parse("- 1 day");
$formattedEndDate = $formattedEndDate->calc($oneDayLess);
$formattedEndDate = $formattedEndDate->printf("%Y/%m/%d");
foreach my $acct (@sortedAccounts) {
print "\n\nACCOUNT: $acct\nFROM: $beginDate TO $formattedEndDate\n\n";
my @acctLedgerOpts = ('--wide-register-format',
"%D %-.10C %-.80P %-.80N %18t %18T\n", '-w',
'-b', $beginDate, '-e', $endDate, @otherLedgerOpts, 'reg', $acct);
open(ACCOUNT_DATA, "-|", $LEDGER_CMD, @acctLedgerOpts)
or die "Unable to run $LEDGER_CMD @acctLedgerOpts: $!";
foreach my $line (<ACCOUNT_DATA>) {
print $line;
}
close(ACCOUNT_DATA); die "error reading ledger output for chart of accounts: $!" unless $? == 0;
}
############################################################################### ###############################################################################
# #
# Local variables: # Local variables: