Revision a67bb21a
Von Tamino Steinert vor 2 Monaten hinzugefügt
- ID a67bb21aa0e41de50280f6283ffbdc9d77b1a553
- Vorgänger cd424304
| 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); |
| ... | ... | |
| 1220 | 1221 |
my $max_qty = sum0(map {$_->{qty}} @grouped_qty);
|
| 1221 | 1222 |
if ($max_qty < $parts_qty{$part_id}) {
|
| 1222 | 1223 |
$parts_errors{$part_id}{missing_qty} = $parts_qty{$part_id} - $max_qty;
|
| 1224 |
$parts_errors{$part_id}{bin_id} = $bin_id;
|
|
| 1223 | 1225 |
} |
| 1224 | 1226 |
|
| 1225 | 1227 |
next if $parts_errors{$part_id};
|
| ... | ... | |
| 1259 | 1261 |
$self->js->error(t8('No standard bin set for #1.', $part->displayable_name));
|
| 1260 | 1262 |
} |
| 1261 | 1263 |
if ($parts_errors{$part_id}{missing_qty}) {
|
| 1264 |
my $bin = SL::DB::Manager::Bin->find_by( |
|
| 1265 |
id => $parts_errors{$part_id}{bin_id}
|
|
| 1266 |
); |
|
| 1262 | 1267 |
$self->js->error( |
| 1263 | 1268 |
t8('There are #1 of "#2" missing from the standard bin #3 for transfer.',
|
| 1264 |
$parts_errors{$part_id}{missing_qty}, $part->displayable_name, $part->bin->full_description));
|
|
| 1269 |
$parts_errors{$part_id}{missing_qty}, $part->displayable_name, $bin->full_description));
|
|
| 1265 | 1270 |
} |
| 1266 | 1271 |
if ($parts_errors{$part_id}{multiple_options}){
|
| 1267 | 1272 |
push @multiple_options, $part; |
Auch abrufbar als: Unified diff
FIX: S:C:DeliveryOrder: Fehlermeldung bei 'Auslagern über Standardlager'