Revision bf3b6966
Von Moritz Bunkus vor fast 15 Jahren hinzugefügt
| SL/DATEV.pm | ||
|---|---|---|
| 445 | 445 |
|
| 446 | 446 |
my $ml = ($trans->[0]->{'umsatz'} > 0) ? 1 : -1;
|
| 447 | 447 |
my $rounding_error = 0; |
| 448 |
my @taxed; |
|
| 448 | 449 |
|
| 449 | 450 |
for my $j (0 .. (scalar(@{$trans}) - 1)) {
|
| 450 | 451 |
if ( ($j != $notsplitindex) |
| ... | ... | |
| 491 | 492 |
} |
| 492 | 493 |
|
| 493 | 494 |
push @{ $form->{DATEV} }, [ \%new_trans, $trans->[$j] ];
|
| 495 |
push @taxed, $form->{DATEV}->[-1];
|
|
| 494 | 496 |
} |
| 495 | 497 |
} |
| 496 | 498 |
|
| 497 | 499 |
my $idx = 0; |
| 498 | 500 |
my $correction = 0; |
| 499 |
our @taxed; # most likely defunct |
|
| 500 |
while (abs($absumsatz) >= 0.01) {
|
|
| 501 |
while ((abs($absumsatz) >= 0.01) && (abs($absumsatz) < 1.00)) {
|
|
| 501 | 502 |
if ($idx >= scalar @taxed) {
|
| 502 | 503 |
last if (!$correction); |
| 503 | 504 |
|
Auch abrufbar als: Unified diff
DATEV-Export: Abweichungen des Bruttobetrages durch Aufteilen des Fehlers auf einzelne Positionen aktiviert