X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/4b2e8d6817f9240e9a1fe9e95afb73aaa337c3df..a910619e4c9c90063f5d6a17e51a8da9eadc1ac0:/SL/IS.pm?ds=sidebyside 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);