Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 4c5ca4c0

Von Moritz Bunkus vor mehr als 16 Jahren hinzugefügt

  • ID 4c5ca4c0d455af2d7f7809a6f02f2d15d86f04a6
  • Vorgänger bbd8da97
  • Nachfolger 6683b7fb

Kosmetik; mehr Variablen umbenannt

Unterschiede anzeigen:

SL/DATEV.pm
324 324
              || $trans->[$j]->{'taxkey'} eq "1"
325 325
              || $trans->[$j]->{'taxkey'} eq "10"
326 326
              || $trans->[$j]->{'taxkey'} eq "11")) {
327
        my %new_trans = {};
328
        map({ $new_trans{$_} = $trans->[$notsplitindex]->{$_}; } keys(%{ $trans->[$notsplitindex] }));
327
        my %new_trans = ();
328
        map { $new_trans{$_} = $trans->[$notsplitindex]->{$_}; } keys %{ $trans->[$notsplitindex] };
329 329

  
330 330
        $absumsatz               += $trans->[$j]->{'amount'};
331 331
        $new_trans{'amount'}      = $trans->[$j]->{'amount'} * (-1);
......
338 338
      } elsif (($j != $notsplitindex) && ($trans->[$j]->{'chart_id'} eq "")) {
339 339
        $absumsatz += ($trans->[$j]->{'amount'} * (1 + $taxes{ $taxid_taxkeys{$trans->[$j]->{'taxkey'}} }));
340 340

  
341
        my %new_trans = {};
342
        map({ $new_trans{$_} = $trans->[$notsplitindex]->{$_}; } keys(%{ $trans->[$notsplitindex] }));
341
        my %new_trans = ();
342
        map { $new_trans{$_} = $trans->[$notsplitindex]->{$_}; } keys %{ $trans->[$notsplitindex] };
343 343

  
344
        $test                    = 1 + $taxes{  $taxid_taxkeys{$trans->[$j]->{'taxkey'}} };
345
        $new_trans{'amount'}     = $form->round_amount(($trans->[$j]->{'amount'} * $test * -1), 2);
346
        $new_trans{'umsatz'}     = abs($form->round_amount(($trans->[$j]->{'amount'} * $test), 2)) * $ml;
347
        $trans->[$j]->{'umsatz'} = abs($form->round_amount(($trans->[$j]->{'amount'} * $test), 2)) * $ml;
344
        my $tax_rate             = 1 + $taxes{ $taxid_taxkeys{$trans->[$j]->{'taxkey'}} };
345
        $new_trans{'amount'}     = $form->round_amount(($trans->[$j]->{'amount'} * $tax_rate * -1), 2);
346
        $new_trans{'umsatz'}     = abs($form->round_amount(($trans->[$j]->{'amount'} * $tax_rate), 2)) * $ml;
347
        $trans->[$j]->{'umsatz'} = abs($form->round_amount(($trans->[$j]->{'amount'} * $tax_rate), 2)) * $ml;
348 348

  
349 349
        push @splits, [ \%new_trans, $trans->[$j] ];
350 350
        push @{ $form->{DATEV} }, $splits[-1];

Auch abrufbar als: Unified diff