Bei den Kunden- und Lieferantenstammdaten werden in den Berichten standardmäßig nur...

[mfinanz.git] / SL / CT.pm

diff --git a/SL/CT.pm b/SL/CT.pm
index d9a7ac704508930d5521299ccb2d1a36587037fd..82e360cc70a6e82318d77a1114abc67be12ced8d 100644 (file)
--- a/SL/CT.pm
+++ b/SL/CT.pm
@@ -624,6 +624,12 @@ sub search {
     $form->{l_invnumber} = $form->{l_ordnumber} = $form->{l_quonumber} = "";
   }
 
+  if ($form->{obsolete} eq "Y") {
+    $where .= qq| AND obsolete|;
+  } elsif ($form->{obsolete} eq "N") {
+    $where .= qq| AND NOT obsolete|;
+  }
+
   my $query =
     qq|SELECT ct.*, b.description AS business | .
     qq|FROM $cv ct | .