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

Created beginnings of the CSV output for the General Ledger report.

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

27
general-ledger-report.plx
View file

@ -89,19 +89,36 @@ die "bad one day less" if $oneDayLess->parse("- 1 day");
$formattedEndDate = $formattedEndDate->calc($oneDayLess);
$formattedEndDate = $formattedEndDate->printf("%Y/%m/%d");
open(GL_TEXT_OUT, ">", "general-ledger.txt") or die "unable to write general-ledger.txt: $!";
open(GL_CSV_OUT, ">", "general-ledger.csv") or die "unable to write general-ledger.csv: $!";
foreach my $acct (@sortedAccounts) {
print "\n\nACCOUNT: $acct\nFROM: $beginDate TO $formattedEndDate\n\n";
print GL_TEXT_OUT "\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)
open(GL_TEXT_DATA, "-|", $LEDGER_CMD, @acctLedgerOpts)
or die "Unable to run $LEDGER_CMD @acctLedgerOpts: $!";
foreach my $line (<ACCOUNT_DATA>) {
print $line;
foreach my $line (<GL_TEXT_DATA>) {
print GL_TEXT_OUT $line;
}
close(ACCOUNT_DATA); die "error reading ledger output for chart of accounts: $!" unless $? == 0;
close(GL_TEXT_DATA); die "error reading ledger output for chart of accounts: $!" unless $? == 0;
print GL_CSV_OUT "ACCOUNT,$acct\nPERIOD START,$beginDate,PERIOD END,$formattedEndDate\n\n";
@acctLedgerOpts = ('--wide-register-format',
"%D,%-.10C,%-.100P,%-.200N,%18t,%18T\n", '-w',
'-b', $beginDate, '-e', $endDate, @otherLedgerOpts, 'reg', $acct);
open(GL_CSV_DATA, "-|", $LEDGER_CMD, @acctLedgerOpts)
or die "Unable to run $LEDGER_CMD @acctLedgerOpts: $!";
foreach my $line (<GL_CSV_DATA>) {
print GL_CSV_OUT $line;
}
close(GL_CSV_DATA); die "error reading ledger output for chart of accounts: $!" unless $? == 0;
}
close(GL_TEXT_OUT); die "error writing to general-ledger.txt: $!" unless $? == 0;
close(GL_CSV_OUT); die "error writing to general-ledger.csv: $!" unless $? == 0;
###############################################################################
#
# Local variables: