diff options
| author | Tom Marble <tmarble@info9.net> | 2012-09-08 00:30:37 -0500 |
|---|---|---|
| committer | Tom Marble <tmarble@info9.net> | 2012-09-08 00:30:37 -0500 |
| commit | 47130b2dfb2d2489b0dc825d43fe31c2644ac0b6 (patch) | |
| tree | dce91b5c6d42df99e3e3c087203f872bc66f9cf7 /contrib/non-profit-audit-reports/general-ledger-report.plx | |
| parent | fb601e2a656945cdd32a714b5efc9c483935c338 (diff) | |
| download | fork-ledger-47130b2dfb2d2489b0dc825d43fe31c2644ac0b6.tar.gz fork-ledger-47130b2dfb2d2489b0dc825d43fe31c2644ac0b6.tar.bz2 fork-ledger-47130b2dfb2d2489b0dc825d43fe31c2644ac0b6.zip | |
First pass technical study of creating ODS from ledger
Diffstat (limited to 'contrib/non-profit-audit-reports/general-ledger-report.plx')
| -rwxr-xr-x | contrib/non-profit-audit-reports/general-ledger-report.plx | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/contrib/non-profit-audit-reports/general-ledger-report.plx b/contrib/non-profit-audit-reports/general-ledger-report.plx index 41cf0cc9..cc3dc087 100755 --- a/contrib/non-profit-audit-reports/general-ledger-report.plx +++ b/contrib/non-profit-audit-reports/general-ledger-report.plx @@ -107,9 +107,8 @@ foreach my $acct (@sortedAccounts) { close(GL_TEXT_DATA); die "error reading ledger output for chart of accounts: $!" unless $? == 0; 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 = ('-F', - '"%(date)","%C","%P","%(tag(\'Receipt\'))","%(tag(\'Invoice\'))","%t","%T"\n', '-w', '--sort', 'd', '-b', $beginDate, '-e', $endDate, @otherLedgerOpts, 'reg', $acct); + print GL_CSV_OUT '"DATE","CHECK NUM","NAME","Receipt","Invoice","TRANSACTION AMT","RUNNING TOTAL"', "\n"; + @acctLedgerOpts = ('-F', '"%(date)","%C","%P","%(tag(\'Receipt\'))","%(tag(\'Invoice\'))","%t","%T"\n', '-w', '--sort', 'd', '-b', $beginDate, '-e', $endDate, @otherLedgerOpts, 'reg', $acct); open(GL_CSV_DATA, "-|", $LEDGER_CMD, @acctLedgerOpts) or die "Unable to run $LEDGER_CMD @acctLedgerOpts: $!"; |