Revision 33ebb412
Von Bernd Bleßmann vor 10 Monaten hinzugefügt
| bin/mozilla/wh.pl | ||
|---|---|---|
| 484 | 484 |
my %allocations_by_parts_id = map { my $p_id = $_->{parts_id}; $p_id => [grep { $_->{parts_id} == $p_id } @allocations] } @allocations;
|
| 485 | 485 |
|
| 486 | 486 |
my %needed_by_parts_id = map { $_->{parts_id} => $_->qty * $form->{qty} } @{$assembly->assemblies};
|
| 487 |
return create_assembly_chargenumbers($form, \%stocked_by_parts_id, \%needed_by_parts_id, \%allocations_by_parts_id); |
|
| 487 |
create_assembly_chargenumbers($form, \%stocked_by_parts_id, \%needed_by_parts_id, \%allocations_by_parts_id); |
|
| 488 |
return $::lxdebug->leave_sub(); |
|
| 488 | 489 |
} |
| 489 | 490 |
|
| 490 | 491 |
} |
Auch abrufbar als: Unified diff
Erzeugnis fertigen: wh.pl: vergessenes leave_sub