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

Chart of accounts should have an end date, but not a beginning date.

Browse source
This commit is contained in:
Bradley M. Kuhn 2011-12-02 07:30:04 -05:00
parent 7941d2199f
commit 0542de9da7
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
general-ledger-report.plx
View file

@ -46,7 +46,7 @@ if (@ARGV < 2) {
my($beginDate, $endDate, @otherLedgerOpts) = @ARGV; my($beginDate, $endDate, @otherLedgerOpts) = @ARGV;
my(@chartOfAccountsOpts) = ('--wide-register-format', "%150A\n", '-w', '-s', my(@chartOfAccountsOpts) = ('--wide-register-format', "%150A\n", '-w', '-s',
'-b', $beginDate, @otherLedgerOpts, 'reg'); '-e', $endDate, @otherLedgerOpts, 'reg');
open(CHART_DATA, "-|", $LEDGER_CMD, @chartOfAccountsOpts) open(CHART_DATA, "-|", $LEDGER_CMD, @chartOfAccountsOpts)
or die "Unable to run $LEDGER_CMD @chartOfAccountsOpts: $!"; or die "Unable to run $LEDGER_CMD @chartOfAccountsOpts: $!";
@ -80,7 +80,6 @@ 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;
############################################################################### ###############################################################################
# #
# Local variables: # Local variables: