From 4bc122b8ac1abe52aa37f0bebf56f7af799ba966 Mon Sep 17 00:00:00 2001
From: Werner Hahn <wh@futureworldsearch.net>
Date: Fri, 8 Nov 2024 13:51:57 +0100
Subject: [PATCH] Volltextsuche auch bei Verkaufsrechnungen und Deb. Buchungen

---
 SL/AR.pm                                   | 23 ++++++++++++++++++++++
 bin/mozilla/ar.pl                          |  5 ++++-
 templates/design40_webpages/ar/search.html |  4 ++++
 templates/webpages/ar/search.html          |  4 ++++
 4 files changed, 35 insertions(+), 1 deletion(-)

diff --git a/SL/AR.pm b/SL/AR.pm
index 6bf390fc48..36390bee18 100644
--- a/SL/AR.pm
+++ b/SL/AR.pm
@@ -667,6 +667,29 @@ sub ar_transactions {
     }
   }
 
+  $form->{fulltext} = trim($form->{fulltext});
+  if ($form->{fulltext}) {
+    my @fulltext_fields = qw(a.notes
+                             a.intnotes
+                             a.shipvia
+                             a.transaction_description
+                             a.quonumber
+                             a.ordnumber
+                             a.invnumber);
+    $where .= ' AND (';
+    $where .= join ' OR ', map {"$_ ILIKE ?"} @fulltext_fields;
+
+    $where .= <<SQL;
+      OR EXISTS (
+        SELECT files.id FROM files LEFT JOIN file_full_texts ON (file_full_texts.file_id = files.id)
+          WHERE files.object_id = a.id AND files.object_type = 'invoice'
+            AND file_full_texts.full_text ILIKE ?)
+SQL
+    $where .= ')'; # end AND
+
+    push(@values, like($form->{fulltext})) for 1 .. (scalar @fulltext_fields) + 1;
+  }
+
   if ($form->{parts_partnumber}) {
     $where .= <<SQL;
       AND EXISTS (
diff --git a/bin/mozilla/ar.pl b/bin/mozilla/ar.pl
index cc8c185be9..311d567f62 100644
--- a/bin/mozilla/ar.pl
+++ b/bin/mozilla/ar.pl
@@ -1154,7 +1154,7 @@ sub ar_transactions {
     business_id parts_partnumber parts_description department_id
     show_marked_as_closed show_not_mailed shippingpoint shipvia taxzone_id
     payment_id shiptoname shiptodepartment_1 shiptodepartment_2 shiptostreet
-    shiptozipcode shiptocity shiptocountry
+    shiptozipcode shiptocity shiptocountry fulltext
   );
   push @hidden_variables, map { "cvar_$_->{name}" } @ct_searchable_custom_variables;
 
@@ -1331,6 +1331,9 @@ sub ar_transactions {
   if ($form->{shiptocountry}) {
     push @options, $locale->text('Country (Shipping)') . " : $form->{shiptocountry}";
   }
+  if ($form->{fulltext}) {
+    push @options, $locale->text('Full Text') . " : $form->{fulltext}";
+  }
 
   $form->{ALL_PRINTERS} = SL::DB::Manager::Printer->get_all_sorted;
 
diff --git a/templates/design40_webpages/ar/search.html b/templates/design40_webpages/ar/search.html
index ca6d247c21..abd5678fb1 100644
--- a/templates/design40_webpages/ar/search.html
+++ b/templates/design40_webpages/ar/search.html
@@ -39,6 +39,10 @@ <h1>[% title %]</h1>
         <tr>
           <th class="caption" colspan="2">[% 'Miscellaneous' | $T8 %]</th>
         </tr>
+        <tr>
+          <th>[% 'Full Text' | $T8 %]</th>
+          <td>[% L.input_tag('fulltext', '') %]</td>
+        </tr>
         <tr>
           <th>[% 'Transaction description' | $T8 %]</th>
           <td>[% L.input_tag("transaction_description", "") %]</td>
diff --git a/templates/webpages/ar/search.html b/templates/webpages/ar/search.html
index 007e17d2f1..2cdf7e3da9 100644
--- a/templates/webpages/ar/search.html
+++ b/templates/webpages/ar/search.html
@@ -59,6 +59,10 @@ <h1>[% title %]</h1>
       <th align="right">[% 'Part Number' | $T8 %]</th>
       <td>[% L.input_tag("parts_partnumber", "", style=style) %]</td>
      </tr>
+     <tr>
+      <th align="right">[% 'Full Text' | $T8 %]</th>
+      <td>[% L.input_tag('fulltext', '', style=style) %]</td>
+     </tr>
      <tr>
       <th align=right nowrap>[% 'Shipping Point' | $T8 %]</th>
       <td>[% L.input_tag("shippingpoint", "", style=style) %]</td>