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::VATIDNrValidation;
14 use SL::DB::Helper::CustomVariables (
18 use SL::DB::Helper::DisplayableNamePreferences (
19 title => t8('Customer'),
20 options => [ {name => 'customernumber', title => t8('Customer Number') },
21 {name => 'name', title => t8('Name') },
22 {name => 'street', title => t8('Street') },
23 {name => 'city', title => t8('City') },
24 {name => 'zipcode', title => t8('Zipcode')},
25 {name => 'email', title => t8('E-Mail') },
26 {name => 'phone', title => t8('Phone') }, ]
31 __PACKAGE__->meta->add_relationship(
32 additional_billing_addresses => {
33 type => 'one to many',
34 class => 'SL::DB::AdditionalBillingAddress',
35 column_map => { id => 'customer_id' },
36 manager_args => { sort_by => 'lower(additional_billing_addresses.name)' },
39 type => 'one to many',
40 class => 'SL::DB::Shipto',
41 column_map => { id => 'trans_id' },
42 manager_args => { sort_by => 'lower(shipto.shiptoname)' },
43 query_args => [ module => 'CT' ],
46 type => 'one to many',
47 class => 'SL::DB::Contact',
48 column_map => { id => 'cp_cv_id' },
49 manager_args => { sort_by => 'lower(contacts.cp_name)' },
53 __PACKAGE__->meta->initialize;
55 __PACKAGE__->before_save('_before_save_set_customernumber');
58 sub _before_save_set_customernumber {
61 $self->create_trans_number if !defined $self->customernumber || $self->customernumber eq '';
69 push @errors, $::locale->text('The customer name is missing.') if !$self->name;
70 push @errors, $self->validate_ibans;
71 push @errors, $self->validate_vat_id_numbers;
79 return join ', ', grep { $_ } $self->street, $self->zipcode, $self->city;
82 sub last_used_ar_chart {
88 JOIN acc_trans ac ON (ac.chart_id = c.id)
89 JOIN ar a ON (a.id = ac.trans_id)
90 WHERE (a.customer_id = ?)
91 AND (c.category = 'I')
92 AND (c.link !~ '_(paid|tax)')
93 AND (a.id IN (SELECT max(a2.id) FROM ar a2 WHERE a2.customer_id = ?))
94 ORDER BY ac.acc_trans_id ASC
98 my ($chart_id) = SL::DBUtils::selectfirst_array_query($::form, $self->db->dbh, $query, ($self->id) x 2);
100 return if !$chart_id;
101 return SL::DB::Chart->load_cached($chart_id);
104 sub is_customer { 1 };
106 sub payment_terms { goto &payment }
107 sub number { goto &customernumber }
109 sub create_zugferd_invoices_for_this_customer {
113 return $::instance_conf->get_create_zugferd_invoices if $self->create_zugferd_invoices == -1;
114 return $self->create_zugferd_invoices;