sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Change chart of accounts output to be a CSV file instead of TXT file.

Browse source 
This includes adding a formatted start date string too.
This commit is contained in:
Bradley M. Kuhn 2013-01-03 12:19:28 -05:00
parent bfdf20b31c
commit f01ddd4766
1 changed files with 21 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
contrib/non-profit-audit-reports/general-ledger-report.plx
View file

@ -44,10 +44,24 @@ if (@ARGV < 3) {
print STDERR "usage: $0 <BEGIN_DATE> <END_DATE> <OTHER_LEDGER_OPTS>\n"; print STDERR "usage: $0 <BEGIN_DATE> <END_DATE> <OTHER_LEDGER_OPTS>\n";
exit 1; exit 1;
} }
open(MANIFEST, ">", "MANIFEST") or die "Unable to open MANIFEST for writing: $!"; open(MANIFEST, ">", "MANIFEST") or die "Unable to open MANIFEST for writing: $!";
my($beginDate, $endDate, @otherLedgerOpts) = @ARGV; my($beginDate, $endDate, @otherLedgerOpts) = @ARGV;
my $formattedEndDate = new Date::Manip::Date;
die "badly formatted end date, $endDate" if $formattedEndDate->parse($endDate);
my $oneDayLess = new Date::Manip::Delta;
die "bad one day less" if $oneDayLess->parse("- 1 day");
$formattedEndDate = $formattedEndDate->calc($oneDayLess);
$formattedEndDate = $formattedEndDate->printf("%Y/%m/%d");
my $formattedBeginDate = new Date::Manip::Date;
die "badly formatted end date, $endDate" if $formattedBeginDate->parse($endDate);
$formattedBeginDate = $formattedBeginDate->printf("%Y/%m/%d");
my(@chartOfAccountsOpts) = ('-V', '-F', "%150A\n", '-w', '-s', my(@chartOfAccountsOpts) = ('-V', '-F', "%150A\n", '-w', '-s',
'-b', $beginDate, '-e', $endDate, @otherLedgerOpts, 'reg'); '-b', $beginDate, '-e', $endDate, @otherLedgerOpts, 'reg');
@ -64,8 +78,12 @@ while (my $line = <CHART_DATA>) {
} }
close(CHART_DATA); die "error reading ledger output for chart of accounts: $!" unless $? == 0; close(CHART_DATA); die "error reading ledger output for chart of accounts: $!" unless $? == 0;
open(CHART_OUTPUT, ">", "chart-of-accounts.txt") or die "unable to write chart-of-accounts.txt: $!"; open(CHART_OUTPUT, ">", "chart-of-accounts.csv") or die "unable to write chart-of-accounts.csv: $!";
print MANIFEST "chart-of-accounts.txt\n"; print MANIFEST "chart-of-accounts.csv\n";
print CHART_OUTPUT "\"CHART OF ACCOUNTS\",";
print CHART_OUTPUT "\"BEGINNING:\",\"$formattedBeginDate\",";
print CHART_OUTPUT "\"ENDING:\",\"$formattedEndDate\"\n";
sub preferredAccountSorting ($$) { sub preferredAccountSorting ($$) {
if ($_[0] =~ /^Assets/) { if ($_[0] =~ /^Assets/) {
@ -99,17 +117,11 @@ sub preferredAccountSorting ($$) {
my @sortedAccounts; my @sortedAccounts;
foreach my $acct ( sort preferredAccountSorting @accounts) { foreach my $acct ( sort preferredAccountSorting @accounts) {
print CHART_OUTPUT "$acct\n"; print CHART_OUTPUT "\"$acct\"\n";
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;
my $formattedEndDate = new Date::Manip::Date;
die "badly formatted end date, $endDate" if $formattedEndDate->parse($endDate);
my $oneDayLess = new Date::Manip::Delta;
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_TEXT_OUT, ">", "general-ledger.txt") or die "unable to write general-ledger.txt: $!";
print MANIFEST "general-ledger.txt\n"; print MANIFEST "general-ledger.txt\n";