Revision 5d497700
Von Moritz Bunkus vor mehr als 7 Jahren hinzugefügt
| bin/mozilla/wh.pl | ||
|---|---|---|
| 178 | 178 |
"bin_id" => $form->{bin_id},
|
| 179 | 179 |
"chargenumber" => $form->{chargenumber},
|
| 180 | 180 |
"bestbefore" => $form->{bestbefore},
|
| 181 |
"partnumber" => $form->{partnumber},
|
|
| 182 |
"ean" => $form->{ean},
|
|
| 183 |
"description" => $form->{description});
|
|
| 181 |
"partsid" => $form->{part_id},
|
|
| 182 |
"ean" => $form->{ean});
|
|
| 184 | 183 |
|
| 185 | 184 |
if (0 == scalar(@contents)) {
|
| 186 | 185 |
$form->show_generic_error($locale->text("The selected warehouse is empty, or no stocked items where found that match the filter settings."));
|
| ... | ... | |
| 313 | 312 |
# -------------------------------------------------------------------- |
| 314 | 313 |
|
| 315 | 314 |
sub transfer_assembly_update_part {
|
| 316 |
$main::lxdebug->enter_sub(); |
|
| 317 |
|
|
| 318 | 315 |
my $form = $main::form; |
| 319 | 316 |
my %myconfig = %main::myconfig; |
| 320 | 317 |
my $locale = $main::locale; |
| ... | ... | |
| 322 | 319 |
$form->{trans_type} = 'assembly';
|
| 323 | 320 |
$form->{qty} = $form->parse_amount(\%myconfig, $form->{qty});
|
| 324 | 321 |
|
| 325 |
if (!$form->{partnumber} && !$form->{description}) {
|
|
| 326 |
delete @{$form}{qw(parts_id partunit)};
|
|
| 322 |
if (!$form->{parts_id}) {
|
|
| 323 |
delete $form->{partunit};
|
|
| 327 | 324 |
transfer_warehouse_selection(); |
| 325 |
return; |
|
| 328 | 326 |
|
| 329 |
} elsif (($form->{partnumber} && ($form->{partnumber} ne $form->{old_partnumber})) || $form->{description}) {
|
|
| 330 |
$form->{assemblies} = 1;
|
|
| 331 |
$form->{no_assemblies} = 0;
|
|
| 332 |
my $parts = Common->retrieve_parts(\%myconfig, $form, 'description', 1); |
|
| 333 |
if (scalar @{ $parts } == 1) {
|
|
| 334 |
@{$form}{qw(parts_id partnumber description)} = @{$parts->[0]}{qw(id partnumber description)};
|
|
| 335 |
transfer_stock_get_partunit(); |
|
| 336 |
transfer_warehouse_selection(); |
|
| 337 |
} else {
|
|
| 338 |
select_part('transfer_stock_part_selected', @{ $parts });
|
|
| 339 |
} |
|
| 340 |
|
|
| 341 |
} else {
|
|
| 342 |
transfer_stock_get_partunit(); |
|
| 343 |
transfer_warehouse_selection(); |
|
| 344 | 327 |
} |
| 345 | 328 |
|
| 346 |
# hier die oben benannte idee |
|
| 347 |
# my $maxcreate = Common->check_assembly_max_create(assembly_id => $form->{parts_id}, dbh => $my_dbh);
|
|
| 348 |
$main::lxdebug->leave_sub(); |
|
| 329 |
my $part = SL::DB::Part->new(id => $::form->{parts_id})->load;
|
|
| 330 |
@{$form}{qw(parts_id partnumber description)} = ($part->id, $part->partnumber, $part->description);
|
|
| 331 |
|
|
| 332 |
transfer_stock_get_partunit(); |
|
| 333 |
transfer_warehouse_selection(); |
|
| 349 | 334 |
} |
| 350 | 335 |
|
| 351 | 336 |
sub transfer_stock_part_selected {
|
Auch abrufbar als: Unified diff
Lager: Umstellung auf Verwendung vom Part-Picker
Dadurch wurden mehrere alte Artikel-Auswahl-Routinen und -Vorlagen
überflüssig, die gleich entfernt wurden.