Revision bea8e7d9
Von Tamino Steinert vor etwa 2 Monaten hinzugefügt
| SL/Controller/DeliveryOrder.pm | ||
|---|---|---|
| 34 | 34 |
use SL::DB::ValidityToken; |
| 35 | 35 |
use SL::DB::EmailJournal; |
| 36 | 36 |
use SL::DB::Warehouse; |
| 37 |
use SL::DB::Bin; |
|
| 37 | 38 |
use SL::DB::Helper::RecordLink qw(set_record_link_conversions RECORD_ID RECORD_TYPE_REF RECORD_ITEM_ID RECORD_ITEM_TYPE_REF); |
| 38 | 39 |
use SL::DB::Helper::TypeDataProxy; |
| 39 | 40 |
use SL::DB::Helper::Record qw(get_object_name_from_type get_class_from_type); |
| ... | ... | |
| 1246 | 1247 |
my $max_qty = sum0(map {$_->{qty}} @grouped_qty);
|
| 1247 | 1248 |
if ($max_qty < $parts_qty{$part_id}) {
|
| 1248 | 1249 |
$parts_errors{$part_id}{missing_qty} = $parts_qty{$part_id} - $max_qty;
|
| 1250 |
$parts_errors{$part_id}{bin_id} = $bin_id;
|
|
| 1249 | 1251 |
} |
| 1250 | 1252 |
|
| 1251 | 1253 |
next if $parts_errors{$part_id};
|
| ... | ... | |
| 1285 | 1287 |
$self->js->error(t8('No standard bin set for #1.', $part->displayable_name));
|
| 1286 | 1288 |
} |
| 1287 | 1289 |
if ($parts_errors{$part_id}{missing_qty}) {
|
| 1290 |
my $bin = SL::DB::Manager::Bin->find_by( |
|
| 1291 |
id => $parts_errors{$part_id}{bin_id}
|
|
| 1292 |
); |
|
| 1288 | 1293 |
$self->js->error( |
| 1289 |
t8('There are #1 of "#2" missing from the standard bin #3 for transfer.',
|
|
| 1290 |
$parts_errors{$part_id}{missing_qty}, $part->displayable_name, $part->bin->full_description));
|
|
| 1294 |
t8('There are #1 of "#2" missing from the bin #3 for transfer.',
|
|
| 1295 |
$parts_errors{$part_id}{missing_qty}, $part->displayable_name, $bin->full_description));
|
|
| 1291 | 1296 |
} |
| 1292 | 1297 |
if ($parts_errors{$part_id}{multiple_options}){
|
| 1293 | 1298 |
push @multiple_options, $part; |
Auch abrufbar als: Unified diff
FIX: S:C:DeliveryOrder: Fehlermeldung bei 'Auslagern über Standardlager'