use SL::DB::MetaSetup::Customer;
use SL::DB::Manager::Customer;
+use SL::DB::Helper::IBANValidation;
use SL::DB::Helper::TransNumberGenerator;
use SL::DB::Helper::CustomVariables (
module => 'CT',
return 1;
}
+sub validate {
+ my ($self) = @_;
+
+ my @errors;
+ push @errors, $::locale->text('The customer name is missing.') if !$self->name;
+ push @errors, $self->validate_ibans;
+
+ return @errors;
+}
+
sub short_address {
my ($self) = @_;
sub is_customer { 1 };
sub is_vendor { 0 };
sub payment_terms { goto &payment }
+sub number { goto &customernumber }
1;