Revision 82af75d4
Von Bernd Bleßmann vor fast 4 Jahren hinzugefügt
| SL/DB/Helper/TransNumberGenerator.pm | ||
|---|---|---|
| 98 | 98 |
my $range_table = ($business ? $business : SL::DB::Default->get)->load(for_update => 1); |
| 99 | 99 |
|
| 100 | 100 |
my $start_number = $range_table->$number_range_column; |
| 101 |
$start_number = $range_table->articlenumber if ($number_range_column =~ /^(assemblynumber|assortmentnumber)$/) && (length($start_number) < 1); |
|
| 101 |
$start_number = $range_table->articlenumber if ($number_range_column =~ /^(assemblynumber|assortmentnumber)$/) && (length($start_number)//0 < 1);
|
|
| 102 | 102 |
my $sequence = SL::PrefixedNumber->new(number => $start_number // 0); |
| 103 | 103 |
|
| 104 | 104 |
if (!$fill_holes_in_range) {
|
Auch abrufbar als: Unified diff
S:D:Helper:TransNumberGenerator: Warnung vermeiden.
Getriggert durch Tests (./t/wh/inventory.t). Tritt aber nur auf, wenn
der Nummerkreis noch leer ist.