1 package FS::part_event::Condition::invoice_has_not_been_sent;
4 use FS::Record qw( qsearchs );
6 use Time::Local 'timelocal';
8 use base qw( FS::part_event::Condition );
11 'Invoice has not been sent previously';
14 sub eventtable_hashref {
22 my($self, $cust_bill, %opt) = @_;
24 my $event = qsearchs( {
25 'table' => 'cust_event',
26 'addl_from' => 'LEFT JOIN part_event USING ( eventpart )',
28 'tablenum' => $cust_bill->{Hash}->{invnum},
29 'eventtable' => 'cust_bill',
32 'order_by' => " LIMIT 1",