Pflichtenheft: Zugriff auf nicht vorhandenes »visible_item« verhindern
[kivitendo-erp.git] / SL / DB / Vendor.pm
1 package SL::DB::Vendor;
2
3 use strict;
4
5 use Rose::DB::Object::Helpers qw(as_tree);
6
7 use SL::DB::MetaSetup::Vendor;
8 use SL::DB::Manager::Vendor;
9 use SL::DB::Helper::IBANValidation;
10 use SL::DB::Helper::TransNumberGenerator;
11 use SL::DB::Helper::CustomVariables (
12   module      => 'CT',
13   cvars_alias => 1,
14 );
15
16 use SL::DB::VC;
17
18 __PACKAGE__->meta->add_relationship(
19   shipto => {
20     type         => 'one to many',
21     class        => 'SL::DB::Shipto',
22     column_map   => { id      => 'trans_id' },
23     manager_args => { sort_by => 'lower(shipto.shiptoname)' },
24     query_args   => [ module  => 'CT' ],
25   },
26   contacts => {
27     type         => 'one to many',
28     class        => 'SL::DB::Contact',
29     column_map   => { id      => 'cp_cv_id' },
30     manager_args => { sort_by => 'lower(contacts.cp_name)' },
31   },
32 );
33
34 __PACKAGE__->meta->initialize;
35
36 __PACKAGE__->before_save('_before_save_set_vendornumber');
37
38 sub _before_save_set_vendornumber {
39   my ($self) = @_;
40
41   $self->create_trans_number if !defined $self->vendornumber || $self->vendornumber eq '';
42   return 1;
43 }
44
45 sub validate {
46   my ($self) = @_;
47
48   my @errors;
49   push @errors, $::locale->text('The vendor name is missing.') if !$self->name;
50   push @errors, $self->validate_ibans;
51
52   return @errors;
53 }
54
55 sub displayable_name {
56   my $self = shift;
57
58   return join ' ', grep $_, $self->vendornumber, $self->name;
59 }
60
61 sub is_customer { 0 };
62 sub is_vendor   { 1 };
63 sub payment_terms { goto &payment }
64 sub number { goto &vendornumber }
65
66 1;