Revision f8dc549f
Von Udo Spallek vor etwa 17 Jahren hinzugefügt
| SL/AM.pm | ||
|---|---|---|
| 2186 | 2186 |
|
| 2187 | 2187 |
$form->{rate} = $form->{rate} / 100;
|
| 2188 | 2188 |
|
| 2189 |
my @values = ($form->{taxkey}, $form->{taxdescription}, $form->{rate}, $form->{chart_id} );
|
|
| 2189 |
my @values = ($form->{taxkey}, $form->{taxdescription}, $form->{rate}, $form->{chart_id}, $form->{chart_id} );
|
|
| 2190 | 2190 |
if ($form->{id}) {
|
| 2191 |
$query = qq|UPDATE _tax SET
|
|
| 2191 |
$query = qq|UPDATE tax SET |
|
| 2192 | 2192 |
taxkey = ?, |
| 2193 | 2193 |
taxdescription = ?, |
| 2194 | 2194 |
rate = ?, |
| 2195 |
chart_id = ? |
|
| 2195 |
chart_id = ?, |
|
| 2196 |
taxnumber = (SELECT accno FROM chart WHERE id= ? ) |
|
| 2196 | 2197 |
WHERE id = ?|; |
| 2197 | 2198 |
push(@values, $form->{id});
|
| 2198 | 2199 |
} |
| 2199 | 2200 |
else {
|
| 2200 | 2201 |
#ok |
| 2201 |
$query = qq|INSERT INTO _tax (
|
|
| 2202 |
$query = qq|INSERT INTO tax ( |
|
| 2202 | 2203 |
taxkey, |
| 2203 | 2204 |
taxdescription, |
| 2204 | 2205 |
rate, |
| 2205 |
chart_id |
|
| 2206 |
chart_id, |
|
| 2207 |
taxnumber |
|
| 2206 | 2208 |
) |
| 2207 |
VALUES (?, ?, ?, ? )|; |
|
| 2209 |
VALUES (?, ?, ?, ?, (SELECT accno FROM chart WHERE id = ?) )|;
|
|
| 2208 | 2210 |
} |
| 2209 | 2211 |
do_query($form, $dbh, $query, @values); |
| 2210 | 2212 |
|
| ... | ... | |
| 2221 | 2223 |
# connect to database |
| 2222 | 2224 |
my $dbh = $form->dbconnect($myconfig); |
| 2223 | 2225 |
|
| 2224 |
$query = qq|DELETE FROM _tax
|
|
| 2226 |
$query = qq|DELETE FROM tax |
|
| 2225 | 2227 |
WHERE id = ?|; |
| 2226 | 2228 |
do_query($form, $dbh, $query, $form->{id});
|
| 2227 | 2229 |
|
Auch abrufbar als: Unified diff
Korrekturen zu r2737: Speichern von Steuern funktionierte nicht, taxnumber mitspeichern, Layout Titel