RT 37817 - created new billing event condition, invoice has not been sent.

diff --git a/FS/FS/part_event/Condition/invoice_has_not_been_sent.pm b/FS/FS/part_event/Condition/invoice_has_not_been_sent.pm
new file mode 100644 (file)
index 0000000..882762d
--- /dev/null
+++ b/FS/FS/part_event/Condition/invoice_has_not_been_sent.pm
@@ -0,0 +1,41 @@
+package FS::part_event::Condition::invoice_has_not_been_sent;
+
+use strict;
+use FS::Record qw( qsearchs );
+use FS::cust_bill;
+use Time::Local 'timelocal';
+
+use base qw( FS::part_event::Condition );
+
+sub description {
+  'Invoice has not been sent previously';
+}
+
+sub eventtable_hashref {
+    { 'cust_main' => 0,
+      'cust_bill' => 1,
+      'cust_pkg'  => 0,
+    };
+}
+
+sub condition {
+  my($self, $cust_bill, %opt) = @_;
+
+  my $event = qsearchs( {
+    'table'     => 'cust_event',
+    'addl_from' => 'LEFT JOIN part_event USING ( eventpart )',
+    'hashref'   => {
+               'tablenum'  => $cust_bill->{Hash}->{invnum},
+               'eventtable'  => 'cust_bill',
+               'status'    => 'done',
+       },
+    'order_by'  => " LIMIT 1",
+  } );
+
+  return 0 if $event;
+
+  1;
+
+}
+
+1;
\ No newline at end of file