X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FHelper%2FTransNumberGenerator.pm;h=a6f4e2e85badc41c1e902b557e6841ffce765f48;hb=215f9f2c91a52fbc8abe3d5215748bca5a8ca071;hp=d790b34847ef68a01d9622590d557c61b28272ea;hpb=693e58208df2667024aaf4ac92cb8f8e8d820b38;p=kivitendo-erp.git diff --git a/SL/DB/Helper/TransNumberGenerator.pm b/SL/DB/Helper/TransNumberGenerator.pm index d790b3484..a6f4e2e85 100644 --- a/SL/DB/Helper/TransNumberGenerator.pm +++ b/SL/DB/Helper/TransNumberGenerator.pm @@ -8,7 +8,6 @@ our @EXPORT = qw(get_next_trans_number create_trans_number); use Carp; use List::Util qw(max); -use SL::DB::Default; use SL::PrefixedNumber; sub oe_scoping { @@ -55,9 +54,10 @@ sub get_next_trans_number { my @numbers = map { $_->$number_column } @{ $self->_get_manager_class->get_all(%conditions) }; my %numbers_in_use = map { ( $_ => 1 ) } @numbers; + require SL::DB::Default; my $defaults = SL::DB::Default->get; $number_range_column = 'articlenumber' if $number_range_column eq 'assemblynumber' and length($defaults->$number_range_column) < 1; - my $sequence = SL::PrefixedNumber->new(number => $defaults->$number_range_column); + my $sequence = SL::PrefixedNumber->new(number => ($defaults->$number_range_column || 1)); $sequence->set_to_max(@numbers) if !$fill_holes_in_range;