===================================================================
RCS file: /cvs/RT/Invoicing/rt_invoices.pl,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -r1.41 -r1.42
--- RT/Invoicing/rt_invoices.pl	2011/12/22 05:21:56	1.41
+++ RT/Invoicing/rt_invoices.pl	2011/12/30 03:20:45	1.42
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $AFresh1: rt_invoices.pl,v 1.40 2011/12/22 04:52:28 andrew Exp $
+# $AFresh1: rt_invoices.pl,v 1.41 2011/12/22 05:21:56 andrew Exp $
 ########################################################################
 # Copyright (c) 2011 Andrew Fresh <andrew@afresh1.com>
 #
@@ -174,28 +174,36 @@
         $invoice->{total} -= round( $invoice->{discount}{amount} );
     }
 
-    $invoice->{past_due} = 0;
     if (my $unpaid_invoices = $state->unpaid_invoices($cust->{id})) {
         my %project = ( title => 'Unpaid Invoices', fees => [], );
+        my $past_due = 0;
 
         foreach my $id ( sort { $a <=> $b } keys %{$unpaid_invoices} ) {
             my $unpaid = $state->get_invoice($id);
-            $invoice->{past_due} += $unpaid_invoices->{$id};
+            my $invdate = ymd_to_DateTime( $unpaid->{invdate} );
+
+            next
+                if $cust->{duedate}
+                && DateTime->compare( $invdate, $cust->{duedate} ) > 0;
+
+            $past_due += $unpaid_invoices->{$id};
             push @{ $project{fees} }, {
                 id       => $id,
                 contents => sprintf(
                     "Invoice %06d from %s",
-                    $id, ymd_to_DateTime( $unpaid->{invdate} )->ymd
+                    $id, $invdate->ymd
                 ),
                 count => 1,
                 rate  => $unpaid_invoices->{$id},
             };
         }
-        unshift @{ $invoice->{projects} }, \%project;
-    }
 
-    if ( $invoice->{past_due} ) {
-        $invoice->{total_due} = $invoice->{total} + $invoice->{past_due};
+        if ($past_due) {
+            $invoice->{past_due}  = $past_due;
+            $invoice->{total_due} = $invoice->{total} + $invoice->{past_due};
+
+            unshift @{ $invoice->{projects} }, \%project;
+        }
     }
 
     next unless $invoice->{total} > 0 || $invoice->{total_due};
@@ -624,6 +632,11 @@
         $start = ymd_to_DateTime( $lastinvoice->{end} )->add( days => 1 );
         $cust->{startinvoicedate} = $start->clone;
     }
+
+    $cust->{duedate}
+        = $cust->{net}
+        ? DateTime->now->subtract( days => $cust->{net} )
+        : 0;
 
     $cust->{no_invoice} = 1 if $start->clone->add($freq) > $end;
     $cust->{billend}    = $end;