1 package FS::part_event::Condition::cust_bill_has_service;
6 use base qw( FS::part_event::Condition );
9 'Invoice is billing for a certain service type';
12 sub eventtable_hashref {
21 'has_service' => { 'label' => 'Has service',
22 'type' => 'select-part_svc',
28 #my($self, $cust_bill, %opt) = @_;
29 my($self, $cust_bill) = @_;
31 my $servicenum = $self->option('has_service');
32 grep { $servicenum == $_->svcnum }
33 map { $_->cust_pkg->cust_svc }
34 $cust_bill->cust_bill_pkg ;
38 my( $class, $table ) = @_;
40 my $servicenum = $class->condition_sql_option('has_service');
41 my $sql = qq| 0 < ( SELECT COUNT(cs.svcpart)
42 FROM cust_bill_pkg cbp, cust_svc cs
43 WHERE cbp.invnum = cust_bill.invnum
44 AND cs.pkgnum = cbp.pkgnum
45 AND cs.svcpart = $servicenum