Revision 5a7d6086
Von Werner Hahn vor 7 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 |
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.