FS/FS/part_event/Condition/cust_bill_hasnt_noauto.pm

   1 package FS::part_event::Condition::cust_bill_hasnt_noauto;
   2
   3 use strict;
   4 use FS::cust_bill;
   5
   6 use base qw( FS::part_event::Condition );
   7
   8 sub description {
   9   'Invoice eligible for automatic collection';
  10 }
  11
  12 sub eventtable_hashref {
  13     { 'cust_main' => 0,
  14       'cust_bill' => 1,
  15       'cust_pkg'  => 0,
  16     };
  17 }
  18
  19 sub condition {
  20   #my($self, $cust_bill, %opt) = @_;
  21   my($self, $cust_bill) = @_;
  22
  23   ! $cust_bill->no_auto;
  24 }
  25
  26 sub condition_sql {
  27   my( $class, $table, %opt ) = @_;
  28
  29   # can be made still faster with optimizations?
  30
  31   "NOT EXISTS ( SELECT 1 FROM cust_pkg
  32                            LEFT JOIN part_pkg USING (pkgpart)
  33                   WHERE ( cust_pkg.no_auto = 'Y' OR part_pkg.no_auto = 'Y' )
  34                     AND cust_pkg.pkgnum IN
  35                           ( SELECT DISTINCT cust_bill_pkg.pkgnum
  36                               FROM cust_bill_pkg
  37                               WHERE cust_bill_pkg.invnum = cust_bill.invnum
  38                                 AND cust_bill_pkg.pkgnum > 0
  39                           )
  40               )
  41   ";
  42 }
  43
  44 1;