From 65e0c266bed3dd49be687471bb63b3072ad54bb7 Mon Sep 17 00:00:00 2001 From: Tom Marble Date: Fri, 7 Sep 2012 13:24:26 -0500 Subject: Changed general-ledger-report.plx to use tags for Receipt and Invoice (was %N) Added sample PDF artifacts for the example (see README) --- contrib/non-profit-audit-reports/general-ledger-report.plx | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'contrib/non-profit-audit-reports/general-ledger-report.plx') diff --git a/contrib/non-profit-audit-reports/general-ledger-report.plx b/contrib/non-profit-audit-reports/general-ledger-report.plx index d5bc1888..aead7c3d 100755 --- a/contrib/non-profit-audit-reports/general-ledger-report.plx +++ b/contrib/non-profit-audit-reports/general-ledger-report.plx @@ -108,8 +108,7 @@ foreach my $acct (@sortedAccounts) { 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","%N","%t","%T"\n', '-w', '--sort', 'd', - '-b', $beginDate, '-e', $endDate, @otherLedgerOpts, 'reg', $acct); + '"%(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: $!"; -- cgit v1.2.3