X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=SL%2FDB%2FHelper%2FTransNumberGenerator.pm;h=a28f11f71687e7eb9ca152d04939eeb40849ceb8;hb=82fa9647c416c0ba045a7c676800b097dea3dade;hp=e42c41597c0f6b12875890c6affe88c50b0f7a74;hpb=e852b156652474de1b5cb4b12b1a08d4954f69a6;p=kivitendo-erp.git diff --git a/SL/DB/Helper/TransNumberGenerator.pm b/SL/DB/Helper/TransNumberGenerator.pm index e42c41597..a28f11f71 100644 --- a/SL/DB/Helper/TransNumberGenerator.pm +++ b/SL/DB/Helper/TransNumberGenerator.pm @@ -8,6 +8,7 @@ our @EXPORT = qw(get_next_trans_number create_trans_number); use Carp; use List::Util qw(max); +use SL::DBUtils (); use SL::PrefixedNumber; sub oe_scoping { @@ -19,7 +20,7 @@ sub do_scoping { } sub parts_scoping { - SL::DB::Manager::Part->type_filter($_[0]); + # SL::DB::Manager::Part->type_filter($_[0]); } my %specs = ( ar => { number_column => 'invnumber', }, @@ -34,6 +35,7 @@ my %specs = ( ar => { number_column => 'invnumber', part => { number_column => 'partnumber', number_range_column => 'articlenumber', scoping => \&parts_scoping, }, service => { number_column => 'partnumber', number_range_column => 'servicenumber', scoping => \&parts_scoping, }, assembly => { number_column => 'partnumber', number_range_column => 'assemblynumber', scoping => \&parts_scoping, }, + assortment => { number_column => 'partnumber', number_range_column => 'assortmentnumber', scoping => \&parts_scoping, }, ); sub get_next_trans_number { @@ -81,16 +83,25 @@ sub get_next_trans_number { # therefore we're re-loading the row. $self->db->dbh->do("LOCK " . $self->meta->table) || die $self->db->dbh->errstr; - my %numbers_in_use = map { ( $_->$number_column => 1 ) } @{ $self->_get_manager_class->get_all(%conditions_for_in_use) }; + my ($query_in_use, $bind_vals_in_use) = Rose::DB::Object::QueryBuilder::build_select( + dbh => $self->db->dbh, + select => $number_column, + tables => [ $self->meta->table ], + columns => { $self->meta->table => [ $self->meta->column_names ] }, + query_is_sql => 1, + %conditions_for_in_use, + ); + + my @numbers = do { no warnings 'once'; SL::DBUtils::selectall_array_query($::form, $self->db->dbh, $query_in_use, @{ $bind_vals_in_use || [] }) }; + my %numbers_in_use = map { ( $_ => 1 ) } @numbers; my $range_table = ($business ? $business : SL::DB::Default->get)->load(for_update => 1); my $start_number = $range_table->$number_range_column; - $start_number = $range_table->articlenumber if ($number_range_column eq 'assemblynumber') && (length($start_number) < 1); + $start_number = $range_table->articlenumber if ($number_range_column =~ /^(assemblynumber|assortmentnumber)$/) && (length($start_number) < 1); my $sequence = SL::PrefixedNumber->new(number => $start_number // 0); if (!$fill_holes_in_range) { - my @numbers = map { $_->$number_column } @{ $self->_get_manager_class->get_all(%conditions) }; $sequence->set_to_max(@numbers) ; }