Keine Umlagerungen mehr ohne Chargennummer erlauben.

Wenn keine angegeben, wird jetzt automatisch eine leere Chargennummer benutzt.

diff --git a/SL/WH.pm b/SL/WH.pm
index f760f5e..eb37626 100644 (file)
--- a/SL/WH.pm
+++ b/SL/WH.pm
@@ -115,6 +115,8 @@ sub transfer {
         $qty /= $part->unit_obj->factor || 1 if $part->unit;
       }
 
+      $params{chargenumber} ||= '';
+
       if ($direction & 1) {
         SL::DB::Inventory->new(
           %params,