Revision 85b0c4ab
Von Moritz Bunkus vor mehr als 10 Jahren hinzugefügt
| SL/AR.pm | ||
|---|---|---|
| 488 | 488 |
my @values; |
| 489 | 489 |
|
| 490 | 490 |
my $query = |
| 491 |
qq|SELECT DISTINCT a.id, a.invnumber, a.ordnumber, a.transdate, | . |
|
| 491 |
qq|SELECT DISTINCT a.id, a.invnumber, a.ordnumber, a.cusordnumber, a.transdate, | .
|
|
| 492 | 492 |
qq| a.duedate, a.netamount, a.amount, a.paid, | . |
| 493 | 493 |
qq| a.invoice, a.datepaid, a.terms, a.notes, a.shipvia, | . |
| 494 | 494 |
qq| a.shippingpoint, a.storno, a.storno_id, a.globalproject_id, | . |
| ... | ... | |
| 550 | 550 |
$where .= " AND d.description ILIKE ?"; |
| 551 | 551 |
push(@values, $department); |
| 552 | 552 |
} |
| 553 |
foreach my $column (qw(invnumber ordnumber notes transaction_description)) {
|
|
| 553 |
foreach my $column (qw(invnumber ordnumber cusordnumber notes transaction_description)) {
|
|
| 554 | 554 |
if ($form->{$column}) {
|
| 555 | 555 |
$where .= " AND a.$column ILIKE ?"; |
| 556 | 556 |
push(@values, $form->like($form->{$column}));
|
| ... | ... | |
| 603 | 603 |
my $sortdir = !defined $form->{sortdir} ? 'ASC' : $form->{sortdir} ? 'ASC' : 'DESC';
|
| 604 | 604 |
my $sortorder = join(', ', map { "$_ $sortdir" } @a);
|
| 605 | 605 |
|
| 606 |
if (grep({ $_ eq $form->{sort} } qw(id transdate duedate invnumber ordnumber name datepaid employee shippingpoint shipvia transaction_description))) {
|
|
| 606 |
if (grep({ $_ eq $form->{sort} } qw(id transdate duedate invnumber ordnumber cusordnumber name datepaid employee shippingpoint shipvia transaction_description))) {
|
|
| 607 | 607 |
$sortorder = $form->{sort} . " $sortdir";
|
| 608 | 608 |
} |
| 609 | 609 |
|
Auch abrufbar als: Unified diff
Berichte Verkaufsrechnungen: Bestellnummer des Kunden anzeigen/danach filtern