FS/FS/part_event/Condition/invoice_has_not_been_sent.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
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;