Revision 5a7d6086
Von Werner Hahn vor etwa 1 Monat 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 |
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, $assembly);
|
|
| 488 | 488 |
return $::lxdebug->leave_sub(); |
| 489 | 489 |
} |
| 490 | 490 |
|
| ... | ... | |
| 538 | 538 |
} |
| 539 | 539 |
|
| 540 | 540 |
sub create_assembly_chargenumbers {
|
| 541 |
my ($form, $stocked_by_parts_id, $needed_by_parts_id, $allocated_by_parts_id) = @_; |
|
| 541 |
my ($form, $stocked_by_parts_id, $needed_by_parts_id, $allocated_by_parts_id, $assembly) = @_;
|
|
| 542 | 542 |
|
| 543 | 543 |
setup_wh_create_assembly_chargenumbers_action_bar(); |
| 544 | 544 |
|
| 545 | 545 |
my $hidden_vars = { map { $_ => $form->{$_} } qw(parts_id warehouse_id bin_id chargenumber qty unit comment) };
|
| 546 | 546 |
|
| 547 |
$form->{title} = $::locale->text('Select Chargenumbers');
|
|
| 547 |
$form->{title} = $::locale->text('Select Chargenumbers to produce quantity #1 of #2 #3', $form->{qty}, $assembly->partnumber, $assembly->description);
|
|
| 548 | 548 |
$form->header; |
| 549 | 549 |
|
| 550 | 550 |
print $form->parse_html_template( |
Auch abrufbar als: Unified diff
CreateAssembly: Mehr Informationen im Titel "Was und wieviel" gefertigt werden soll.