Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 39da7f8c

Von Moritz Bunkus vor fast 16 Jahren hinzugefügt

  • ID 39da7f8cf4f0db564e9e6e9d8f5bd8aedcc5aaea
  • Vorgänger 3b1eaa1a
  • Nachfolger b7c3c5b7

Beim Buchen von Kreditoren- und Debitorenbuchungen immer die richtigen Steuerschlüssel in acc_trans eintragen. Vorher konnte es den Fall geben, dass bei mehreren Einträgen für ein Konto in einer Kreditoren- oder Debitorenbuchung mit unterschiedlichen Steuerschlüssel zwar die richtigen Steuersätze berechnet aber die falschen Steuerschlüssel gespeichert wurden.

Unterschiede anzeigen:

SL/AP.pm
96 96
      qq|ORDER BY c.accno|;
97 97
    $sth = $dbh->prepare($query);
98 98
    $sth->execute($form->{"tax_id_$i"}) || $form->dberror($query . " (" . $form->{"tax_id_$i"} . ")");
99
    ($form->{AP_amounts}{"tax_$i"}, $form->{"taxkey_$i"}, $form->{"taxrate_$i"}) =
100
      $sth->fetchrow_array;
101
    $form->{AP_amounts}{"tax_$i"}{taxkey}    = $form->{"taxkey_$i"};
102
    $form->{AP_amounts}{"amount_$i"}{taxkey} = $form->{"taxkey_$i"};
99
    ($form->{AP_amounts}{"tax_$i"}, $form->{"taxkey_$i"}, $form->{"taxrate_$i"}) = $sth->fetchrow_array();
103 100

  
104 101
    $sth->finish;
105 102
    if ($form->{taxincluded} *= 1) {
......
212 209
      if ($form->{"amount_$i"} != 0) {
213 210
        my $project_id;
214 211
        $project_id = conv_i($form->{"project_id_$i"});
215
        $taxkey = $form->{AP_amounts}{"amount_$i"}{taxkey};
216 212

  
217 213
        # insert detail records in acc_trans
218 214
        $query =
......
222 218
          qq|  ?, ?, ?, ?)|;
223 219
        @values = ($form->{id}, $form->{AP_amounts}{"amount_$i"},
224 220
                   $form->{"amount_$i"}, conv_date($form->{transdate}),
225
                   $project_id, $taxkey);
221
                   $project_id, $form->{"taxkey_$i"});
226 222
        do_query($form, $dbh, $query, @values);
227 223

  
228 224
        if ($form->{"tax_$i"} != 0) {
......
234 230
            qq|  ?, ?, ?, ?)|;
235 231
          @values = ($form->{id}, $form->{AP_amounts}{"tax_$i"},
236 232
                     $form->{"tax_$i"}, conv_date($form->{transdate}),
237
                     $project_id, $taxkey);
233
                     $project_id, $form->{"taxkey_$i"});
238 234
          do_query($form, $dbh, $query, @values);
239 235
        }
240 236

  

Auch abrufbar als: Unified diff