Revision 34ff9415
Von Bernd Bleßmann vor mehr als 2 Jahren hinzugefügt
| SL/OE.pm | ||
|---|---|---|
| 493 | 493 |
sub transactions_for_todo_list {
|
| 494 | 494 |
$main::lxdebug->enter_sub(); |
| 495 | 495 |
|
| 496 |
my $self = shift; |
|
| 497 |
my %params = @_; |
|
| 496 |
my $self = shift;
|
|
| 497 |
my %params = @_;
|
|
| 498 | 498 |
|
| 499 |
my $myconfig = \%main::myconfig; |
|
| 500 |
my $form = $main::form; |
|
| 499 |
my $myconfig = \%main::myconfig;
|
|
| 500 |
my $form = $main::form;
|
|
| 501 | 501 |
|
| 502 |
my $dbh = $params{dbh} || $form->get_standard_dbh($myconfig);
|
|
| 502 |
my $dbh = $params{dbh} || $form->get_standard_dbh($myconfig);
|
|
| 503 | 503 |
|
| 504 |
my $query = qq|SELECT id FROM employee WHERE login = ?|; |
|
| 505 |
my ($e_id) = selectrow_query($form, $dbh, $query, $::myconfig{login});
|
|
| 504 |
my $query = qq|SELECT id FROM employee WHERE login = ?|;
|
|
| 505 |
my ($e_id) = selectrow_query($form, $dbh, $query, $::myconfig{login});
|
|
| 506 | 506 |
|
| 507 | 507 |
my $sales_purchase_filter = 'AND (1 = 0'; |
| 508 | 508 |
$sales_purchase_filter .= $params{sales} ? qq| OR customer_id IS NOT NULL| : '';
|
| 509 | 509 |
$sales_purchase_filter .= $params{purchase} ? qq| OR vendor_id IS NOT NULL| : '';
|
| 510 | 510 |
$sales_purchase_filter .= ')'; |
| 511 | 511 |
|
| 512 |
$query = |
|
| 512 |
$query =
|
|
| 513 | 513 |
qq|SELECT oe.id, oe.transdate, oe.reqdate, oe.quonumber, oe.transaction_description, oe.amount, |
| 514 | 514 |
CASE WHEN (COALESCE(oe.customer_id, 0) = 0) THEN 'vendor' ELSE 'customer' END AS vc, |
| 515 | 515 |
c.name AS customer, |
Auch abrufbar als: Unified diff
Kosmetik: Einrückung