Revision e82db1a7
Von Niclas Zimmermann vor fast 12 Jahren hinzugefügt
| SL/AM.pm | ||
|---|---|---|
|
taxdescription,
|
||
|
round(rate * 100, 2) AS rate,
|
||
|
chart_id,
|
||
|
chart_categories,
|
||
|
(id IN (SELECT tax_id
|
||
|
FROM acc_trans)) AS tax_already_used
|
||
|
FROM tax
|
||
| ... | ... | |
|
|
||
|
$form->{rate} = $form->{rate} / 100;
|
||
|
|
||
|
my @values = ($form->{taxkey}, $form->{taxdescription}, $form->{rate}, $form->{chart_id}, $form->{chart_id} );
|
||
|
my $chart_categories = '';
|
||
|
$chart_categories .= 'A' if $form->{asset};
|
||
|
$chart_categories .= 'L' if $form->{liability};
|
||
|
$chart_categories .= 'Q' if $form->{equity};
|
||
|
$chart_categories .= 'I' if $form->{revenue};
|
||
|
$chart_categories .= 'E' if $form->{expense};
|
||
|
$chart_categories .= 'C' if $form->{costs};
|
||
|
|
||
|
my @values = ($form->{taxkey}, $form->{taxdescription}, $form->{rate}, $form->{chart_id}, $form->{chart_id}, $chart_categories);
|
||
|
if ($form->{id} ne "") {
|
||
|
$query = qq|UPDATE tax SET
|
||
|
taxkey = ?,
|
||
|
taxdescription = ?,
|
||
|
rate = ?,
|
||
|
chart_id = ?,
|
||
|
taxnumber = (SELECT accno FROM chart WHERE id= ? )
|
||
|
taxnumber = (SELECT accno FROM chart WHERE id= ? ),
|
||
|
chart_categories = ?
|
||
|
WHERE id = ?|;
|
||
|
push(@values, $form->{id});
|
||
|
|
||
| ... | ... | |
|
taxdescription,
|
||
|
rate,
|
||
|
chart_id,
|
||
|
taxnumber
|
||
|
taxnumber,
|
||
|
chart_categories
|
||
|
)
|
||
|
VALUES (?, ?, ?, ?, (SELECT accno FROM chart WHERE id = ?) )|;
|
||
|
VALUES (?, ?, ?, ?, (SELECT accno FROM chart WHERE id = ?), ? )|;
|
||
|
}
|
||
|
do_query($form, $dbh, $query, @values);
|
||
|
|
||
Auch abrufbar als: Unified diff
Filtert Steuern bei Dialogbuchungen
Bei Dialogbuchungen kam es in der Vergangenheit zu Verwechslungen
von Umsatz- und Vorsteuer. Für jedes Konto werden daher nun Steuern
nur noch angezeigt, wenn die Steuer so eingestellt ist, dass sie
für die Kontoart des ausgewählten Kontos angezeigt wird.
Implementiert #2249.