X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/4895d0c67367abacd4961ba8ed3f3baf8b16a036..44da81735f9d1f9ca2d8c22e230a00b8ef24d17e:/SL/WH.pm

diff --git a/SL/WH.pm b/SL/WH.pm
index 66bf3feab..70f1037c2 100644
--- a/SL/WH.pm
+++ b/SL/WH.pm
@@ -98,7 +98,7 @@ sub transfer {
 
     push @values, "$transfer->{comment}";
 
-    $qty = $transfer->{qty};
+    my $qty = $transfer->{qty};
 
     if ($transfer->{unit}) {
       my $partunit = $partunits{$transfer->{parts_id}};
@@ -161,7 +161,7 @@ sub get_warehouse_journal {
   }
 
   if ($filter{chargenumber}) {
-    push @filter_ary, "w1.chargenumber ILIKE ?";
+    push @filter_ary, "i1.chargenumber ILIKE ?";
     push @filter_vars, '%' . $filter{chargenumber} . '%';
   }