Vergabe von Kunden-/Lieferantennummer beim Speichern eines VC-Objektes implementiert

diff --git a/SL/DB/Customer.pm b/SL/DB/Customer.pm
index 27683b3c1a396c8b0a4f750d3a9a5a8d2698eba4..55a1ee4345591e6cd623042d3ddf9fbb0053656d 100644 (file)
--- 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 strict;
 
 use SL::DB::MetaSetup::Customer;

+use SL::DB::Manager::Customer;
+use SL::DB::Helper::TransNumberGenerator;

 
 use SL::DB::VC;
 
 
 use SL::DB::VC;
 


@@ -24,6 +26,14 @@ __PACKAGE__->meta->add_relationship(
 __PACKAGE__->meta->make_manager_class;
 __PACKAGE__->meta->initialize;
 
 __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 '';
+}
+

 sub short_address {
   my ($self) = @_;
 
 sub short_address {
   my ($self) = @_;
 

diff --git a/SL/DB/Helper/TransNumberGenerator.pm b/SL/DB/Helper/TransNumberGenerator.pm
index 0505268410af8cd379555ef0730a18af353f9f64..3f58aba56c23d445a7048b0abf92be2326175a02 100644 (file)
--- a/SL/DB/Helper/TransNumberGenerator.pm
+++ b/SL/DB/Helper/TransNumberGenerator.pm
@@ -25,6 +25,8 @@ my %specs = ( ar                      => { number_column => 'invnumber',
               purchase_order          => { number_column => 'ordnumber', number_range_column => 'ponumber',  scoping => $oe_scoping,                          },
               sales_delivery_order    => { number_column => 'donumber',  number_range_column => 'sdonumber', scoping => $do_scoping, fill_holes_in_range => 1 },
               purchase_delivery_order => { number_column => 'donumber',  number_range_column => 'pdonumber', scoping => $do_scoping, fill_holes_in_range => 1 },
               purchase_order          => { number_column => 'ordnumber', number_range_column => 'ponumber',  scoping => $oe_scoping,                          },
               sales_delivery_order    => { number_column => 'donumber',  number_range_column => 'sdonumber', scoping => $do_scoping, fill_holes_in_range => 1 },
               purchase_delivery_order => { number_column => 'donumber',  number_range_column => 'pdonumber', scoping => $do_scoping, fill_holes_in_range => 1 },

+              customer                => { number_column => 'customernumber', number_range_column => 'customernumber', },
+              vendor                  => { number_column => 'vendornumber', number_range_column => 'vendornumber', },

             );
 
 sub get_next_trans_number {
             );
 
 sub get_next_trans_number {

diff --git a/SL/DB/Vendor.pm b/SL/DB/Vendor.pm
index 11e23fe5174a8aa1b3040ea25b1247cb1aba2f0a..e8ec8bca0594eabfb4f8533f61258b2209853ab9 100644 (file)
--- a/SL/DB/Vendor.pm
+++ b/SL/DB/Vendor.pm
@@ -3,6 +3,7 @@ package SL::DB::Vendor;
 use strict;
 
 use SL::DB::MetaSetup::Vendor;
 use strict;
 
 use SL::DB::MetaSetup::Vendor;

+use SL::DB::Helper::TransNumberGenerator;

 
 use SL::DB::VC;
 
 
 use SL::DB::VC;
 


@@ -24,4 +25,12 @@ __PACKAGE__->meta->add_relationship(
 __PACKAGE__->meta->make_manager_class;
 __PACKAGE__->meta->initialize;
 
 __PACKAGE__->meta->make_manager_class;
 __PACKAGE__->meta->initialize;
 

+__PACKAGE__->before_save('_before_save_set_vendornumber');
+
+sub _before_save_set_vendornumber {
+  my ($self) = @_;
+
+  $self->create_trans_number if $self->vendornumber eq '';
+}
+

 1;
 1;