Quicksuche: bei Stammdatensuche keine ungültigen anbieten

Betrifft:

• Artikelstammdaten in allen Varianten (Waren, Dienstleistungen,
  Erzeugnisse, Sortimente)
• Kunden & Lieferanten
• Ansprechpersonen (hier werden nur diejenigen angeboten, die zu
  gültigen Kunden/Lieferanten gehören)

diff --git a/SL/Controller/TopQuickSearch/Article.pm b/SL/Controller/TopQuickSearch/Article.pm
index ba051d280a3ac437e1b30ed05cb716ce40a8a70d..e689bbe81db14512c111130e96d283012909e9ce 100644 (file)
--- a/SL/Controller/TopQuickSearch/Article.pm
+++ b/SL/Controller/TopQuickSearch/Article.pm
@@ -83,6 +83,7 @@ sub init_models {
     source     => {
       filter => {
         (part_type => $self->part_type) x!!$self->part_type,
+        or => [ obsolete => undef, obsolete => 0 ],
         'all:substr:multi::ilike' => $::form->{term},
       },
     },

diff --git a/SL/Controller/TopQuickSearch/Contact.pm b/SL/Controller/TopQuickSearch/Contact.pm
index e170524ab6eec41c18c76be0a4cdbc7edffe7de6..322df37637472e3e164a33df188285026fc7de11 100644 (file)
--- a/SL/Controller/TopQuickSearch/Contact.pm
+++ b/SL/Controller/TopQuickSearch/Contact.pm
@@ -19,6 +19,18 @@ sub description_field { t8('Contacts') }
 sub query_autocomplete {
   my ($self) = @_;
 
+  my $cv_query = <<SQL;
+    SELECT id FROM customer
+    WHERE (obsolete IS NULL)
+       OR (obsolete = FALSE)
+
+    UNION
+
+    SELECT id FROM vendor
+    WHERE (obsolete IS NULL)
+       OR (obsolete = FALSE)
+SQL
+
   my $result = SL::DB::Manager::Contact->get_all(
     query => [
       or => [
@@ -26,7 +38,7 @@ sub query_autocomplete {
         cp_givenname => { ilike => like($::form->{term}) },
         cp_email     => { ilike => like($::form->{term}) },
       ],
-      cp_cv_id => [ \'SELECT id FROM customer UNION SELECT id FROM vendor' ],
+      cp_cv_id => [ \$cv_query ],
     ],
     limit => 10,
     sort_by => 'cp_name',

diff --git a/SL/Controller/TopQuickSearch/CustomerVendor.pm b/SL/Controller/TopQuickSearch/CustomerVendor.pm
index f337d10a1ce0d86456313840f314918b2cd21afb..0f18b3b1afec0364d238ac345d0f62ae8d8ca373 100644 (file)
--- a/SL/Controller/TopQuickSearch/CustomerVendor.pm
+++ b/SL/Controller/TopQuickSearch/CustomerVendor.pm
@@ -82,6 +82,7 @@ sub init_models {
     source     => {
       filter => {
         'all:substr:multi::ilike' => $::form->{term}, # all filter spec is set in SL::DB::Manager::Customer
+        or => [ obsolete => undef, obsolete => 0 ],
       },
     },
     sorted     => {