1 package FS::part_event::Condition::balance_credit_limit;
6 use base qw( FS::part_event::Condition );
8 sub description { 'Customer is over credit limit'; }
11 my($self, $object) = @_;
13 my $cust_main = $self->cust_main($object);
15 my $over = $cust_main->credit_limit;
16 return 0 if !length($over); # if credit limit is null, no limit
18 $cust_main->balance > $over;
22 my( $class, $table ) = @_;
24 my $balance_sql = FS::cust_main->balance_sql;
26 "(cust_main.credit_limit IS NULL OR
27 $balance_sql - cust_main.credit_limit > 0 )";