From 7ed4d20d87868d5e3918b5d2cccf6558e2849ca6 Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Thu, 22 Nov 2012 19:40:36 -0500
Subject: Began summary reports script, starting with a basic balance sheet.

---
 .../non-profit-audit-reports/summary-reports.plx   | 168 +++++++++++++++++++++
 1 file changed, 168 insertions(+)
 create mode 100755 contrib/non-profit-audit-reports/summary-reports.plx

(limited to 'contrib/non-profit-audit-reports/summary-reports.plx')

diff --git a/contrib/non-profit-audit-reports/summary-reports.plx b/contrib/non-profit-audit-reports/summary-reports.plx
new file mode 100755
index 00000000..1b9bc734
--- /dev/null
+++ b/contrib/non-profit-audit-reports/summary-reports.plx
@@ -0,0 +1,168 @@
+#!/usr/bin/perl
+# fund-report.plx                                    -*- Perl -*-
+#
+#    Script to generate end-of-year summary reports.
+#
+# Copyright (C) 2011, 2012, 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;
+
+my $VERBOSE = 0;
+my $DEBUG = 0;
+
+my $LEDGER_BIN = "/usr/local/bin/ledger";
+
+my $ACCT_WIDTH = 70;
+
+sub Commify ($) {
+    my $text = reverse $_[0];
+    $text =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1,/g;
+    return scalar reverse $text;
+}
+
+sub ParseNumber($) {
+  $_[0] =~ s/,//g;
+  return Math::BigFloat->new($_[0]);
+}
+Math::BigFloat->precision(-2);
+my $ZERO =  Math::BigFloat->new("0.00");
+
+if (@ARGV < 2) {
+  print STDERR "usage: $0 <START_DATE> <END_DATE> <LEDGER_OPTIONS>\n";
+  exit 1;
+}
+my($startDate, $endDate, @mainLedgerOptions) = @ARGV;
+
+# First, get fund list from ending balance
+my(@ledgerOptions) = (@mainLedgerOptions,
+                      '-V', '-X', '$', '-F', "%-.70A %22.108t\n", '-S', 'T', '-s',
+                      'd', 'T', '-e', $endDate, 'bal', '/^Assets/');
+
+my %reportFields =
+  ('Cash' => { args => [ '-e', $endDate, 'bal', '/^Assets/' ] },
+   'Accounts Receivable' => {args => [ '-e', $endDate, 'bal', '/^Accrued:Accounts Receivable/' ]},
+   'Accounts Payable' => {args => [ '-e', $endDate, 'bal', '/^Accrued.*Accounts Payable/' ]},
+   'Accrued Expenses' => {args => [ '-e', $endDate, 'bal', '/^Accrued.*Expenses/' ]},
+   'Unearned Income, Conference Registration' => {args => [ '-e', $endDate, 'bal',
+                                                   '/^Unearned Income.*Conf.*Reg/' ]},
+   'Unearned Income, Other' => {args => [ '-e', $endDate, 'bal', '/^Unearned Income/', 'and', 'not',
+                                                   '/^Unearned Income.*Conf.*Reg/' ]},
+   'Unrestricted Net Assets' => {args => [ '-e', $endDate, 'bal', '/^(Income|Expenses):Conservancy/' ]},
+   'Temporarily Restricted Net Assets' =>  {args => [ '-e', $endDate, 'bal', '/^(Income|Expenses)/',
+                              'and', 'not', '/^(Unearned Income|(Income|Expenses):Conservancy)/' ]},
+   'Total Net Assets' =>  {args => [ '-e', $endDate, 'bal', '/^(Income|Expenses)/' ]},
+
+);
+foreach my $item (keys %reportFields) {
+  my(@fullCommand) = ($LEDGER_BIN, @mainLedgerOptions,
+                      '-V', '-S', 'T', '-s', '-d', 'T', @{$reportFields{$item}{args}});
+  open(FILE, "-|", @fullCommand)
+    or die "unable to run command ledger command: @fullCommand: $!";
+
+  my $foundBalance;
+  my $seenTotalLine = 0;
+
+  print STDERR ($VERBOSE ? "Running: @fullCommand\n" : ".");
+  print STDERR "    Output of @fullCommand\n" if $DEBUG;
+
+  while (my $line = <FILE>) {
+    print STDERR $line if ($DEBUG);
+
+    $seenTotalLine = 1 if $line =~ /^\s*\-+\s*/;   # Skip lines until the total line
+    $foundBalance = $1
+      if (not $seenTotalLine and $line =~ /^\s*[^0-9\-]+\s*([\-\d,\.]+)\s+/);
+
+    if ($line =~ /^\s*\$\s*([\-\d,\.]+)\s*$/) {
+      $foundBalance = $1;
+      last;
+    }
+  }
+  close FILE;
+  die "problem running ledger command: @fullCommand: $!" unless ($? == 0);
+  if (not defined $foundBalance) {
+    $foundBalance = $ZERO;
+  } else {
+    $foundBalance =~ s/,//g;
+    $foundBalance = Math::BigFloat->new($foundBalance);
+  }
+  $foundBalance = $ZERO if not defined $foundBalance;
+  $reportFields{$item}{total} = abs($foundBalance);
+  print STDERR  "$item: $reportFields{$item}{total}\n" if $VERBOSE;
+}
+
+die "Cash+accounts receivable total does not equal net assets and liabilities total"
+  if ( ($reportFields{'Cash'}{total} + $reportFields{'Accounts Receivable'}{total}) !=
+      ($reportFields{'Accounts Payable'}{total} +
+       $reportFields{'Accrued Expenses'}{total} +
+       $reportFields{'Unearned Income, Conference Registration'}{total} +
+       $reportFields{'Unearned Income, Other'}{total} +
+       $reportFields{'Total Net Assets'}{total}));
+
+die "Total net assets doesn't equal sum of restricted and unrestricted ones!"
+  if ($reportFields{'Total Net Assets'}{total} !=
+      $reportFields{'Unrestricted Net Assets'}{total} +
+      $reportFields{'Temporarily Restricted Net Assets'}{total});
+
+open(ASSETS, ">", "assets-and-liabilities.txt")
+  or die "unable to open assets-and-liabilities.txt for writing: $!";
+
+print ASSETS "ASSETS\n\n";
+
+my $formatStr      = "   %-42s \$%18s\n";
+my $formatStrTotal = "%-45s \$%12s\n";
+my $tot = $ZERO;
+foreach my $item ('Cash', 'Accounts Receivable') {
+  next if $reportFields{$item}{total} == $ZERO;
+  print ASSETS sprintf($formatStr, "$item:", Commify($reportFields{$item}{total}));
+  $tot += $reportFields{$item}{total};
+}
+print ASSETS "\n", sprintf($formatStrTotal, "TOTAL ASSETS", Commify($tot)), "\n\nLIABILITIES\n\n";
+
+my $totLiabilities = $ZERO;
+foreach my $item ('Accounts Payable', 'Accrued Expenses',
+                  'Unearned Income, Conference Registration', 'Unearned Income, Other') {
+  next if $reportFields{$item}{total} == $ZERO;
+  print ASSETS sprintf($formatStr, "$item:", Commify($reportFields{$item}{total}));
+  $totLiabilities += $reportFields{$item}{total};
+}
+print ASSETS "\n", sprintf($formatStr, "TOTAL LIABILTIES", Commify($totLiabilities)),
+  "\n\nNET ASSETS\n\n";
+
+my $totNetAssets = $ZERO;
+foreach my $item ('Unrestricted Net Assets', 'Temporarily Restricted Net Assets') {
+  next if $reportFields{$item}{total} == $ZERO;
+  print ASSETS sprintf($formatStr, "$item:", Commify($reportFields{$item}{total}));
+  $totNetAssets += $reportFields{$item}{total};
+}
+print ASSETS "\n", sprintf($formatStr, "TOTAL NET ASSETS", Commify($totNetAssets)), "\n\n",
+             sprintf($formatStrTotal, "TOTAL LIABILITIES AND NET ASSETS", 
+                     Commify($totNetAssets + $totLiabilities));
+
+close ASSETS;
+print STDERR "\n";
+die "unable to write to Assets-and-liabilities.txt: $!" unless ($? == 0);
+
+###############################################################################
+#
+# Local variables:
+# compile-command: "perl -c summary-reports.plx"
+# End:
+
-- 
cgit v1.2.3


From f0ee16a373412e3654120e3847430a1a94ea8d23 Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Fri, 23 Nov 2012 08:35:38 -0500
Subject: Add Loans.

---
 contrib/non-profit-audit-reports/summary-reports.plx | 1 +
 1 file changed, 1 insertion(+)

(limited to 'contrib/non-profit-audit-reports/summary-reports.plx')

diff --git a/contrib/non-profit-audit-reports/summary-reports.plx b/contrib/non-profit-audit-reports/summary-reports.plx
index 1b9bc734..a175f5ba 100755
--- a/contrib/non-profit-audit-reports/summary-reports.plx
+++ b/contrib/non-profit-audit-reports/summary-reports.plx
@@ -59,6 +59,7 @@ my(@ledgerOptions) = (@mainLedgerOptions,
 my %reportFields =
   ('Cash' => { args => [ '-e', $endDate, 'bal', '/^Assets/' ] },
    'Accounts Receivable' => {args => [ '-e', $endDate, 'bal', '/^Accrued:Accounts Receivable/' ]},
+   'Loans Receivable' => {args => [ '-e', $endDate, 'bal', '/^Accrued:Loans Receivable/' ]},
    'Accounts Payable' => {args => [ '-e', $endDate, 'bal', '/^Accrued.*Accounts Payable/' ]},
    'Accrued Expenses' => {args => [ '-e', $endDate, 'bal', '/^Accrued.*Expenses/' ]},
    'Unearned Income, Conference Registration' => {args => [ '-e', $endDate, 'bal',
-- 
cgit v1.2.3


From 7b0e4c48067296d15c6f350948cbf29d7aec5787 Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Fri, 23 Nov 2012 08:35:45 -0500
Subject: Add -X $.

---
 contrib/non-profit-audit-reports/summary-reports.plx | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'contrib/non-profit-audit-reports/summary-reports.plx')

diff --git a/contrib/non-profit-audit-reports/summary-reports.plx b/contrib/non-profit-audit-reports/summary-reports.plx
index a175f5ba..c0731322 100755
--- a/contrib/non-profit-audit-reports/summary-reports.plx
+++ b/contrib/non-profit-audit-reports/summary-reports.plx
@@ -74,7 +74,7 @@ my %reportFields =
 );
 foreach my $item (keys %reportFields) {
   my(@fullCommand) = ($LEDGER_BIN, @mainLedgerOptions,
-                      '-V', '-S', 'T', '-s', '-d', 'T', @{$reportFields{$item}{args}});
+                      '-V', '-X', '$', '-S', 'T', '-s', '-d', 'T', @{$reportFields{$item}{args}});
   open(FILE, "-|", @fullCommand)
     or die "unable to run command ledger command: @fullCommand: $!";
 
-- 
cgit v1.2.3


From cba448b28bbc26a03a5b590818ff8668ac162681 Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Fri, 23 Nov 2012 08:36:11 -0500
Subject: Move sanity checks to the bottom, after report is generated.  Also,
 fix formatting.

---
 .../non-profit-audit-reports/summary-reports.plx   | 33 +++++++++++-----------
 1 file changed, 17 insertions(+), 16 deletions(-)

(limited to 'contrib/non-profit-audit-reports/summary-reports.plx')

diff --git a/contrib/non-profit-audit-reports/summary-reports.plx b/contrib/non-profit-audit-reports/summary-reports.plx
index c0731322..0f0e09ee 100755
--- a/contrib/non-profit-audit-reports/summary-reports.plx
+++ b/contrib/non-profit-audit-reports/summary-reports.plx
@@ -109,28 +109,15 @@ foreach my $item (keys %reportFields) {
   print STDERR  "$item: $reportFields{$item}{total}\n" if $VERBOSE;
 }
 
-die "Cash+accounts receivable total does not equal net assets and liabilities total"
-  if ( ($reportFields{'Cash'}{total} + $reportFields{'Accounts Receivable'}{total}) !=
-      ($reportFields{'Accounts Payable'}{total} +
-       $reportFields{'Accrued Expenses'}{total} +
-       $reportFields{'Unearned Income, Conference Registration'}{total} +
-       $reportFields{'Unearned Income, Other'}{total} +
-       $reportFields{'Total Net Assets'}{total}));
-
-die "Total net assets doesn't equal sum of restricted and unrestricted ones!"
-  if ($reportFields{'Total Net Assets'}{total} !=
-      $reportFields{'Unrestricted Net Assets'}{total} +
-      $reportFields{'Temporarily Restricted Net Assets'}{total});
-
 open(ASSETS, ">", "assets-and-liabilities.txt")
   or die "unable to open assets-and-liabilities.txt for writing: $!";
 
 print ASSETS "ASSETS\n\n";
 
-my $formatStr      = "   %-42s \$%18s\n";
-my $formatStrTotal = "%-45s \$%12s\n";
+my $formatStr      = "   %-42s \$%13s\n";
+my $formatStrTotal = "%-45s \$%13s\n";
 my $tot = $ZERO;
-foreach my $item ('Cash', 'Accounts Receivable') {
+foreach my $item ('Cash', 'Accounts Receivable', 'Loans Receivable') {
   next if $reportFields{$item}{total} == $ZERO;
   print ASSETS sprintf($formatStr, "$item:", Commify($reportFields{$item}{total}));
   $tot += $reportFields{$item}{total};
@@ -161,6 +148,20 @@ close ASSETS;
 print STDERR "\n";
 die "unable to write to Assets-and-liabilities.txt: $!" unless ($? == 0);
 
+die "Cash+accounts receivable total does not equal net assets and liabilities total"
+  if ( ($reportFields{'Cash'}{total} + $reportFields{'Accounts Receivable'}{total}
+       + $reportFields{'Loans Receivable'}{total}) !=
+      ($reportFields{'Accounts Payable'}{total} +
+       $reportFields{'Accrued Expenses'}{total} +
+       $reportFields{'Unearned Income, Conference Registration'}{total} +
+       $reportFields{'Unearned Income, Other'}{total} +
+       $reportFields{'Total Net Assets'}{total}));
+
+die "Total net assets doesn't equal sum of restricted and unrestricted ones!"
+  if ($reportFields{'Total Net Assets'}{total} !=
+      $reportFields{'Unrestricted Net Assets'}{total} +
+      $reportFields{'Temporarily Restricted Net Assets'}{total});
+
 ###############################################################################
 #
 # Local variables:
-- 
cgit v1.2.3


From 46b13e8e550fb05a3e863e913cf6cd359ef42272 Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Fri, 23 Nov 2012 08:44:53 -0500
Subject: Include credit card balances in the Liabilities list.

---
 contrib/non-profit-audit-reports/summary-reports.plx | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'contrib/non-profit-audit-reports/summary-reports.plx')

diff --git a/contrib/non-profit-audit-reports/summary-reports.plx b/contrib/non-profit-audit-reports/summary-reports.plx
index 0f0e09ee..04923de8 100755
--- a/contrib/non-profit-audit-reports/summary-reports.plx
+++ b/contrib/non-profit-audit-reports/summary-reports.plx
@@ -62,6 +62,7 @@ my %reportFields =
    'Loans Receivable' => {args => [ '-e', $endDate, 'bal', '/^Accrued:Loans Receivable/' ]},
    'Accounts Payable' => {args => [ '-e', $endDate, 'bal', '/^Accrued.*Accounts Payable/' ]},
    'Accrued Expenses' => {args => [ '-e', $endDate, 'bal', '/^Accrued.*Expenses/' ]},
+   'Liabilities, Credit Cards' => {args => [ '-e', $endDate, 'bal', '/^Liabilities:Credit Card/' ]},
    'Unearned Income, Conference Registration' => {args => [ '-e', $endDate, 'bal',
                                                    '/^Unearned Income.*Conf.*Reg/' ]},
    'Unearned Income, Other' => {args => [ '-e', $endDate, 'bal', '/^Unearned Income/', 'and', 'not',
@@ -125,7 +126,7 @@ foreach my $item ('Cash', 'Accounts Receivable', 'Loans Receivable') {
 print ASSETS "\n", sprintf($formatStrTotal, "TOTAL ASSETS", Commify($tot)), "\n\nLIABILITIES\n\n";
 
 my $totLiabilities = $ZERO;
-foreach my $item ('Accounts Payable', 'Accrued Expenses',
+foreach my $item ('Accounts Payable', 'Liabilities, Credit Cards', 'Accrued Expenses',
                   'Unearned Income, Conference Registration', 'Unearned Income, Other') {
   next if $reportFields{$item}{total} == $ZERO;
   print ASSETS sprintf($formatStr, "$item:", Commify($reportFields{$item}{total}));
@@ -155,6 +156,7 @@ die "Cash+accounts receivable total does not equal net assets and liabilities to
        $reportFields{'Accrued Expenses'}{total} +
        $reportFields{'Unearned Income, Conference Registration'}{total} +
        $reportFields{'Unearned Income, Other'}{total} +
+       $reportFields{'Liabilities, Credit Cards'}{total} +
        $reportFields{'Total Net Assets'}{total}));
 
 die "Total net assets doesn't equal sum of restricted and unrestricted ones!"
-- 
cgit v1.2.3


From ccd5d06c04576bbd3911d4ce0c9ccb8c4ec4cfc5 Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Fri, 23 Nov 2012 08:45:52 -0500
Subject: Include any other liabilities that aren't credit cards.

---
 contrib/non-profit-audit-reports/summary-reports.plx | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'contrib/non-profit-audit-reports/summary-reports.plx')

diff --git a/contrib/non-profit-audit-reports/summary-reports.plx b/contrib/non-profit-audit-reports/summary-reports.plx
index 04923de8..14923a42 100755
--- a/contrib/non-profit-audit-reports/summary-reports.plx
+++ b/contrib/non-profit-audit-reports/summary-reports.plx
@@ -63,6 +63,8 @@ my %reportFields =
    'Accounts Payable' => {args => [ '-e', $endDate, 'bal', '/^Accrued.*Accounts Payable/' ]},
    'Accrued Expenses' => {args => [ '-e', $endDate, 'bal', '/^Accrued.*Expenses/' ]},
    'Liabilities, Credit Cards' => {args => [ '-e', $endDate, 'bal', '/^Liabilities:Credit Card/' ]},
+   'Liabilities, Other' => {args => [ '-e', $endDate, 'bal', '/^Liabilities/',
+                                    'and', 'not', '/^Liabilities:Credit Card/']},
    'Unearned Income, Conference Registration' => {args => [ '-e', $endDate, 'bal',
                                                    '/^Unearned Income.*Conf.*Reg/' ]},
    'Unearned Income, Other' => {args => [ '-e', $endDate, 'bal', '/^Unearned Income/', 'and', 'not',
@@ -126,7 +128,8 @@ foreach my $item ('Cash', 'Accounts Receivable', 'Loans Receivable') {
 print ASSETS "\n", sprintf($formatStrTotal, "TOTAL ASSETS", Commify($tot)), "\n\nLIABILITIES\n\n";
 
 my $totLiabilities = $ZERO;
-foreach my $item ('Accounts Payable', 'Liabilities, Credit Cards', 'Accrued Expenses',
+foreach my $item ('Accounts Payable', 'Accrued Expenses',
+                  'Liabilities, Credit Cards', 'Liabilities, Other',
                   'Unearned Income, Conference Registration', 'Unearned Income, Other') {
   next if $reportFields{$item}{total} == $ZERO;
   print ASSETS sprintf($formatStr, "$item:", Commify($reportFields{$item}{total}));
@@ -157,6 +160,7 @@ die "Cash+accounts receivable total does not equal net assets and liabilities to
        $reportFields{'Unearned Income, Conference Registration'}{total} +
        $reportFields{'Unearned Income, Other'}{total} +
        $reportFields{'Liabilities, Credit Cards'}{total} +
+       $reportFields{'Liabilities, Other'}{total} +
        $reportFields{'Total Net Assets'}{total}));
 
 die "Total net assets doesn't equal sum of restricted and unrestricted ones!"
-- 
cgit v1.2.3


From 23dd0899f2634cad221b1859f127a0a6c96d62a2 Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Fri, 23 Nov 2012 08:48:32 -0500
Subject: Allow for one penny margin of error on totals.

---
 contrib/non-profit-audit-reports/summary-reports.plx | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

(limited to 'contrib/non-profit-audit-reports/summary-reports.plx')

diff --git a/contrib/non-profit-audit-reports/summary-reports.plx b/contrib/non-profit-audit-reports/summary-reports.plx
index 14923a42..875f89be 100755
--- a/contrib/non-profit-audit-reports/summary-reports.plx
+++ b/contrib/non-profit-audit-reports/summary-reports.plx
@@ -44,6 +44,7 @@ sub ParseNumber($) {
 }
 Math::BigFloat->precision(-2);
 my $ZERO =  Math::BigFloat->new("0.00");
+my $ONE_PENNY =  Math::BigFloat->new("0.01");
 
 if (@ARGV < 2) {
   print STDERR "usage: $0 <START_DATE> <END_DATE> <LEDGER_OPTIONS>\n";
@@ -153,20 +154,20 @@ print STDERR "\n";
 die "unable to write to Assets-and-liabilities.txt: $!" unless ($? == 0);
 
 die "Cash+accounts receivable total does not equal net assets and liabilities total"
-  if ( ($reportFields{'Cash'}{total} + $reportFields{'Accounts Receivable'}{total}
-       + $reportFields{'Loans Receivable'}{total}) !=
-      ($reportFields{'Accounts Payable'}{total} +
+  if (abs( ($reportFields{'Cash'}{total} + $reportFields{'Accounts Receivable'}{total}
+       + $reportFields{'Loans Receivable'}{total})) -
+      abs($reportFields{'Accounts Payable'}{total} +
        $reportFields{'Accrued Expenses'}{total} +
        $reportFields{'Unearned Income, Conference Registration'}{total} +
        $reportFields{'Unearned Income, Other'}{total} +
        $reportFields{'Liabilities, Credit Cards'}{total} +
        $reportFields{'Liabilities, Other'}{total} +
-       $reportFields{'Total Net Assets'}{total}));
+       $reportFields{'Total Net Assets'}{total}) > $ONE_PENNY);
 
 die "Total net assets doesn't equal sum of restricted and unrestricted ones!"
-  if ($reportFields{'Total Net Assets'}{total} !=
-      $reportFields{'Unrestricted Net Assets'}{total} +
-      $reportFields{'Temporarily Restricted Net Assets'}{total});
+  if (abs($reportFields{'Total Net Assets'}{total}) -
+      abs($reportFields{'Unrestricted Net Assets'}{total} +
+      $reportFields{'Temporarily Restricted Net Assets'}{total}) > $ONE_PENNY);
 
 ###############################################################################
 #
-- 
cgit v1.2.3


From e0df353ca37e4601921341a692300754186c8e6e Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Fri, 23 Nov 2012 08:53:02 -0500
Subject: Call a Balance Sheet, a Balance Sheet. :)

---
 contrib/non-profit-audit-reports/summary-reports.plx | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

(limited to 'contrib/non-profit-audit-reports/summary-reports.plx')

diff --git a/contrib/non-profit-audit-reports/summary-reports.plx b/contrib/non-profit-audit-reports/summary-reports.plx
index 875f89be..27a8d210 100755
--- a/contrib/non-profit-audit-reports/summary-reports.plx
+++ b/contrib/non-profit-audit-reports/summary-reports.plx
@@ -113,43 +113,43 @@ foreach my $item (keys %reportFields) {
   print STDERR  "$item: $reportFields{$item}{total}\n" if $VERBOSE;
 }
 
-open(ASSETS, ">", "assets-and-liabilities.txt")
-  or die "unable to open assets-and-liabilities.txt for writing: $!";
+open(BALANCE_SHEET, ">", "balance-sheet.txt")
+  or die "unable to open balance-sheet.txt for writing: $!";
 
-print ASSETS "ASSETS\n\n";
+print BALANCE_SHEET "ASSETS\n\n";
 
 my $formatStr      = "   %-42s \$%13s\n";
 my $formatStrTotal = "%-45s \$%13s\n";
 my $tot = $ZERO;
 foreach my $item ('Cash', 'Accounts Receivable', 'Loans Receivable') {
   next if $reportFields{$item}{total} == $ZERO;
-  print ASSETS sprintf($formatStr, "$item:", Commify($reportFields{$item}{total}));
+  print BALANCE_SHEET sprintf($formatStr, "$item:", Commify($reportFields{$item}{total}));
   $tot += $reportFields{$item}{total};
 }
-print ASSETS "\n", sprintf($formatStrTotal, "TOTAL ASSETS", Commify($tot)), "\n\nLIABILITIES\n\n";
+print BALANCE_SHEET "\n", sprintf($formatStrTotal, "TOTAL ASSETS", Commify($tot)), "\n\nLIABILITIES\n\n";
 
 my $totLiabilities = $ZERO;
 foreach my $item ('Accounts Payable', 'Accrued Expenses',
                   'Liabilities, Credit Cards', 'Liabilities, Other',
                   'Unearned Income, Conference Registration', 'Unearned Income, Other') {
   next if $reportFields{$item}{total} == $ZERO;
-  print ASSETS sprintf($formatStr, "$item:", Commify($reportFields{$item}{total}));
+  print BALANCE_SHEET sprintf($formatStr, "$item:", Commify($reportFields{$item}{total}));
   $totLiabilities += $reportFields{$item}{total};
 }
-print ASSETS "\n", sprintf($formatStr, "TOTAL LIABILTIES", Commify($totLiabilities)),
+print BALANCE_SHEET "\n", sprintf($formatStr, "TOTAL LIABILTIES", Commify($totLiabilities)),
   "\n\nNET ASSETS\n\n";
 
 my $totNetAssets = $ZERO;
 foreach my $item ('Unrestricted Net Assets', 'Temporarily Restricted Net Assets') {
   next if $reportFields{$item}{total} == $ZERO;
-  print ASSETS sprintf($formatStr, "$item:", Commify($reportFields{$item}{total}));
+  print BALANCE_SHEET sprintf($formatStr, "$item:", Commify($reportFields{$item}{total}));
   $totNetAssets += $reportFields{$item}{total};
 }
-print ASSETS "\n", sprintf($formatStr, "TOTAL NET ASSETS", Commify($totNetAssets)), "\n\n",
+print BALANCE_SHEET "\n", sprintf($formatStr, "TOTAL NET ASSETS", Commify($totNetAssets)), "\n\n",
              sprintf($formatStrTotal, "TOTAL LIABILITIES AND NET ASSETS", 
                      Commify($totNetAssets + $totLiabilities));
 
-close ASSETS;
+close BALANCE_SHEET;
 print STDERR "\n";
 die "unable to write to Assets-and-liabilities.txt: $!" unless ($? == 0);
 
-- 
cgit v1.2.3


From 239df56cfba6ad715f4fc63f9fde6dd968e973cd Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Fri, 23 Nov 2012 09:01:19 -0500
Subject: Output should include a heading and an ending date.

---
 contrib/non-profit-audit-reports/summary-reports.plx | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'contrib/non-profit-audit-reports/summary-reports.plx')

diff --git a/contrib/non-profit-audit-reports/summary-reports.plx b/contrib/non-profit-audit-reports/summary-reports.plx
index 27a8d210..c41fee50 100755
--- a/contrib/non-profit-audit-reports/summary-reports.plx
+++ b/contrib/non-profit-audit-reports/summary-reports.plx
@@ -24,6 +24,7 @@ use strict;
 use warnings;
 
 use Math::BigFloat;
+use Date::Manip;
 
 my $VERBOSE = 0;
 my $DEBUG = 0;
@@ -113,10 +114,16 @@ foreach my $item (keys %reportFields) {
   print STDERR  "$item: $reportFields{$item}{total}\n" if $VERBOSE;
 }
 
+my $err;
 open(BALANCE_SHEET, ">", "balance-sheet.txt")
   or die "unable to open balance-sheet.txt for writing: $!";
 
-print BALANCE_SHEET "ASSETS\n\n";
+print BALANCE_SHEET "                          BALANCE SHEET\n",
+                    "                          Ending ",
+                    UnixDate(DateCalc(ParseDate($endDate), ParseDateDelta("- 1 day"), \$err),
+                             "%B %e, %Y\n"),
+                  "\n\nASSETS\n\n";
+die "Date calculation error" if ($err);
 
 my $formatStr      = "   %-42s \$%13s\n";
 my $formatStrTotal = "%-45s \$%13s\n";
-- 
cgit v1.2.3


From fe608b12e2a3b774bc7e56b40d95444bcf0d476e Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Fri, 23 Nov 2012 09:02:35 -0500
Subject: Remove cruft cut-and-pasted from another script.

---
 contrib/non-profit-audit-reports/summary-reports.plx | 5 -----
 1 file changed, 5 deletions(-)

(limited to 'contrib/non-profit-audit-reports/summary-reports.plx')

diff --git a/contrib/non-profit-audit-reports/summary-reports.plx b/contrib/non-profit-audit-reports/summary-reports.plx
index c41fee50..154662f1 100755
--- a/contrib/non-profit-audit-reports/summary-reports.plx
+++ b/contrib/non-profit-audit-reports/summary-reports.plx
@@ -53,11 +53,6 @@ if (@ARGV < 2) {
 }
 my($startDate, $endDate, @mainLedgerOptions) = @ARGV;
 
-# First, get fund list from ending balance
-my(@ledgerOptions) = (@mainLedgerOptions,
-                      '-V', '-X', '$', '-F', "%-.70A %22.108t\n", '-S', 'T', '-s',
-                      'd', 'T', '-e', $endDate, 'bal', '/^Assets/');
-
 my %reportFields =
   ('Cash' => { args => [ '-e', $endDate, 'bal', '/^Assets/' ] },
    'Accounts Receivable' => {args => [ '-e', $endDate, 'bal', '/^Accrued:Accounts Receivable/' ]},
-- 
cgit v1.2.3


From 76292d08d92365a10964255a01a60ee1f6aa7448 Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Fri, 23 Nov 2012 09:07:12 -0500
Subject: Calculate dates in a reusable way throughout script.

---
 contrib/non-profit-audit-reports/summary-reports.plx | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

(limited to 'contrib/non-profit-audit-reports/summary-reports.plx')

diff --git a/contrib/non-profit-audit-reports/summary-reports.plx b/contrib/non-profit-audit-reports/summary-reports.plx
index 154662f1..b49e6bdd 100755
--- a/contrib/non-profit-audit-reports/summary-reports.plx
+++ b/contrib/non-profit-audit-reports/summary-reports.plx
@@ -53,6 +53,14 @@ if (@ARGV < 2) {
 }
 my($startDate, $endDate, @mainLedgerOptions) = @ARGV;
 
+my $err;
+my $formattedEndDate = UnixDate(DateCalc(ParseDate($endDate), ParseDateDelta("- 1 day"), \$err),
+                                "%B %e, %Y");
+die "Date calculation error on $endDate" if ($err);
+
+my $formattedStartDate = UnixDate(ParseDate($endDate), "%B %e, %Y"),
+die "Date calculation error on $startDate" if ($err);
+
 my %reportFields =
   ('Cash' => { args => [ '-e', $endDate, 'bal', '/^Assets/' ] },
    'Accounts Receivable' => {args => [ '-e', $endDate, 'bal', '/^Accrued:Accounts Receivable/' ]},
@@ -109,16 +117,12 @@ foreach my $item (keys %reportFields) {
   print STDERR  "$item: $reportFields{$item}{total}\n" if $VERBOSE;
 }
 
-my $err;
 open(BALANCE_SHEET, ">", "balance-sheet.txt")
   or die "unable to open balance-sheet.txt for writing: $!";
 
 print BALANCE_SHEET "                          BALANCE SHEET\n",
-                    "                          Ending ",
-                    UnixDate(DateCalc(ParseDate($endDate), ParseDateDelta("- 1 day"), \$err),
-                             "%B %e, %Y\n"),
+                    "                          Ending ", $formattedEndDate, "\n",
                   "\n\nASSETS\n\n";
-die "Date calculation error" if ($err);
 
 my $formatStr      = "   %-42s \$%13s\n";
 my $formatStrTotal = "%-45s \$%13s\n";
-- 
cgit v1.2.3


From 13c8a1fb569ddd83a65645e40c7f0c83b3a725eb Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Fri, 23 Nov 2012 09:53:05 -0500
Subject: Beginnings of income report.

---
 contrib/non-profit-audit-reports/summary-reports.plx | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

(limited to 'contrib/non-profit-audit-reports/summary-reports.plx')

diff --git a/contrib/non-profit-audit-reports/summary-reports.plx b/contrib/non-profit-audit-reports/summary-reports.plx
index b49e6bdd..9cb2aece 100755
--- a/contrib/non-profit-audit-reports/summary-reports.plx
+++ b/contrib/non-profit-audit-reports/summary-reports.plx
@@ -175,9 +175,26 @@ die "Total net assets doesn't equal sum of restricted and unrestricted ones!"
       abs($reportFields{'Unrestricted Net Assets'}{total} +
       $reportFields{'Temporarily Restricted Net Assets'}{total}) > $ONE_PENNY);
 
+
+my(@fullCommand) = ($LEDGER_BIN, @mainLedgerOptions, '-V', '-X', '$',
+                    '-b', $startDate, '-e', $endDate,
+                    '-F', '%-.80A   %22.108t\n', '-s',
+                    'reg', '^Income');
+
+open(FILE, "-|", @fullCommand)
+  or die "unable to run command ledger command: @fullCommand: $!";
+
+open(INCOME, ">", "income.txt")
+  or die "unable to open balance-sheet.txt for writing: $!";
+
+print INCOME "                           INCOME\n",
+             "           Between $formattedStartDate and $formattedEndDate\n\n";
+
+foreach my $line (<FILE>) { print INCOME $line; }
+close INCOME;
+die "unable to write to income.txt: $!" unless ($? == 0);
 ###############################################################################
 #
 # Local variables:
 # compile-command: "perl -c summary-reports.plx"
 # End:
-
-- 
cgit v1.2.3


From 7467917c7b93a39bbd90ccb059a9b55fdfbe52c4 Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Sat, 24 Nov 2012 13:57:06 -0500
Subject: Generate income report.

---
 .../non-profit-audit-reports/summary-reports.plx   | 81 ++++++++++++++++++----
 1 file changed, 67 insertions(+), 14 deletions(-)

(limited to 'contrib/non-profit-audit-reports/summary-reports.plx')

diff --git a/contrib/non-profit-audit-reports/summary-reports.plx b/contrib/non-profit-audit-reports/summary-reports.plx
index 9cb2aece..a30868d5 100755
--- a/contrib/non-profit-audit-reports/summary-reports.plx
+++ b/contrib/non-profit-audit-reports/summary-reports.plx
@@ -57,8 +57,7 @@ my $err;
 my $formattedEndDate = UnixDate(DateCalc(ParseDate($endDate), ParseDateDelta("- 1 day"), \$err),
                                 "%B %e, %Y");
 die "Date calculation error on $endDate" if ($err);
-
-my $formattedStartDate = UnixDate(ParseDate($endDate), "%B %e, %Y"),
+my $formattedStartDate = UnixDate(ParseDate($startDate), "%B %e, %Y");
 die "Date calculation error on $startDate" if ($err);
 
 my %reportFields =
@@ -157,7 +156,7 @@ print BALANCE_SHEET "\n", sprintf($formatStr, "TOTAL NET ASSETS", Commify($totNe
 
 close BALANCE_SHEET;
 print STDERR "\n";
-die "unable to write to Assets-and-liabilities.txt: $!" unless ($? == 0);
+die "unable to write to balance-sheet.txt: $!" unless ($? == 0);
 
 die "Cash+accounts receivable total does not equal net assets and liabilities total"
   if (abs( ($reportFields{'Cash'}{total} + $reportFields{'Accounts Receivable'}{total}
@@ -176,23 +175,77 @@ die "Total net assets doesn't equal sum of restricted and unrestricted ones!"
       $reportFields{'Temporarily Restricted Net Assets'}{total}) > $ONE_PENNY);
 
 
-my(@fullCommand) = ($LEDGER_BIN, @mainLedgerOptions, '-V', '-X', '$',
-                    '-b', $startDate, '-e', $endDate,
-                    '-F', '%-.80A   %22.108t\n', '-s',
-                    'reg', '^Income');
+my %incomeGroups = ('INTEREST INCOME' => { args => ['/^Income.*Interest/' ] },
+                    'DONATIONS' => { args => [ '/^Income.*Donation/' ] },
+                    'BOOK ROYALTIES & AFFILIATE PROGRAMS' =>
+                    { args => [ '/^Income.*(Royalt|Affilate)/' ] },
+                    'CONFERENCES, REGISTRATION' => {args => [ '/^Income.*Conf.*Reg/' ] },
+                    'CONFERENCES, RELATED BUSINESS INCOME' => { args => [ '/^Income.*(Booth|RBI)/'] },
+                    'LICENSE ENFORCEMENT' => { args => [ '/^Income.*Enforce/' ]},
+                    'TRADEMARKS' => {args => [ '/^Income.*Trademark/' ]},
+                    'ADVERSITING' => {args => [ '/^Income.*Advertising/' ]});
+
+my @otherArgs;
+foreach my $type (keys %incomeGroups) {
+  @otherArgs = ("/^Income/") if @otherArgs == 0;
+  push(@otherArgs, 'and', 'not', @{$incomeGroups{$type}{args}});
+}
+$incomeGroups{"OTHER"}{args} = \@otherArgs;
+$incomeGroups{"TOTAL"}{args} = ['/^Income/'];
+
+open(INCOME, ">", "income.txt") or die "unable to open income.txt for writing: $!";
 
-open(FILE, "-|", @fullCommand)
-  or die "unable to run command ledger command: @fullCommand: $!";
+foreach my $type (keys %incomeGroups) {
+  my(@fullCommand) = ($LEDGER_BIN, @mainLedgerOptions, '-V', '-X', '$',
+                      '-b', $startDate, '-e', $endDate,
+                      '-F', '%-.80A   %22.108t\n', '-s',
+                      'reg', @{$incomeGroups{$type}{args}});
 
-open(INCOME, ">", "income.txt")
-  or die "unable to open balance-sheet.txt for writing: $!";
+  open(FILE, "-|", @fullCommand)
+    or die "unable to run command ledger command: @fullCommand: $!";
+
+  print STDERR ($VERBOSE ? "Running: @fullCommand\n" : ".");
 
+  $incomeGroups{$type}{total} = $ZERO;
+  $incomeGroups{$type}{output} = "";
+
+  foreach my $line (<FILE>) {
+    die "Unable to parse output line from second funds command: $line"
+      unless $line =~ /^\s*([^\$]+)\s+\$\s*([\-\d\.\,]+)/;
+    my($account, $amount) = ($1, $2);
+    $amount = ParseNumber($amount);
+    $account =~ s/\s+$//;
+    next if $account =~ /\<Adjustment\>/ and (abs($amount) <= 0.02);
+    die "Weird account found, $account with amount of $amount in income command\n"
+      unless $account =~ s/^\s*Income://;
+
+    $incomeGroups{$type}{total} += $amount;
+    $incomeGroups{$type}{output} .= "    $line";
+  }
+}
 print INCOME "                           INCOME\n",
              "           Between $formattedStartDate and $formattedEndDate\n\n";
 
-foreach my $line (<FILE>) { print INCOME $line; }
-close INCOME;
-die "unable to write to income.txt: $!" unless ($? == 0);
+
+my $overallTotal = $ZERO;
+
+$formatStrTotal = "%-90s    \$%14s\n";
+foreach my $type ('DONATIONS', 'LICENSE ENFORCEMENT',
+                  'CONFERENCES, REGISTRATION', 'CONFERENCES, RELATED BUSINESS INCOME',
+                  'BOOK ROYALTIES & AFFILIATE PROGRAMS', 'ADVERSITING',
+                  'TRADEMARKS', 'INTEREST INCOME', 'OTHER') {
+  print INCOME "\n$type\n",
+               $incomeGroups{$type}{output}, "\n",
+               sprintf($formatStrTotal, "TOTAL $type:", Commify($incomeGroups{$type}{total}));
+  $overallTotal += $incomeGroups{$type}{total};
+}
+print INCOME "\n\n\n", sprintf($formatStrTotal, "OVERALL TOTAL:", Commify($overallTotal));
+
+close INCOME;    die "unable to write to income.txt: $!" unless ($? == 0);
+
+die "calculated total of $overallTotal does equal $incomeGroups{TOTAL}{total}"
+  if (abs($overallTotal) - abs($incomeGroups{TOTAL}{total}) > $ONE_PENNY);
+
 ###############################################################################
 #
 # Local variables:
-- 
cgit v1.2.3


From 470ed356be4b92bb2967eab281d187f03691ad48 Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Sun, 25 Nov 2012 08:41:14 -0500
Subject: Expenses report completed.

---
 .../non-profit-audit-reports/summary-reports.plx   | 101 +++++++++++++++++++++
 1 file changed, 101 insertions(+)

(limited to 'contrib/non-profit-audit-reports/summary-reports.plx')

diff --git a/contrib/non-profit-audit-reports/summary-reports.plx b/contrib/non-profit-audit-reports/summary-reports.plx
index a30868d5..7b521ccb 100755
--- a/contrib/non-profit-audit-reports/summary-reports.plx
+++ b/contrib/non-profit-audit-reports/summary-reports.plx
@@ -234,6 +234,7 @@ foreach my $type ('DONATIONS', 'LICENSE ENFORCEMENT',
                   'CONFERENCES, REGISTRATION', 'CONFERENCES, RELATED BUSINESS INCOME',
                   'BOOK ROYALTIES & AFFILIATE PROGRAMS', 'ADVERSITING',
                   'TRADEMARKS', 'INTEREST INCOME', 'OTHER') {
+  next if ($incomeGroups{$type}{output} =~ /^\s*$/ and $incomeGroups{$type}{total} == $ZERO);
   print INCOME "\n$type\n",
                $incomeGroups{$type}{output}, "\n",
                sprintf($formatStrTotal, "TOTAL $type:", Commify($incomeGroups{$type}{total}));
@@ -246,6 +247,106 @@ close INCOME;    die "unable to write to income.txt: $!" unless ($? == 0);
 die "calculated total of $overallTotal does equal $incomeGroups{TOTAL}{total}"
   if (abs($overallTotal) - abs($incomeGroups{TOTAL}{total}) > $ONE_PENNY);
 
+print STDERR "\n";
+
+my %expenseGroups = ('BANKING FEES' => { regex => '^Expenses.*(Banking Fees|Currency Conversion)'  },
+                    'COMPUTING, HOSTING AND EQUIPMENT' => { regex =>  '^Expenses.*(Hosting|Computer Equipment)'  },
+                    'CONFERENCES' => { regex =>  '^Expenses.*(Conferences|Sprint)'  },
+                    'DEVELOPER MENTORING' => {regex =>  '^Expenses.*Mentor'  },
+                    'LICENSE ENFORCEMENT' => { regex =>  '^Expenses.*Enforce' },
+                    'ACCOUNTING' => { regex =>  '^Expenses.*(Accounting|Annual Audit)' },
+                    'PAYROLL' => { regex =>  '^Expenses.*Payroll' },
+                    'OFFICE' => { regex =>  '^Expenses.*(Office|Phones)' },
+                    'RENT' => { regex =>  '^Expenses.*Rent' },
+                    'SOFTWARE DEVELOPMENT' => { regex =>  '^Expenses.*Development' },
+                    'OTHER PROGRAM ACTIVITY' => {regex =>  '^Expenses.*Gould' },
+                    'ADVOCACY AND PROMOTION' => {regex =>  '^Expenses.*(Slipstream|Advocacy Merchandise|Promotional)' },
+                    'ADVERSITING' => {regex =>  '^Expenses.*Advertising' });
+
+foreach my $type (keys %expenseGroups, 'TRAVEL') {
+  $expenseGroups{$type}{total} = $ZERO;
+  $expenseGroups{$type}{output} = "";
+}
+
+open(EXPENSE, ">", "expense.txt") or die "unable to open expense.txt for writing: $!";
+
+my(@fullCommand) = ($LEDGER_BIN, @mainLedgerOptions, '-V', '-X', '$',
+                    '-b', $startDate, '-e', $endDate,
+                    '-F', '%-.80A   %22.108t\n', '-s',
+                    'reg', '/^Expenses/');
+
+open(FILE, "-|", @fullCommand)
+  or die "unable to run command ledger command: @fullCommand: $!";
+
+print STDERR ($VERBOSE ? "Running: @fullCommand\n" : ".");
+
+my $firstTotal = $ZERO;
+foreach my $line (<FILE>) {
+  die "Unable to parse output line from second funds command: $line"
+    unless $line =~ /^\s*([^\$]+)\s+\$\s*([\-\d\.\,]+)/;
+  my($account, $amount) = ($1, $2);
+  $amount = ParseNumber($amount);
+  $account =~ s/\s+$//;
+  next if $account =~ /\<Adjustment\>/ and (abs($amount) <= 0.02);
+  die "Weird account found, $account, with amount of $amount in expenses command\n"
+    unless $account =~ /^\s*Expenses:/;
+
+  if ($account =~ /Travel/) {
+    $expenseGroups{'TRAVEL'}{total} += $amount;
+    $expenseGroups{'TRAVEL'}{output} .= "    $line";
+  } else {
+    my $taken = 0;
+    foreach my $type (keys %expenseGroups) {
+      last if $taken;
+      next if $type eq 'TRAVEL' or $type eq 'OTHER';
+      next unless $line =~ /$expenseGroups{$type}{regex}/;
+      $taken = 1;
+      $expenseGroups{$type}{total} += $amount;
+      $expenseGroups{$type}{output} .= "    $line";
+    }
+    if (not $taken) {
+      $expenseGroups{'OTHER'}{total} += $amount;
+      $expenseGroups{'OTHER'}{output} .= "    $line";
+    }
+  }
+  $firstTotal += $amount;
+}
+print EXPENSE "                           EXPENSES\n",
+             "           Between $formattedStartDate and $formattedEndDate\n\n";
+$overallTotal = $ZERO;
+$formatStrTotal = "%-90s    \$%14s\n";
+
+my %verifyAllGroups;
+foreach my $key (keys %expenseGroups) {
+  $verifyAllGroups{$key} = 1;
+}
+foreach my $type ('PAYROLL', 'SOFTWARE DEVELOPMENT', 'LICENSE ENFORCEMENT', 'CONFERENCES',
+                  'DEVELOPER MENTORING', 'TRAVEL', 'BANKING FEES', 'ADVOCACY AND PROMOTION',
+                  'COMPUTING, HOSTING AND EQUIPMENT', 'ACCOUNTING',
+                  'OFFICE', 'RENT', 'ADVERSITING', 'OTHER PROGRAM ACTIVITY', 'OTHER') {
+  delete $verifyAllGroups{$type};
+
+  die "$type is not defined!" if not defined $expenseGroups{$type};
+  next if ($expenseGroups{$type}{output} =~ /^\s*$/ and $expenseGroups{$type}{total} == $ZERO);
+
+  print EXPENSE "\n$type\n",
+               $expenseGroups{$type}{output}, "\n",
+               sprintf($formatStrTotal, "TOTAL $type:", Commify($expenseGroups{$type}{total}));
+  $overallTotal += $expenseGroups{$type}{total};
+}
+
+print EXPENSE "\n\n\n", sprintf($formatStrTotal, "OVERALL TOTAL:", Commify($overallTotal));
+
+close EXPENSE;    die "unable to write to expense.txt: $!" unless ($? == 0);
+
+die "GROUPS NOT INCLUDED : ", join(keys(%verifyAllGroups), ", "), "\n"
+  unless (keys %verifyAllGroups == 0);
+
+die "calculated total of $overallTotal does equal $firstTotal"
+  if (abs($overallTotal) - abs($firstTotal) > $ONE_PENNY);
+
+print STDERR "\n";
+
 ###############################################################################
 #
 # Local variables:
-- 
cgit v1.2.3


From 4318c11fd9b94a3508fac7cd7724407f2f7f6645 Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Sun, 25 Nov 2012 12:19:44 -0500
Subject: Expense report favors Conferences first, then takes Travel as if it
 were an Other category only after categories have been handled.

---
 .../non-profit-audit-reports/summary-reports.plx   | 29 +++++++++++-----------
 1 file changed, 15 insertions(+), 14 deletions(-)

(limited to 'contrib/non-profit-audit-reports/summary-reports.plx')

diff --git a/contrib/non-profit-audit-reports/summary-reports.plx b/contrib/non-profit-audit-reports/summary-reports.plx
index 7b521ccb..7d2267d6 100755
--- a/contrib/non-profit-audit-reports/summary-reports.plx
+++ b/contrib/non-profit-audit-reports/summary-reports.plx
@@ -291,20 +291,21 @@ foreach my $line (<FILE>) {
   die "Weird account found, $account, with amount of $amount in expenses command\n"
     unless $account =~ /^\s*Expenses:/;
 
-  if ($account =~ /Travel/) {
-    $expenseGroups{'TRAVEL'}{total} += $amount;
-    $expenseGroups{'TRAVEL'}{output} .= "    $line";
-  } else {
-    my $taken = 0;
-    foreach my $type (keys %expenseGroups) {
-      last if $taken;
-      next if $type eq 'TRAVEL' or $type eq 'OTHER';
-      next unless $line =~ /$expenseGroups{$type}{regex}/;
-      $taken = 1;
-      $expenseGroups{$type}{total} += $amount;
-      $expenseGroups{$type}{output} .= "    $line";
-    }
-    if (not $taken) {
+  my $taken = 0;
+  # Note: Prioritize to put things under conference expenses if they were for a conference. 
+  foreach my $type ('CONFERENCES', keys %expenseGroups) {
+    last if $taken;
+    next if $type eq 'TRAVEL' or $type eq 'OTHER';
+    next unless $line =~ /$expenseGroups{$type}{regex}/;
+    $taken = 1;
+    $expenseGroups{$type}{total} += $amount;
+    $expenseGroups{$type}{output} .= "    $line";
+  }
+  if (not $taken) {
+    if ($account =~ /Travel/) {
+      $expenseGroups{'TRAVEL'}{total} += $amount;
+      $expenseGroups{'TRAVEL'}{output} .= "    $line";
+    } else {
       $expenseGroups{'OTHER'}{total} += $amount;
       $expenseGroups{'OTHER'}{output} .= "    $line";
     }
-- 
cgit v1.2.3