X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/587c7468815169f69621cf374fe455d7b7694eeb..70ff48b402fcd79c156c7594c43acf12d78a4480:/SL/DB/Customer.pm diff --git a/SL/DB/Customer.pm b/SL/DB/Customer.pm index 27683b3c1..0adffbddd 100644 --- a/SL/DB/Customer.pm +++ b/SL/DB/Customer.pm @@ -3,6 +3,12 @@ package SL::DB::Customer; use strict; use SL::DB::MetaSetup::Customer; +use SL::DB::Manager::Customer; +use SL::DB::Helper::TransNumberGenerator; +use SL::DB::Helper::CustomVariables ( + module => 'CT', + cvars_alias => 1, +); use SL::DB::VC; @@ -12,7 +18,13 @@ __PACKAGE__->meta->add_relationship( class => 'SL::DB::Shipto', column_map => { id => 'trans_id' }, manager_args => { sort_by => 'lower(shipto.shiptoname)' }, - query_args => [ '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', @@ -21,9 +33,17 @@ __PACKAGE__->meta->add_relationship( }, ); -__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) = @_;