Revision 1947cd9a
Von Jan Büren vor etwa 10 Jahren hinzugefügt
| bin/mozilla/do.pl | ||
|---|---|---|
| 1592 | 1592 |
my $base_unit_factor = $units->{ $part_info_map{$form->{"id_$i"}}->{unit} }->{factor} || 1;
|
| 1593 | 1593 |
my $qty = $form->parse_amount(\%myconfig, $form->{"qty_$i"}) * $units->{$form->{"unit_$i"}}->{factor} / $base_unit_factor;
|
| 1594 | 1594 |
|
| 1595 |
$form->show_generic_error($locale->text("Cannot transfer negative entries." ), 'back_button' => 1) if ($qty < 0);
|
|
| 1595 | 1596 |
# if we do not want to transfer services and this part is a service, set qty to zero |
| 1596 | 1597 |
# ... and do not create a hash entry in %qty_parts below (will skip check for bins for the transfer == out case) |
| 1597 | 1598 |
# ... and push only a empty (undef) element to @all_requests (will skip check for bin_id and warehouse_id and will not alter the row) |
| ... | ... | |
| 1599 | 1600 |
$qty = 0 if (!$::instance_conf->get_transfer_default_services && !defined($part_info_map{$form->{"id_$i"}}->{inventory_accno_id}) && !$part_info_map{$form->{"id_$i"}}->{assembly});
|
| 1600 | 1601 |
$qty_parts{$form->{"id_$i"}} += $qty;
|
| 1601 | 1602 |
if ($qty == 0) {
|
| 1602 |
delete $qty_parts{$form->{"id_$i"}};
|
|
| 1603 |
delete $qty_parts{$form->{"id_$i"}} unless $qty_parts{$form->{"id_$i"}};
|
|
| 1603 | 1604 |
undef $form->{"stock_in_$i"};
|
| 1604 | 1605 |
} |
| 1605 | 1606 |
|
Auch abrufbar als: Unified diff
Verbesserung Standard-Auslagern
a) Überprüfung auf negative Eingabe des Benutzers (hier wird beim
manuellen Auslagern keine Lager-Bewegung durchgeführt).
b) Löschen von bisher eingetragenene Mengen innerhalb der einzelnen
Positionen (für den Fall Dienstleistung nicht ein- oder auslagern).
Falls das ein Benutzer so eingibt