1 package SL::DB::Customer;
5 use Rose::DB::Object::Helpers qw(as_tree);
7 use SL::Locale::String qw(t8);
9 use SL::DB::MetaSetup::Customer;
10 use SL::DB::Manager::Customer;
11 use SL::DB::Helper::IBANValidation;
12 use SL::DB::Helper::TransNumberGenerator;
13 use SL::DB::Helper::CustomVariables (
17 use SL::DB::Helper::DisplayableNamePreferences (
18 title => t8('Customer'),
19 options => [ {name => 'customernumber', title => t8('Customer Number') },
20 {name => 'name', title => t8('Name') },
21 {name => 'street', title => t8('Street') },
22 {name => 'city', title => t8('City') },
23 {name => 'zipcode', title => t8('Zipcode')},
24 {name => 'email', title => t8('E-Mail') },
25 {name => 'phone', title => t8('Phone') }, ]
30 __PACKAGE__->meta->add_relationship(
32 type => 'one to many',
33 class => 'SL::DB::Shipto',
34 column_map => { id => 'trans_id' },
35 manager_args => { sort_by => 'lower(shipto.shiptoname)' },
36 query_args => [ module => 'CT' ],
39 type => 'one to many',
40 class => 'SL::DB::Contact',
41 column_map => { id => 'cp_cv_id' },
42 manager_args => { sort_by => 'lower(contacts.cp_name)' },
46 __PACKAGE__->meta->initialize;
48 __PACKAGE__->before_save('_before_save_set_customernumber');
51 sub _before_save_set_customernumber {
54 $self->create_trans_number if !defined $self->customernumber || $self->customernumber eq '';
62 push @errors, $::locale->text('The customer name is missing.') if !$self->name;
63 push @errors, $self->validate_ibans;
71 return join ', ', grep { $_ } $self->street, $self->zipcode, $self->city;
74 sub last_used_ar_chart {
80 JOIN acc_trans ac ON (ac.chart_id = c.id)
81 JOIN ar a ON (a.id = ac.trans_id)
82 WHERE (a.customer_id = ?)
83 AND (c.category = 'I')
84 AND (c.link !~ '_(paid|tax)')
85 AND (a.id IN (SELECT max(a2.id) FROM ar a2 WHERE a2.customer_id = ?))
86 ORDER BY ac.acc_trans_id ASC
90 my ($chart_id) = SL::DBUtils::selectfirst_array_query($::form, $self->db->dbh, $query, ($self->id) x 2);
93 return SL::DB::Chart->load_cached($chart_id);
96 sub is_customer { 1 };
98 sub payment_terms { goto &payment }
99 sub number { goto &customernumber }