Revision bbd8da97
Von Moritz Bunkus vor etwa 16 Jahren hinzugefügt
| SL/DATEV.pm | ||
|---|---|---|
| 275 | 275 |
|
| 276 | 276 |
my $sth = prepare_execute_query($form, $dbh, $query); |
| 277 | 277 |
|
| 278 |
my $g = 0; |
|
| 279 |
my $counter = 0; |
|
| 280 | 278 |
my @splits; |
| 279 |
my $counter = 0; |
|
| 281 | 280 |
while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
|
| 282 | 281 |
$counter++; |
| 283 | 282 |
if (($counter % 500) == 0) {
|
| ... | ... | |
| 315 | 314 |
$taxid_taxkeys{$trans->[$j]->{'taxtaxkey'}} = $trans->[$j]->{'taxid'};
|
| 316 | 315 |
} |
| 317 | 316 |
} |
| 318 |
$ml = ($trans->[0]->{'umsatz'} > 0) ? 1 : -1;
|
|
| 317 |
|
|
| 318 |
my $ml = ($trans->[0]->{'umsatz'} > 0) ? 1 : -1;
|
|
| 319 | 319 |
for my $j (0 .. (scalar(@{$trans}) - 1)) {
|
| 320 | 320 |
if ( ($j != $notsplitindex) |
| 321 | 321 |
&& ($trans->[$j]->{'chart_id'} eq "")
|
| ... | ... | |
| 324 | 324 |
|| $trans->[$j]->{'taxkey'} eq "1"
|
| 325 | 325 |
|| $trans->[$j]->{'taxkey'} eq "10"
|
| 326 | 326 |
|| $trans->[$j]->{'taxkey'} eq "11")) {
|
| 327 |
my %blubb = {};
|
|
| 328 |
map({ $blubb{$_} = $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 |
$blubb{'amount'} = $trans->[$j]->{'amount'} * (-1);
|
|
| 332 |
$blubb{'umsatz'} = abs($trans->[$j]->{'amount'}) * $ml;
|
|
| 331 |
$new_trans{'amount'} = $trans->[$j]->{'amount'} * (-1);
|
|
| 332 |
$new_trans{'umsatz'} = abs($trans->[$j]->{'amount'}) * $ml;
|
|
| 333 | 333 |
$trans->[$j]->{'umsatz'} = abs($trans->[$j]->{'amount'}) * $ml;
|
| 334 | 334 |
|
| 335 |
push @{ $splits[$g] }, \%blubb; #$trans->[$notsplitindex];
|
|
| 336 |
push @{ $splits[$g] }, $trans->[$j];
|
|
| 337 |
push @{ $form->{DATEV} }, \@{ $splits[$g] };
|
|
| 338 |
|
|
| 339 |
$g++; |
|
| 335 |
push @splits, [ \%new_trans, $trans->[$j] ]; |
|
| 336 |
push @{ $form->{DATEV} }, $splits[-1];
|
|
| 340 | 337 |
|
| 341 | 338 |
} elsif (($j != $notsplitindex) && ($trans->[$j]->{'chart_id'} eq "")) {
|
| 342 | 339 |
$absumsatz += ($trans->[$j]->{'amount'} * (1 + $taxes{ $taxid_taxkeys{$trans->[$j]->{'taxkey'}} }));
|
| 343 | 340 |
|
| 344 |
my %blubb = {};
|
|
| 345 |
map({ $blubb{$_} = $trans->[$notsplitindex]->{$_}; } keys(%{ $trans->[$notsplitindex] }));
|
|
| 341 |
my %new_trans = {};
|
|
| 342 |
map({ $new_trans{$_} = $trans->[$notsplitindex]->{$_}; } keys(%{ $trans->[$notsplitindex] }));
|
|
| 346 | 343 |
|
| 347 | 344 |
$test = 1 + $taxes{ $taxid_taxkeys{$trans->[$j]->{'taxkey'}} };
|
| 348 |
$blubb{'amount'} = $form->round_amount(($trans->[$j]->{'amount'} * $test * -1), 2);
|
|
| 349 |
$blubb{'umsatz'} = abs($form->round_amount(($trans->[$j]->{'amount'} * $test), 2)) * $ml;
|
|
| 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;
|
|
| 350 | 347 |
$trans->[$j]->{'umsatz'} = abs($form->round_amount(($trans->[$j]->{'amount'} * $test), 2)) * $ml;
|
| 351 | 348 |
|
| 352 |
push @{ $splits[$g] }, \%blubb;
|
|
| 353 |
push @{ $splits[$g] }, $trans->[$j];
|
|
| 354 |
push @{ $form->{DATEV} }, \@{ $splits[$g] };
|
|
| 355 |
$g++; |
|
| 349 |
push @splits, [ \%new_trans, $trans->[$j] ]; |
|
| 350 |
push @{ $form->{DATEV} }, $splits[-1];
|
|
| 356 | 351 |
} |
| 357 | 352 |
} |
| 358 | 353 |
|
Auch abrufbar als: Unified diff
Kosmetik; Code vereinfacht