GuV und Ist-Versteuerung und Abteilungsfilter fehlerhaft

War in 2009 noch in Ordnung. Ist beim Überarbeiten für $inwhere
übersehen worden
closes #2427

diff --git a/SL/RP.pm b/SL/RP.pm
index c4a9503..4a7b0af 100644 (file)
--- a/SL/RP.pm
+++ b/SL/RP.pm
@@ -516,7 +516,7 @@ sub get_accounts_g {
   if ($form->{method} eq 'cash') {
     $query =
       qq|
-       SELECT SUM( ac.amount * CASE WHEN COALESCE((SELECT amount FROM ar WHERE id = ac.trans_id), 0) != 0 THEN
+       SELECT SUM( ac.amount * CASE WHEN COALESCE((SELECT amount FROM ar a WHERE id = ac.trans_id $dpt_where), 0) != 0 THEN
             /* ar amount is not zero, so we can divide by amount   */
                     (SELECT SUM(acc.amount) * -1
                      FROM acc_trans acc