Revision a3501388
Von Moritz Bunkus vor fast 15 Jahren hinzugefügt
| SL/DATEV.pm | ||
|---|---|---|
| 330 | 330 |
my ($notsplitindex); |
| 331 | 331 |
my @errors = (); |
| 332 | 332 |
|
| 333 |
$form->{net_gross_differences} = [];
|
|
| 334 |
$form->{sum_net_gross_differences} = 0;
|
|
| 335 |
|
|
| 333 | 336 |
$fromto =~ s/transdate/ac\.transdate/g; |
| 334 | 337 |
|
| 335 | 338 |
my $taxkeys = Taxkeys->new(); |
| ... | ... | |
| 535 | 538 |
$idx++; |
| 536 | 539 |
} |
| 537 | 540 |
|
| 538 |
if (abs($absumsatz) >= 0.01) {
|
|
| 539 |
push @errors, "Datev-Export fehlgeschlagen! Bei Transaktion $trans->[0]->{trans_id} ($absumsatz, Rundungsfehler $rounding_error)\n";
|
|
| 541 |
$absumsatz = $form->round_amount($absumsatz, 2); |
|
| 542 |
if (abs($absumsatz) >= (0.01 * (1 + scalar @taxed))) {
|
|
| 543 |
push @errors, "Datev-Export fehlgeschlagen! Bei Transaktion $trans->[0]->{trans_id} ($absumsatz)\n";
|
|
| 544 |
|
|
| 545 |
} elsif (abs($absumsatz) >= 0.01) {
|
|
| 546 |
push @{ $form->{net_gross_differences} }, $absumsatz;
|
|
| 547 |
$form->{sum_net_gross_differences} += $absumsatz;
|
|
| 540 | 548 |
} |
| 541 | 549 |
} |
| 542 | 550 |
|
Auch abrufbar als: Unified diff
DATEV-Export: Brutto/Brutto-Abweichungen summieren und Erklärung anzeigen, falls existent