X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FCustomer.pm;h=8dd2a310d260e8604fbd300132659b467507367b;hb=d64013f4ba48d1f34e1d55f8c5f98d0ab2b5ed2b;hp=6f37c5221aa511a4ba77d502044f138bf463a474;hpb=38b898b0cfebd96c3764d1506ad0a1358cf351f0;p=kivitendo-erp.git diff --git a/SL/DB/Customer.pm b/SL/DB/Customer.pm index 6f37c5221..8dd2a310d 100644 --- a/SL/DB/Customer.pm +++ b/SL/DB/Customer.pm @@ -2,8 +2,11 @@ package SL::DB::Customer; use strict; +use Rose::DB::Object::Helpers qw(as_tree); + 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', @@ -39,6 +42,16 @@ sub _before_save_set_customernumber { 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) = @_; @@ -54,5 +67,6 @@ sub displayable_name { sub is_customer { 1 }; sub is_vendor { 0 }; sub payment_terms { goto &payment } +sub number { goto &customernumber } 1;