X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/535330c547f770e2b5fa27940a50f3ad04a1ba28..c577d18a4c0b9527192e6bbd8b90c3259e485967:/SL/IS.pm diff --git a/SL/IS.pm b/SL/IS.pm index a99b43f77..e9e9144d4 100644 --- a/SL/IS.pm +++ b/SL/IS.pm @@ -1464,8 +1464,7 @@ sub transfer_out { my ($err, $qty, $wh_id, $bin_id, $chargenumber); - if ($::instance_conf->get_sales_serial_eq_charge) { - next unless $form->{"serialnumber_$i"}; + if ($::instance_conf->get_sales_serial_eq_charge && $form->{"serialnumber_$i"}) { my @serials = split(" ", $form->{"serialnumber_$i"}); if (scalar @serials != $form->{"qty_$i"}) { push @errors, $::locale->text("Cannot transfer #1 qty with #2 serial number(s)", $form->{"qty_$i"}, scalar @serials);