Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 4c5ca4c0

Von Moritz Bunkus vor etwa 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