X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/8c1d5d7530f3a1c923ee470b7ff31616800a8574..35cfcb1b52f6e3397f14d2d3e39e82cd604f0aa3:/SL/OE.pm diff --git a/SL/OE.pm b/SL/OE.pm index 459944318..1c812e24f 100644 --- a/SL/OE.pm +++ b/SL/OE.pm @@ -50,6 +50,7 @@ use SL::DBUtils; use SL::HTML::Restrict; use SL::IC; use SL::TransNumber; +use Text::ParseWords; use strict; @@ -285,6 +286,18 @@ SQL push @values, conv_date($form->{expected_billing_date_to}); } + if ($form->{all}) { + my @tokens = parse_line('\s+', 0, $form->{all}); + # ordnumber quonumber customer.name vendor.name transaction_description + $query .= qq| AND ( + o.ordnumber ILIKE ? OR + o.quonumber ILIKE ? OR + ct.name ILIKE ? OR + o.transaction_description ILIKE ? + )| for @tokens; + push @values, ("%$_%")x4 for @tokens; + } + my ($cvar_where, @cvar_values) = CVar->build_filter_query('module' => 'CT', 'trans_id_field' => 'ct.id', 'filter' => $form,