Revision df96885d
Von Bernd Bleßmann vor 10 Monaten hinzugefügt
| SL/Helper/Inventory.pm | ||
|---|---|---|
| 354 | 354 |
|
| 355 | 355 |
# check whether allocations are sane |
| 356 | 356 |
if (!$params{no_check_allocations} && !$params{auto_allocate}) {
|
| 357 |
my %allocations_by_part = map { $_->parts_id => $_->qty } @$allocations;
|
|
| 357 |
my %allocations_by_part; |
|
| 358 |
for (@$allocations) {
|
|
| 359 |
$allocations_by_part{$_->parts_id} //= 0;
|
|
| 360 |
$allocations_by_part{$_->parts_id} += $_->qty;
|
|
| 361 |
} |
|
| 362 |
|
|
| 358 | 363 |
for my $assembly ($part->assemblies) {
|
| 359 | 364 |
next if $assembly->part->type eq 'service' && !$consume_service; |
| 360 | 365 |
$allocations_by_part{ $assembly->parts_id } -= $assembly->qty * $qty;
|
Auch abrufbar als: Unified diff
S:H:Inventory:produce_assembly: mehrere Allokierungen für ein Bestandteil …
… berücksichtigen beim Test auf genügend Menge.