Revision df96885d
Von Bernd Bleßmann vor etwa 1 Jahr hinzugefügt
| SL/Helper/Inventory.pm | ||
|---|---|---|
|
|
||
|
# check whether allocations are sane
|
||
|
if (!$params{no_check_allocations} && !$params{auto_allocate}) {
|
||
|
my %allocations_by_part = map { $_->parts_id => $_->qty } @$allocations;
|
||
|
my %allocations_by_part;
|
||
|
for (@$allocations) {
|
||
|
$allocations_by_part{$_->parts_id} //= 0;
|
||
|
$allocations_by_part{$_->parts_id} += $_->qty;
|
||
|
}
|
||
|
|
||
|
for my $assembly ($part->assemblies) {
|
||
|
next if $assembly->part->type eq 'service' && !$consume_service;
|
||
|
$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.