X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/6b378ca7ca0e5fc0933ea90fc66a45d7440b08f7..3fa948b441ab38d7754c3ec6f14fca72fe51fc54:/SL/WH.pm diff --git a/SL/WH.pm b/SL/WH.pm index f760f5e9b..eb3762682 100644 --- 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,