Revision 25517b3d
Von Bernd Bleßmann vor mehr als 5 Jahren hinzugefügt
| SL/AP.pm | ||
|---|---|---|
| 454 | 454 |
qq| v.vendornumber, v.country, v.ustid, | . |
| 455 | 455 |
qq| tz.description AS taxzone, | . |
| 456 | 456 |
qq| pt.description AS payment_terms, | . |
| 457 |
qq| department.description AS department, | . |
|
| 457 | 458 |
qq{ ( SELECT ch.accno || ' -- ' || ch.description
|
| 458 | 459 |
FROM acc_trans at |
| 459 | 460 |
LEFT JOIN chart ch ON ch.id = at.chart_id |
| ... | ... | |
| 467 | 468 |
qq|LEFT JOIN employee e ON (a.employee_id = e.id) | . |
| 468 | 469 |
qq|LEFT JOIN project pr ON (a.globalproject_id = pr.id) | . |
| 469 | 470 |
qq|LEFT JOIN tax_zones tz ON (tz.id = a.taxzone_id)| . |
| 470 |
qq|LEFT JOIN payment_terms pt ON (pt.id = a.payment_id)|; |
|
| 471 |
qq|LEFT JOIN payment_terms pt ON (pt.id = a.payment_id)| . |
|
| 472 |
qq|LEFT JOIN department ON (department.id = a.department_id)|; |
|
| 471 | 473 |
|
| 472 | 474 |
my $where = ''; |
| 473 | 475 |
|
| ... | ... | |
| 590 | 592 |
my $sortdir = !defined $form->{sortdir} ? 'ASC' : $form->{sortdir} ? 'ASC' : 'DESC';
|
| 591 | 593 |
my $sortorder = join(', ', map { "$_ $sortdir" } @a);
|
| 592 | 594 |
|
| 593 |
if (grep({ $_ eq $form->{sort} } qw(transdate id invnumber ordnumber name netamount tax amount paid datepaid due duedate notes employee transaction_description direct_debit))) {
|
|
| 595 |
if (grep({ $_ eq $form->{sort} } qw(transdate id invnumber ordnumber name netamount tax amount paid datepaid due duedate notes employee transaction_description direct_debit department))) {
|
|
| 594 | 596 |
$sortorder = $form->{sort} . " $sortdir";
|
| 595 | 597 |
} |
| 596 | 598 |
|
Auch abrufbar als: Unified diff
Bericht EK-Rg/Kreditorenbuchungen: Abteilungen anzeigen können