Verkauf->Rechnungsbericht Filter nach nicht per E-Mail verschickten Belegen

[kivitendo-erp.git] / SL / AR.pm

diff --git a/SL/AR.pm b/SL/AR.pm
index e227eb6..0c8f842 100644 (file)
--- a/SL/AR.pm
+++ b/SL/AR.pm
@@ -620,6 +620,18 @@ SQL
     push @values, like($form->{parts_description});
   }
 
+  if ($form->{show_not_mailed}) {
+    $where .= <<SQL;
+      AND NOT EXISTS (
+        SELECT rl.to_id
+        FROM record_links rl
+        WHERE (rl.from_id = a.id)
+          AND (rl.to_table = 'email_journal')
+        LIMIT 1
+      )
+SQL
+  }
+
   if ($form->{show_marked_as_closed}) {
     $query .= '
       LEFT JOIN (