Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision d05861af

Von Philip Reetz vor fast 18 Jahren hinzugefügt

  • ID d05861aff6d05095c5e1711c0a7db6887f489f2e
  • Vorgänger 1f2c9572
  • Nachfolger 9e117fbd

manuelle Bearbeitung der Steuersaetze entfernt, vorerst

Unterschiede anzeigen:

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>&nbsp;</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>&nbsp;</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