Presenter-Module für Listen von Verkaufs-/Einkaufsobjekte
[kivitendo-erp.git] / SL / DB / Customer.pm
1 package SL::DB::Customer;
2
3 use strict;
4
5 use SL::DB::MetaSetup::Customer;
6 use SL::DB::Manager::Customer;
7 use SL::DB::Helper::TransNumberGenerator;
8 use SL::DB::Helper::CustomVariables (
9   module      => 'CT',
10   cvars_alias => 1,
11 );
12
13 use SL::DB::VC;
14
15 __PACKAGE__->meta->add_relationship(
16   shipto => {
17     type         => 'one to many',
18     class        => 'SL::DB::Shipto',
19     column_map   => { id      => 'trans_id' },
20     manager_args => { sort_by => 'lower(shipto.shiptoname)' },
21     query_args   => [ module   => 'CT' ],
22   },
23   contacts => {
24     type         => 'one to many',
25     class        => 'SL::DB::Contact',
26     column_map   => { id      => 'cp_cv_id' },
27     manager_args => { sort_by => 'lower(contacts.cp_name)' },
28   },
29 );
30
31 __PACKAGE__->meta->initialize;
32
33 __PACKAGE__->before_save('_before_save_set_customernumber');
34
35 sub _before_save_set_customernumber {
36   my ($self) = @_;
37
38   $self->create_trans_number if $self->customernumber eq '';
39   return 1;
40 }
41
42 sub short_address {
43   my ($self) = @_;
44
45   return join ', ', grep { $_ } $self->street, $self->zipcode, $self->city;
46 }
47
48 sub displayable_name {
49   my $self = shift;
50
51   return join ' ', grep $_, $self->customernumber, $self->name;
52 }
53
54 1;