X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/f9676efea9ccfa01df2a57dca9c45cc8fde0d09e..c92dddcbac622bd6462daff812d73685ad8a2a75:/SL/DB/Customer.pm diff --git a/SL/DB/Customer.pm b/SL/DB/Customer.pm index fd5f66ef6..186ad9750 100644 --- a/SL/DB/Customer.pm +++ b/SL/DB/Customer.pm @@ -3,6 +3,8 @@ package SL::DB::Customer; use strict; use SL::DB::MetaSetup::Customer; +use SL::DB::Manager::Customer; +use SL::DB::Helper::TransNumberGenerator; use SL::DB::VC; @@ -12,16 +14,42 @@ __PACKAGE__->meta->add_relationship( class => 'SL::DB::Shipto', column_map => { id => 'trans_id' }, manager_args => { sort_by => 'lower(shipto.shiptoname)' }, - query_args => [ 'shipto.module' => 'CT' ], + query_args => [ module => 'CT' ], + }, + contacts => { + type => 'one to many', + class => 'SL::DB::Contact', + column_map => { id => 'cp_cv_id' }, + manager_args => { sort_by => 'lower(contacts.cp_name)' }, }, business => { type => 'one to one', class => 'SL::DB::Business', column_map => { business_id => 'id' }, }, + custom_variables => { + type => 'one to many', + class => 'SL::DB::CustomVariable', + column_map => { id => 'trans_id' }, + query_args => [ config_id => [ \"(SELECT custom_variable_configs.id FROM custom_variable_configs WHERE custom_variable_configs.module = 'CT')" ] ], + }, ); -__PACKAGE__->meta->make_manager_class; __PACKAGE__->meta->initialize; +__PACKAGE__->before_save('_before_save_set_customernumber'); + +sub _before_save_set_customernumber { + my ($self) = @_; + + $self->create_trans_number if $self->customernumber eq ''; + return 1; +} + +sub short_address { + my ($self) = @_; + + return join ', ', grep { $_ } $self->street, $self->zipcode, $self->city; +} + 1;