X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/7464fcbd11174679dd59d9953fe22eb8285c7eac..a74f9d57d972444f66f96497fbf9ce9ed91a86a2:/SL/WH.pm

diff --git a/SL/WH.pm b/SL/WH.pm
index c8ad6006e..f05ba4fd5 100644
--- a/SL/WH.pm
+++ b/SL/WH.pm
@@ -807,7 +807,7 @@ sub get_warehouse_report {
      "chargeid"             => "c.id",
      "warehousedescription" => "w.description",
      "partunit"             => "p.unit",
-     "stock_value"          => "p.lastcost / COALESCE(pfac.factor, 1)",
+     "stock_value"          => ($form->{stock_value_basis} // '') eq 'list_price' ? "p.listprice / COALESCE(pfac.factor, 1)" : "p.lastcost / COALESCE(pfac.factor, 1)",
      "purchase_price"       => "p.lastcost",
      "list_price"           => "p.listprice",
   );