Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision bb49dee7

Von Moritz Bunkus vor mehr als 16 Jahren hinzugefügt

  • ID bb49dee7e5651595e14d23e2aaa51190207e50e6
  • Vorgänger 91836534
  • Nachfolger 032e5fcd

Kosmetik

Unterschiede anzeigen:

SL/DATEV.pm
295 295
                || $i->[$j]->{'taxkey'} eq "0"
296 296
                || $i->[$j]->{'taxkey'} eq "1"
297 297
                || $i->[$j]->{'taxkey'} eq "10"
298
                || $i->[$j]->{'taxkey'} eq "11")
299
          ) {
298
                || $i->[$j]->{'taxkey'} eq "11")) {
300 299
          my %blubb = {};
301
          map({ $blubb{$_} = $i->[$notsplitindex]->{$_}; }
302
              keys(%{ $i->[$notsplitindex] }));
303
          $absumsatz += $i->[$j]->{'amount'};
304
          $blubb{'amount'}     = $i->[$j]->{'amount'} * (-1);
305
          $blubb{'umsatz'}     = abs($i->[$j]->{'amount'}) * $ml;
306
          $i->[$j]->{'umsatz'} = abs($i->[$j]->{'amount'}) * $ml;
300
          map({ $blubb{$_} = $i->[$notsplitindex]->{$_}; } keys(%{ $i->[$notsplitindex] }));
301

  
302
          $absumsatz           += $i->[$j]->{'amount'};
303
          $blubb{'amount'}      = $i->[$j]->{'amount'} * (-1);
304
          $blubb{'umsatz'}      = abs($i->[$j]->{'amount'}) * $ml;
305
          $i->[$j]->{'umsatz'}  = abs($i->[$j]->{'amount'}) * $ml;
306

  
307 307
          push @{ $splits[$g] }, \%blubb;    #$i->[$notsplitindex];
308 308
          push @{ $splits[$g] }, $i->[$j];
309 309
          push @{ $form->{DATEV} }, \@{ $splits[$g] };
310

  
310 311
          $g++;
311
          } elsif (($j != $notsplitindex) && ($i->[$j]->{'chart_id'} eq "")) {
312
          $absumsatz +=
313
            ($i->[$j]->{'amount'} * (1 + $taxes{ $taxid_taxkeys{$i->[$j]->{'taxkey'}} }));
314
          my %blubb = {};
315
          map({ $blubb{$_} = $i->[$notsplitindex]->{$_}; }
316
              keys(%{ $i->[$notsplitindex] }));
317
          $test = 1 + $taxes{  $taxid_taxkeys{$i->[$j]->{'taxkey'}} };
318
          $blubb{'amount'} =
319
            $form->round_amount(($i->[$j]->{'amount'} * $test * -1), 2);
320 312

  
321
          $blubb{'umsatz'} =
322
            abs($form->round_amount(($i->[$j]->{'amount'} * $test), 2)) * $ml;
313
        } elsif (($j != $notsplitindex) && ($i->[$j]->{'chart_id'} eq "")) {
314
          $absumsatz += ($i->[$j]->{'amount'} * (1 + $taxes{ $taxid_taxkeys{$i->[$j]->{'taxkey'}} }));
323 315

  
324
          $i->[$j]->{'umsatz'} =
325
            abs($form->round_amount(($i->[$j]->{'amount'} * $test), 2)) * $ml;
316
          my %blubb   = {};
317
          map({ $blubb{$_} = $i->[$notsplitindex]->{$_}; } keys(%{ $i->[$notsplitindex] }));
318

  
319
          $test                = 1 + $taxes{  $taxid_taxkeys{$i->[$j]->{'taxkey'}} };
320
          $blubb{'amount'}     = $form->round_amount(($i->[$j]->{'amount'} * $test * -1), 2);
321
          $blubb{'umsatz'}     = abs($form->round_amount(($i->[$j]->{'amount'} * $test), 2)) * $ml;
322
          $i->[$j]->{'umsatz'} = abs($form->round_amount(($i->[$j]->{'amount'} * $test), 2)) * $ml;
326 323

  
327 324
          push @{ $splits[$g] }, \%blubb;
328 325
          push @{ $splits[$g] }, $i->[$j];
329 326
          push @{ $form->{DATEV} }, \@{ $splits[$g] };
330 327
          $g++;
331
          } else {
328

  
329
        } else {
332 330
          next;
333 331
        }
334 332
      }

Auch abrufbar als: Unified diff