From c577d18a4c0b9527192e6bbd8b90c3259e485967 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jan=20B=C3=BCren?= Date: Thu, 5 Nov 2020 08:52:26 +0100 Subject: [PATCH] =?utf8?q?Auslagern=20=C3=BCber=20Rechnung=20und=20Serienn?= =?utf8?q?ummer=20besser=20kombinieren?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Falls keine Seriennummer im Beleg dennoch probieren die Ware auszulagern, sodass der Bearbeiter eine entsprechende Fehlermeldung bekommt. --- SL/IS.pm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) 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); -- 2.20.1