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

Various formatting changes for the general ledger output.

Browse source
This commit is contained in:
Bradley M. Kuhn 2011-12-02 08:42:55 -05:00
parent 16c2a98eeb
commit 21ad06d8d1
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
general-ledger-report.plx
View file

@ -95,7 +95,7 @@ open(GL_CSV_OUT, ">", "general-ledger.csv") or die "unable to write general-ledg
foreach my $acct (@sortedAccounts) { foreach my $acct (@sortedAccounts) {
print GL_TEXT_OUT "\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', my @acctLedgerOpts = ('--wide-register-format',
"%D %-.10C %-.80P %-.80N %18t %18T\n", '-w', "%D %-.10C %-.80P %-.80N %18t %18T\n", '-w', '--sort', 'd',
'-b', $beginDate, '-e', $endDate, @otherLedgerOpts, 'reg', $acct); '-b', $beginDate, '-e', $endDate, @otherLedgerOpts, 'reg', $acct);
open(GL_TEXT_DATA, "-|", $LEDGER_CMD, @acctLedgerOpts) open(GL_TEXT_DATA, "-|", $LEDGER_CMD, @acctLedgerOpts)
or die "Unable to run $LEDGER_CMD @acctLedgerOpts: $!"; or die "Unable to run $LEDGER_CMD @acctLedgerOpts: $!";
@ -105,9 +105,10 @@ foreach my $acct (@sortedAccounts) {
} }
close(GL_TEXT_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"; print GL_CSV_OUT "\n\"ACCOUNT:\",\"$acct\"\n\"PERIOD START:\",\"$beginDate\"\n\"PERIOD END:\",\"$formattedEndDate\"\n";
print GL_CSV_OUT '"DATE","CHECK NUM","NAME","MEMO","TRANSACTION AMT","RUNNING TOTAL"', "\n";
@acctLedgerOpts = ('--wide-register-format', @acctLedgerOpts = ('--wide-register-format',
"%D,%-.10C,%-.100P,%-.200N,%18t,%18T\n", '-w', '"%D","%C","%P","%N","%t","%T"\n', '-w', '--sort', 'd',
'-b', $beginDate, '-e', $endDate, @otherLedgerOpts, 'reg', $acct); '-b', $beginDate, '-e', $endDate, @otherLedgerOpts, 'reg', $acct);
open(GL_CSV_DATA, "-|", $LEDGER_CMD, @acctLedgerOpts) open(GL_CSV_DATA, "-|", $LEDGER_CMD, @acctLedgerOpts)
or die "Unable to run $LEDGER_CMD @acctLedgerOpts: $!"; or die "Unable to run $LEDGER_CMD @acctLedgerOpts: $!";