Revision 88dea78e
Von Moritz Bunkus vor etwa 8 Jahren hinzugefügt
| SL/DO.pm | ||
|---|---|---|
| 46 | 46 |
use SL::RecordLinks; |
| 47 | 47 |
use SL::IC; |
| 48 | 48 |
use SL::TransNumber; |
| 49 |
use SL::Util qw(trim); |
|
| 49 | 50 |
|
| 50 | 51 |
use strict; |
| 51 | 52 |
|
| ... | ... | |
| 110 | 111 |
|
| 111 | 112 |
} elsif ($form->{$vc}) {
|
| 112 | 113 |
push @where, qq|ct.name ILIKE ?|; |
| 113 |
push @values, '%' . $form->{$vc} . '%';
|
|
| 114 |
push @values, '%' . trim($form->{$vc}) . '%';
|
|
| 114 | 115 |
} |
| 115 | 116 |
|
| 116 | 117 |
if ($form->{"cp_name"}) {
|
| 117 | 118 |
push @where, "(cp.cp_name ILIKE ? OR cp.cp_givenname ILIKE ?)"; |
| 118 |
push @values, ('%' . $form->{"cp_name"} . '%')x2;
|
|
| 119 |
push @values, ('%' . trim($form->{"cp_name"}) . '%')x2;
|
|
| 119 | 120 |
} |
| 120 | 121 |
|
| 121 | 122 |
foreach my $item (qw(employee_id salesman_id)) {
|
| ... | ... | |
| 131 | 132 |
foreach my $item (qw(donumber ordnumber cusordnumber transaction_description)) {
|
| 132 | 133 |
next unless ($form->{$item});
|
| 133 | 134 |
push @where, qq|dord.$item ILIKE ?|; |
| 134 |
push @values, '%' . $form->{$item} . '%';
|
|
| 135 |
push @values, '%' . trim($form->{$item}) . '%';
|
|
| 135 | 136 |
} |
| 136 | 137 |
|
| 137 | 138 |
if (($form->{open} || $form->{closed}) &&
|
| ... | ... | |
| 146 | 147 |
|
| 147 | 148 |
if ($form->{serialnumber}) {
|
| 148 | 149 |
push @where, 'dord.id IN (SELECT doi.delivery_order_id FROM delivery_order_items doi WHERE doi.serialnumber LIKE ?)'; |
| 149 |
push @values, '%' . $form->{serialnumber} . '%';
|
|
| 150 |
push @values, '%' . trim($form->{serialnumber}) . '%';
|
|
| 150 | 151 |
} |
| 151 | 152 |
|
| 152 | 153 |
if($form->{transdatefrom}) {
|
Auch abrufbar als: Unified diff
Einkaufs-/Verkaufssuchen: bei Textfeldern führende/anhängende Whitespaces entfernen