Einkaufsrechnungen: Suche nach Artikelnummer/-beschreibung in Positionen(2)

BUGfix für substr($where, 0, 4, " WHERE "):
$where muss am Anfang innerhalb 4 Zeichen das AND stehen haben,
sonst kommt es zu einem SQL Syntaxerror

diff --git a/SL/AP.pm b/SL/AP.pm
index 92dc733ada48e7357c46ec5a59508c6309d4f4a2..594728546e82d3976b99ea5e44aa4847bb1302a6 100644 (file)
--- a/SL/AP.pm
+++ b/SL/AP.pm
@@ -482,7 +482,7 @@ sub ap_transactions {
   }
   if ($form->{project_id}) {
     $where .=
   }
   if ($form->{project_id}) {
     $where .=

-      qq|AND ((a.globalproject_id = ?) OR EXISTS | .
+      qq| AND ((a.globalproject_id = ?) OR EXISTS | .

       qq|  (SELECT * FROM invoice i | .
       qq|   WHERE i.project_id = ? AND i.trans_id = a.id) | .
       qq| OR EXISTS | .
       qq|  (SELECT * FROM invoice i | .
       qq|   WHERE i.project_id = ? AND i.trans_id = a.id) | .
       qq| OR EXISTS | .


@@ -509,7 +509,7 @@ sub ap_transactions {
 
   if ($form->{parts_partnumber}) {
     $where .= <<SQL;
 
   if ($form->{parts_partnumber}) {
     $where .= <<SQL;

-      AND EXISTS (
+ AND EXISTS (

         SELECT invoice.trans_id
         FROM invoice
         LEFT JOIN parts ON (invoice.parts_id = parts.id)
         SELECT invoice.trans_id
         FROM invoice
         LEFT JOIN parts ON (invoice.parts_id = parts.id)


@@ -523,7 +523,7 @@ SQL
 
   if ($form->{parts_description}) {
     $where .= <<SQL;
 
   if ($form->{parts_description}) {
     $where .= <<SQL;

-      AND EXISTS (
+ AND EXISTS (

         SELECT invoice.trans_id
         FROM invoice
         WHERE (invoice.trans_id = a.id)
         SELECT invoice.trans_id
         FROM invoice
         WHERE (invoice.trans_id = a.id)