Revision c8d21015
Von Sven Schöling vor mehr als 17 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 1886 | 1886 |
} |
| 1887 | 1887 |
|
| 1888 | 1888 |
# now get the account numbers |
| 1889 |
$query = qq|
|
|
| 1890 |
SELECT
|
|
| 1891 |
c.accno, c.description, c.link, c.taxkey_id,
|
|
| 1892 |
tk.tax_id
|
|
| 1893 |
FROM chart c
|
|
| 1894 |
LEFT JOIN taxkeys tk ON (tk.chart_id = c.id)
|
|
| 1895 |
WHERE (c.link LIKE ?) AND (tk.chart_id = c.id) AND NOT (c.link LIKE '%_tax%')
|
|
| 1896 |
ORDER BY c.accno|; |
|
| 1889 |
$query = qq|SELECT c.accno, c.description, c.link, c.taxkey_id, tk.tax_id
|
|
| 1890 |
FROM chart c, taxkeys tk
|
|
| 1891 |
WHERE c.link LIKE ?
|
|
| 1892 |
AND ( tk.chart_id = c.id OR c.link LIKE '%_tax%')
|
|
| 1893 |
AND (NOT tk.chart_id = c.id OR NOT c.link LIKE '%_tax%')
|
|
| 1894 |
AND (tk.id = (SELECT id FROM taxkeys WHERE taxkeys.chart_id = c.id AND startdate <= $transdate ORDER BY startdate DESC LIMIT 1)
|
|
| 1895 |
OR c.link LIKE '%_tax%')
|
|
| 1896 |
ORDER BY c.accno|;
|
|
| 1897 | 1897 |
|
| 1898 | 1898 |
$sth = $dbh->prepare($query); |
| 1899 |
do_statement($self, $sth, $query, "%" . $module . "%");
|
|
| 1899 |
do_statement($self, $sth, $query, "%$module%");
|
|
| 1900 | 1900 |
|
| 1901 | 1901 |
$self->{accounts} = "";
|
| 1902 | 1902 |
while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
|
Auch abrufbar als: Unified diff
Geladene Buchungen zeigten nach r2145 keine Steuern mehr an.
Das Query zum Abfragen der Kontodaten war falsch verkuerzt worden.