Revision 59f5c8cf
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| SL/GL.pm | ||
|---|---|---|
| 622 | 622 |
FROM acc_trans a |
| 623 | 623 |
JOIN chart c ON (c.id = a.chart_id) |
| 624 | 624 |
LEFT JOIN project p ON (p.id = a.project_id) |
| 625 |
LEFT JOIN tax t ON (t.id=(SELECT tk.tax_id from taxkeys tk WHERE (tk.taxkey_id=a.taxkey) AND ((CASE WHEN a.chart_id IN (SELECT chart_id FROM taxkeys WHERE taxkey_id=a.taxkey) THEN tk.chart_id=a.chart_id ELSE 1=1 END) OR (c.link='%tax%')) AND startdate <=a.transdate ORDER BY startdate DESC LIMIT 1))
|
|
| 625 |
LEFT JOIN tax t ON (t.id=(SELECT tk.tax_id from taxkeys tk WHERE (tk.taxkey_id=a.taxkey) AND ((CASE WHEN a.chart_id IN (SELECT chart_id FROM taxkeys WHERE taxkey_id=a.taxkey) THEN tk.chart_id=a.chart_id ELSE 1=1 END) OR (c.link LIKE '%tax%')) AND startdate <=a.transdate ORDER BY startdate DESC LIMIT 1))
|
|
| 626 | 626 |
WHERE a.trans_id = $form->{id}
|
| 627 | 627 |
AND a.fx_transaction = '0' |
| 628 | 628 |
ORDER BY a.oid,a.transdate|; |
| 629 | 629 |
|
| 630 |
|
|
| 631 | 630 |
$sth = $dbh->prepare($query); |
| 632 | 631 |
$sth->execute || $form->dberror($query); |
| 633 | 632 |
|
| 633 |
$form->{GL} = [];
|
|
| 634 | 634 |
while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
|
| 635 | 635 |
push @{ $form->{GL} }, $ref;
|
| 636 | 636 |
} |
| ... | ... | |
| 639 | 639 |
$query = qq| SELECT * FROM tax t order by t.taxkey|; |
| 640 | 640 |
$sth = $dbh->prepare($query); |
| 641 | 641 |
$sth->execute || $form->dberror($query); |
| 642 |
$form->{TAX} = ();
|
|
| 642 |
$form->{TAX} = [];
|
|
| 643 | 643 |
while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
|
| 644 | 644 |
push @{ $form->{TAX} }, $ref;
|
| 645 | 645 |
} |
Auch abrufbar als: Unified diff
Substringvergleich mit LIKE. Richtige Arrayinitialisierung.