X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FCustomer.pm;h=7a040ed63265fd1ec124d3d833ecc7f2071685f3;hb=5e9cefa2067da6326e3cb9ab6834c51f21bfca2c;hp=a19520ed7cf63801bc192402d1a17a85994ec323;hpb=7c667c9093239a08aec7e9ab0958f6f721a8d6af;p=kivitendo-erp.git diff --git a/SL/DB/Customer.pm b/SL/DB/Customer.pm index a19520ed7..7a040ed63 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) = @_; @@ -53,5 +66,6 @@ sub displayable_name { sub is_customer { 1 }; sub is_vendor { 0 }; +sub payment_terms { goto &payment } 1;