Revision 7e0ea1c2
Von Udo Spallek vor fast 18 Jahren hinzugefügt
| SL/AM.pm | ||
|---|---|---|
|
t.taxkey,
|
||
|
t.taxdescription,
|
||
|
round(t.rate * 100, 2) AS rate,
|
||
|
c.accno AS taxnumber,
|
||
|
c.description AS account_description
|
||
|
(SELECT accno FROM chart WHERE id = chart_id) AS taxnumber,
|
||
|
(SELECT description FROM chart WHERE id = chart_id) AS account_description
|
||
|
FROM tax t
|
||
|
JOIN chart c on (chart_id = c.id)
|
||
|
ORDER BY taxkey|;
|
||
|
|
||
|
$sth = $dbh->prepare($query);
|
||
| ... | ... | |
|
|
||
|
# see if it is used by a taxkey
|
||
|
$query = qq|SELECT count(*) FROM taxkeys
|
||
|
WHERE tax_id = ?|;
|
||
|
WHERE tax_id = ? AND chart_id >0|;
|
||
|
|
||
|
($form->{orphaned}) = selectrow_query($form, $dbh, $query, $form->{id});
|
||
|
|
||
| ... | ... | |
|
if (!$form->{orphaned} ) {
|
||
|
$query = qq|SELECT DISTINCT c.id, c.accno
|
||
|
FROM taxkeys tk
|
||
|
LEFT JOIN tax t ON (t.id = tk.tax_id)
|
||
|
LEFT JOIN chart c ON (c.id = tk.chart_id)
|
||
|
JOIN tax t ON (t.id = tk.tax_id)
|
||
|
JOIN chart c ON (c.id = tk.chart_id)
|
||
|
WHERE tk.tax_id = ?|;
|
||
|
|
||
|
$sth = $dbh->prepare($query);
|
||
| ... | ... | |
|
$form->{rate} = $form->{rate} / 100;
|
||
|
|
||
|
my @values = ($form->{taxkey}, $form->{taxdescription}, $form->{rate}, $form->{chart_id}, $form->{chart_id} );
|
||
|
if ($form->{id}) {
|
||
|
if ($form->{id} ne "") {
|
||
|
$query = qq|UPDATE tax SET
|
||
|
taxkey = ?,
|
||
|
taxdescription = ?,
|
||
Auch abrufbar als: Unified diff
Diverse Bugs im Zusammenhang mit Steuerautomatiken, mit chart_id=0 oder mit rate=0.
Beides sollte jedoch moeglich sein fuer Konten wie 'steuerfrei'.