X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/b0eb18bf70bd3b27428a6cb6e15a31c9b468c75c..d6a2112059bfd74eaa3926b8f9d1cfb52bf0e2f4:/SL/DN.pm

diff --git a/SL/DN.pm b/SL/DN.pm
index 55200835e..0ada08c4d 100644
--- a/SL/DN.pm
+++ b/SL/DN.pm
@@ -523,11 +523,16 @@ sub get_invoices {
        WHERE dunning_level = (SELECT MAX(dunning_level) FROM dunning_config)|;
   my ($id_for_max_dunning_level) = selectrow_query($form, $dbh, $query);
 
+  if (!$form->{l_include_direct_debit}) {
+    $where .= qq| AND NOT COALESCE(a.direct_debit, FALSE) |;
+  }
+
   $query =
     qq|SELECT
          a.id, a.ordnumber, a.transdate, a.invnumber, a.amount, a.language_id,
          ct.name AS customername, a.customer_id, a.duedate,
          a.amount - a.paid AS open_amount,
+         a.direct_debit,
 
          cfg.dunning_description, cfg.dunning_level,