X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FVendor.pm;h=b1740147c369da08bc959048dc8e51d1554a4cf4;hb=5a392100ac0460c91f1d231530621fb02878b552;hp=8a1ea464fe2c8c7a71e9124c0075915cad66c13d;hpb=2b82180a2117342c28fdf913fa135ca0a1828aea;p=kivitendo-erp.git diff --git a/SL/DB/Vendor.pm b/SL/DB/Vendor.pm index 8a1ea464f..b1740147c 100644 --- a/SL/DB/Vendor.pm +++ b/SL/DB/Vendor.pm @@ -2,8 +2,12 @@ package SL::DB::Vendor; use strict; +use Rose::DB::Object::Helpers qw(as_tree); + +use SL::DBUtils (); use SL::DB::MetaSetup::Vendor; use SL::DB::Manager::Vendor; +use SL::DB::Helper::IBANValidation; use SL::DB::Helper::TransNumberGenerator; use SL::DB::Helper::CustomVariables ( module => 'CT', @@ -35,10 +39,20 @@ __PACKAGE__->before_save('_before_save_set_vendornumber'); sub _before_save_set_vendornumber { my ($self) = @_; - $self->create_trans_number if $self->vendornumber eq ''; + $self->create_trans_number if !defined $self->vendornumber || $self->vendornumber eq ''; return 1; } +sub validate { + my ($self) = @_; + + my @errors; + push @errors, $::locale->text('The vendor name is missing.') if !$self->name; + push @errors, $self->validate_ibans; + + return @errors; +} + sub displayable_name { my $self = shift; @@ -47,5 +61,29 @@ sub displayable_name { sub is_customer { 0 }; sub is_vendor { 1 }; +sub payment_terms { goto &payment } +sub number { goto &vendornumber } + +sub last_used_ap_chart { + my ($self) = @_; + + my $query = <db->dbh, $query, ($self->id) x 2); + + return if !$chart_id; + return SL::DB::Chart->load_cached($chart_id); +} 1;