Ergänzung zu Jans Bugfix: Nur diejenigen Lagerplätze anzeigen, die positiven Bestand...

diff --git a/SL/DO.pm b/SL/DO.pm
index cdb11b1aa63771346ccc49e7161cdcd892c0a63f..50905ec014f2b7838e7b34d79ba1dfee8953e07a 100644 (file)
--- a/SL/DO.pm
+++ b/SL/DO.pm
@@ -895,11 +895,11 @@ sub get_item_availability {
        FROM inventory i
        LEFT JOIN warehouse w ON (i.warehouse_id = w.id)
        LEFT JOIN bin b       ON (i.bin_id       = b.id)
        FROM inventory i
        LEFT JOIN warehouse w ON (i.warehouse_id = w.id)
        LEFT JOIN bin b       ON (i.bin_id       = b.id)

-       WHERE (i.parts_id IN (| . join(', ', ('?') x scalar(@parts_ids)) . qq|))| .
-#         AND qty > 0  # das führt zu falschen warenbeständen, wenn man über lieferschein auslagert. @mb nochmal besprechen jb 12.5.09
-    qq|GROUP BY i.warehouse_id, i.bin_id, i.chargenumber, i.parts_id, w.description, b.description
-       ORDER BY LOWER(w.description), LOWER(b.description), LOWER(i.chargenumber)|;
-
+       WHERE (i.parts_id IN (| . join(', ', ('?') x scalar(@parts_ids)) . qq|))
+       GROUP BY i.warehouse_id, i.bin_id, i.chargenumber, i.parts_id, w.description, b.description
+       HAVING SUM(qty) > 0
+       ORDER BY LOWER(w.description), LOWER(b.description), LOWER(i.chargenumber)
+|;

   my $contents = selectall_hashref_query($form, $form->get_standard_dbh($myconfig), $query, @parts_ids);
 
   $main::lxdebug->leave_sub();
   my $contents = selectall_hashref_query($form, $form->get_standard_dbh($myconfig), $query, @parts_ids);
 
   $main::lxdebug->leave_sub();