X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FAR.pm;h=4f150673beb12fda4eea126036edb3165193bdf2;hb=128b0775bae87e3507fde183e8fb307e2a598b60;hp=56f2da9dfa61e63b59cd8c4096faf692b1053628;hpb=0a64ac3db8c430756ab6260399816714e44ec16d;p=kivitendo-erp.git

diff --git a/SL/AR.pm b/SL/AR.pm
index 56f2da9df..4f150673b 100644
--- a/SL/AR.pm
+++ b/SL/AR.pm
@@ -599,6 +599,20 @@ SQL
     push @values, like($form->{parts_description});
   }
 
+  if ($form->{show_marked_as_closed}) {
+    $query .= '
+      LEFT JOIN (
+              SELECT SUM(acc_trans.amount) AS amount, trans_id
+              FROM acc_trans
+              LEFT JOIN chart ON chart.id = chart_id
+              WHERE chart.link ILIKE ?
+              GROUP BY trans_id
+      ) AS paid_difference ON (paid_difference.trans_id = a.id)
+    ';
+    unshift @values, '%AR_paid%';
+    $where .= ' AND COALESCE(paid_difference.amount, 0) + a.paid != 0';
+  }
+
   my ($cvar_where, @cvar_values) = CVar->build_filter_query('module'         => 'CT',
                                                             'trans_id_field' => 'c.id',
                                                             'filter'         => $form,