Revision bb49dee7
Von Moritz Bunkus vor etwa 16 Jahren hinzugefügt
| 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
Kosmetik