Revision d05861af
Von Philip Reetz vor fast 18 Jahren hinzugefügt
SL/AM.pm | ||
---|---|---|
1497 | 1497 |
WHERE login = '$form->{login}'|; |
1498 | 1498 |
$dbh->do($query) || $form->dberror($query); |
1499 | 1499 |
|
1500 |
foreach my $item (split(/ /, $form->{taxaccounts})) { |
|
1501 |
$query = qq|UPDATE tax |
|
1502 |
SET rate = | . ($form->{$item} / 100) . qq|, |
|
1503 |
taxnumber = '$form->{"taxnumber_$item"}' |
|
1504 |
WHERE chart_id = $item|; |
|
1505 |
$dbh->do($query) || $form->dberror($query); |
|
1506 |
} |
|
1500 |
# foreach my $item (split(/ /, $form->{taxaccounts})) {
|
|
1501 |
# $query = qq|UPDATE tax
|
|
1502 |
# SET rate = | . ($form->{$item} / 100) . qq|,
|
|
1503 |
# taxnumber = '$form->{"taxnumber_$item"}'
|
|
1504 |
# WHERE chart_id = $item|;
|
|
1505 |
# $dbh->do($query) || $form->dberror($query);
|
|
1506 |
# }
|
|
1507 | 1507 |
|
1508 | 1508 |
my $rc = $dbh->commit; |
1509 | 1509 |
$dbh->disconnect; |
bin/mozilla/am.pl | ||
---|---|---|
3076 | 3076 |
</tr> |
3077 | 3077 |
</table> |
3078 | 3078 |
</td> |
3079 |
</tr> |
|
3080 |
<tr class=listheading> |
|
3081 |
<th colspan=2>| . $locale->text('Tax Accounts') . qq|</th> |
|
3082 |
</tr> |
|
3083 |
<tr> |
|
3084 |
<td colspan=2> |
|
3085 |
<table> |
|
3086 |
<tr> |
|
3087 |
<th> </th> |
|
3088 |
<th>| . $locale->text('Rate') . qq| (%)</th> |
|
3089 |
<th>| . $locale->text('Number') . qq|</th> |
|
3090 |
</tr> |
|
3091 |
|; |
|
3092 |
|
|
3093 |
foreach $accno (sort keys %{ $form->{taxrates} }) { |
|
3094 |
print qq| |
|
3095 |
<tr> |
|
3096 |
<th align=right>$form->{taxrates}{$accno}{description}</th> |
|
3097 |
<td><input name=$form->{taxrates}{$accno}{id} size=6 value=$form->{taxrates}{$accno}{rate}></td> |
|
3098 |
<td><input name="taxnumber_$form->{taxrates}{$accno}{id}" value="$form->{taxrates}{$accno}{taxnumber}"></td> |
|
3099 |
</tr> |
|
3100 |
|; |
|
3101 |
$form->{taxaccounts} .= "$form->{taxrates}{$accno}{id} "; |
|
3102 |
} |
|
3103 |
|
|
3104 |
chop $form->{taxaccounts}; |
|
3105 |
|
|
3106 |
print qq| |
|
3107 |
<input name=taxaccounts type=hidden value="$form->{taxaccounts}"> |
|
3108 |
|
|
3109 |
</table> |
|
3110 |
</td> |
|
3111 |
</tr> |
|
3112 |
</table> |
|
3079 |
</tr>|;
|
|
3080 |
# <tr class=listheading>
|
|
3081 |
# <th colspan=2>| . $locale->text('Tax Accounts') . qq|</th>
|
|
3082 |
# </tr>
|
|
3083 |
# <tr>
|
|
3084 |
# <td colspan=2>
|
|
3085 |
# <table>
|
|
3086 |
# <tr>
|
|
3087 |
# <th> </th>
|
|
3088 |
# <th>| . $locale->text('Rate') . qq| (%)</th>
|
|
3089 |
# <th>| . $locale->text('Number') . qq|</th>
|
|
3090 |
# </tr>
|
|
3091 |
# |;
|
|
3092 |
# |
|
3093 |
# foreach $accno (sort keys %{ $form->{taxrates} }) {
|
|
3094 |
# print qq|
|
|
3095 |
# <tr>
|
|
3096 |
# <th align=right>$form->{taxrates}{$accno}{description}</th>
|
|
3097 |
# <td><input name=$form->{taxrates}{$accno}{id} size=6 value=$form->{taxrates}{$accno}{rate}></td>
|
|
3098 |
# <td><input name="taxnumber_$form->{taxrates}{$accno}{id}" value="$form->{taxrates}{$accno}{taxnumber}"></td>
|
|
3099 |
# </tr>
|
|
3100 |
# |;
|
|
3101 |
# $form->{taxaccounts} .= "$form->{taxrates}{$accno}{id} ";
|
|
3102 |
# }
|
|
3103 |
# |
|
3104 |
# chop $form->{taxaccounts};
|
|
3105 |
# |
|
3106 |
# print qq|
|
|
3107 |
# <input name=taxaccounts type=hidden value="$form->{taxaccounts}">
|
|
3108 |
# |
|
3109 |
# </table>
|
|
3110 |
# </td>
|
|
3111 |
# </tr>
|
|
3112 |
print qq| </table>
|
|
3113 | 3113 |
</td> |
3114 | 3114 |
</tr> |
3115 | 3115 |
<tr> |
Auch abrufbar als: Unified diff
manuelle Bearbeitung der Steuersaetze entfernt, vorerst