Revision 4b2e8d68
Von Jan Büren vor mehr als 3 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
| 1462 | 1462 |
foreach my $i (1 .. $form->{rowcount}) {
|
| 1463 | 1463 |
next if !$form->{"id_$i"};
|
| 1464 | 1464 |
|
| 1465 |
my ($err, $wh_id, $bin_id, $chargenumber); |
|
| 1465 |
my ($err, $qty, $wh_id, $bin_id, $chargenumber);
|
|
| 1466 | 1466 |
|
| 1467 | 1467 |
if ($::instance_conf->get_sales_serial_eq_charge) {
|
| 1468 | 1468 |
next unless $form->{"serialnumber_$i"};
|
| ... | ... | |
| 1472 | 1472 |
last; |
| 1473 | 1473 |
} |
| 1474 | 1474 |
foreach my $serial (@serials) {
|
| 1475 |
($wh_id, $bin_id, $chargenumber) = WH->get_wh_and_bin_for_charge(chargenumber => $serial); |
|
| 1476 |
|
|
| 1475 |
($qty, $wh_id, $bin_id, $chargenumber) = WH->get_wh_and_bin_for_charge(chargenumber => $serial); |
|
| 1476 |
if (!$qty) {
|
|
| 1477 |
push @errors, $::locale->text("Not enough in stock for the serial number #1", $serial);
|
|
| 1478 |
last; |
|
| 1479 |
} |
|
| 1477 | 1480 |
push @transfers, {
|
| 1478 | 1481 |
'parts_id' => $form->{"id_$i"},
|
| 1479 | 1482 |
'qty' => 1, |
Auch abrufbar als: Unified diff
Feature: Auslagern über Rechnung inkl. Seriennummer Lagermenge berücksichtigen