First attempt at this cash-receipts-and-disbursments-journals.plx script,

based on general-ledger-report.plx
The general-ledger-report.plx was originally found in this repository:
  http://gitorious.org/bkuhn/small-hacks/blobs/master/general-ledger-report.plx
And these early commits on cash-receipts-and-disbursments-journals.plx
were fro that repository as well, in:
http://gitorious.org/bkuhn/small-hacks/blobs/master/cash-receipts-and-disbursments-journals.plx

1 files changed, 131 insertions, 0 deletions

diff --git a/contrib/non-profit-audit-reports/cash-receipts-and-disbursments-journals.plx b/contrib/non-profit-audit-reports/cash-receipts-and-disbursments-journals.plx
new file mode 100644
index 00000000..6b704c08
--- /dev/null
+++ b/contrib/non-profit-audit-reports/cash-receipts-and-disbursments-journals.plx
@@ -0,0 +1,131 @@
+#!/usr/bin/perl
+# cash-receipts-and-disbursments-journals                                    -*- Perl -*-
+#
+#    Script to generate a General Ledger report that accountants like
+#    using Ledger.
+#
+# Copyright (C) 2011, Bradley M. Kuhn
+#
+# This program gives you software freedom; you can copy, modify, convey,
+# and/or redistribute it under the terms of the GNU General Public License
+# as published by the Free Software Foundation; either version 3 of the
+# License, or (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program in a file called 'GPLv3'.  If not, write to the:
+#    Free Software Foundation, Inc., 51 Franklin St, Fifth Floor
+#                                    Boston, MA 02110-1301, USA.
+
+use strict;
+use warnings;
+
+use Math::BigFloat;
+use Date::Manip;
+
+my $LEDGER_CMD = "/usr/bin/ledger";
+
+my $ACCT_WIDTH = 75;
+
+sub ParseNumber($) {
+  $_[0] =~ s/,//g;
+  return Math::BigFloat->new($_[0]);
+}
+
+sub LedgerAcctToFilename($) {
+  $_[0] =~ s/ /-/g;
+  $_[0] =~ s/:/-/g;
+  returen $_[0];
+}
+
+Math::BigFloat->precision(-2);
+my $ZERO =  Math::BigFloat->new("0.00");
+
+if (@ARGV < 2) {
+  print STDERR "usage: $0 <BEGIN_DATE> <END_DATE> <OTHER_LEDGER_OPTS>\n";
+  exit 1;
+}
+
+my($beginDate, $endDate, @otherLedgerOpts) = @ARGV;
+
+my(@chartOfAccountsOpts) = ('--wide-register-format', "%150A\n",  '-w', '-s',
+                            '-b', $beginDate, '-e', $endDate, @otherLedgerOpts, 'reg');
+
+open(CHART_DATA, "-|", $LEDGER_CMD, @chartOfAccountsOpts)
+  or die "Unable to run $LEDGER_CMD @chartOfAccountsOpts: $!";
+
+my @accounts;
+while (my $line = <CHART_DATA>) {
+  chomp $line;
+  $line =~ s/^\s*//;   $line =~ s/\s*$//;
+  push(@accounts, $line);
+
+}
+close(CHART_DATA); die "error reading ledger output for chart of accounts: $!" 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");
+
+foreach my $acct (@accounts) {
+  next unless ($acct =~ /^(?:Assets|Liabilities)/);
+
+  my $acctFilename = LedgerAcctToFilename($acct);
+
+  foreach my $typeData ({ name => 'disbursements', query => 'a<=0' },
+                         { name => 'receipts', query => 'a>0' }) {
+    my $fileNameBase = $acctFilename . '-' . $typeData->{name};
+
+    print TEXT_OUT "\n\nACCOUNT: $acct\nFROM:    $beginDate TO $formattedEndDate\n\n";
+    print CSV_OUT "\n\"ACCOUNT:\",\"$acct\"\n\"PERIOD START:\",\"$beginDate\"\n\"PERIOD END:\",\"$formattedEndDate\"\n";
+    print CSV_OUT '"DATE","CHECK NUM","NAME","ACCOUNT","AMOUNT"', "\n";
+    my @entryLedgerOpts = ('-l', $typeData->{query},
+                           '-b', $beginDate, '-e', $endDate, @otherLedgerOpts, 'print', $acct);
+
+    open(ENTRY_DATA, "-|", $LEDGER_CMD, @entryLedgerOpts)
+      or die "Unable to run $LEDGER_CMD @entryLedgerOpts: $!";
+
+    my $tempFile = "tmp$$";
+
+    open(ENTRY_OUT, ">", $tempFile) or die "Unable to write $tempFile: $!";
+
+    while (my $line = <ENTRY_DATA>) { print ENTRY_OUT $line; }
+    close(ENTRY_DATA); die "Error reading ledger output for entries: $!" unless $? == 0;
+    close(ENTRY_OUT); die "Error writing ledger output for entries to temp file, $tempFile: $!" unless $? == 0;
+
+    my @txtRegLedgerOpts = ('-f', $tempFile, '--wide-register-format',
+                            "%D  %-.70P  %-.10C  %-.80A  %18t\n%/%68|%15|%-.80A  %18t\n", '-w', '--sort', 'd',
+                            '-b', $beginDate, '-e', $endDate, 'reg');
+
+    my @csvRegLedgerOpts = ('-f', $tempFile, '--wide-register-format',
+                            '"%D","%C","%P",%A","%t"\n%/|"","","","%A","%t"\n"', '-w', '--sort', 'd',
+                            '-b', $beginDate, '-e', $endDate, 'reg');
+
+    open(TXT_DATA, "-|", $LEDGER_CMD, @txtRegLedgerOpts)
+      or die "unable to run ledger command for $fileNameBase.txt: $!";
+
+    while (my $line = <TXT_DATA>) { print TEXT_OUT $line; }
+    close(TXT_DATA); die "Error read from txt ledger command $!" unless $? == 0;
+    close(TEXT_OUT); die "Error read write text out to $fileNameBase.txt: $!" unless $? == 0;
+
+    open(CSV_DATA, "-|", $LEDGER_CMD, @csvRegLedgerOpts)
+      or die "unable to run ledger command for $fileNameBase.csv: $!";
+
+    while (my $line = <CSV_DATA>) { print CSV_OUT $line; }
+    close(CSV_DATA); die "Error read from csv ledger command $!" unless $? == 0;
+    close(CSV_OUT); die "Error read write csv out to $fileNameBase.csv: $!" unless $? == 0;
+  }
+}
+###############################################################################
+#
+# Local variables:
+# compile-command: "perl -c cash-receipts-and-disbursments-journals.plx"
+# End:
+