Revision 16c66f61
Von Jan Büren vor mehr als 15 Jahren hinzugefügt
| bin/mozilla/wh.pl | ||
|---|---|---|
| 281 | 281 |
$form->{trans_type} = 'stock';
|
| 282 | 282 |
$form->{qty} = $form->parse_amount(\%myconfig, $form->{qty});
|
| 283 | 283 |
|
| 284 |
if (!$form->{partnumber} && !$form->{description}) {
|
|
| 285 |
delete @{$form}{qw(parts_id partunit)};
|
|
| 284 |
if (!$form->{partnumber} && !$form->{description} && !$form->{ean}) {
|
|
| 285 |
delete @{$form}{qw(parts_id partunit ean)};
|
|
| 286 | 286 |
transfer_warehouse_selection(); |
| 287 | 287 |
|
| 288 |
} elsif (($form->{partnumber} && ($form->{partnumber} ne $form->{old_partnumber})) || $form->{description}) {
|
|
| 288 |
} elsif (($form->{partnumber} && ($form->{partnumber} ne $form->{old_partnumber})) || $form->{description} || $form->{ean}) {
|
|
| 289 | 289 |
|
| 290 | 290 |
$form->{no_services} = 1;
|
| 291 | 291 |
$form->{no_assemblies} = 0; # assemblies duerfen eingelagert werden (z.B. bei retouren)
|
| ... | ... | |
| 293 | 293 |
my $parts = Common->retrieve_parts(\%myconfig, $form, 'description', 1); |
| 294 | 294 |
|
| 295 | 295 |
if (scalar @{ $parts } == 1) {
|
| 296 |
@{$form}{qw(parts_id partnumber description)} = @{$parts->[0]}{qw(id partnumber description)};
|
|
| 296 |
@{$form}{qw(parts_id partnumber description ean)} = @{$parts->[0]}{qw(id partnumber description ean)};
|
|
| 297 | 297 |
transfer_stock_get_partunit(); |
| 298 | 298 |
transfer_warehouse_selection(); |
| 299 | 299 |
|
| ... | ... | |
| 353 | 353 |
|
| 354 | 354 |
my $part = shift; |
| 355 | 355 |
|
| 356 |
@{$form}{qw(parts_id partnumber description)} = @{$part}{qw(id partnumber description)};
|
|
| 356 |
@{$form}{qw(parts_id partnumber description ean)} = @{$part}{qw(id partnumber description ean)};
|
|
| 357 | 357 |
|
| 358 | 358 |
transfer_stock_get_partunit(); |
| 359 | 359 |
transfer_warehouse_selection(); |
Auch abrufbar als: Unified diff
Bugzilla Eintrag 856 EAN auch fuers Einlagern ... Teil II von III