Revision 6c12abf7
Von Stephan Köhler vor mehr als 18 Jahren hinzugefügt
| SL/DATEV.pm | ||
|---|---|---|
| 314 | 314 |
$blubb{'amount'} =
|
| 315 | 315 |
$form->round_amount(($i->[$j]->{'amount'} * $test * -1), 2);
|
| 316 | 316 |
|
| 317 |
#print(STDERR $test, " Taxrate\n\n"); |
|
| 318 | 317 |
$blubb{'umsatz'} =
|
| 319 | 318 |
abs($form->round_amount(($i->[$j]->{'amount'} * $test), 2)) * $ml;
|
| 320 | 319 |
|
| 321 | 320 |
$i->[$j]->{'umsatz'} =
|
| 322 | 321 |
abs($form->round_amount(($i->[$j]->{'amount'} * $test), 2)) * $ml;
|
| 323 | 322 |
|
| 324 |
#print(STDERR $i->[$j]->{'umsatz'}, " Steuer Umsatz\n");
|
|
| 325 |
#print(STDERR $i->[$j]->{'amount'}, " Steuer Betrag\n");
|
|
| 326 |
#print(STDERR $blubb{'umsatz'}, " Umsatz NOTSPLIT\n");
|
|
| 327 | 323 |
push @{ $splits[$g] }, \%blubb;
|
| 328 | 324 |
push @{ $splits[$g] }, $i->[$j];
|
| 329 | 325 |
push @{ $form->{DATEV} }, \@{ $splits[$g] };
|
| ... | ... | |
| 333 | 329 |
} |
| 334 | 330 |
} |
| 335 | 331 |
if (abs($absumsatz) > 0.01) {
|
| 336 |
print(STDERR $absumsatz, "ABSAUMSATZ\n"); |
|
| 337 | 332 |
$form->error("Datev-Export fehlgeschlagen!");
|
| 338 | 333 |
} |
| 339 | 334 |
} else {
|
Auch abrufbar als: Unified diff
STDERR entfernt, Packet List in Lieferschein umbenannt, Vorlagen geändert, locales