Revision 0e68056c
Von Kivitendo Admin vor etwa 10 Jahren hinzugefügt
| bin/mozilla/ap.pl | ||
|---|---|---|
| 483 | 483 |
my $count = 0; |
| 484 | 484 |
my (@a, $j, $totaltax); |
| 485 | 485 |
for my $i (1 .. $form->{rowcount}) {
|
| 486 |
$form->{"amount_$i"} =
|
|
| 487 |
$form->parse_amount(\%myconfig, $form->{"amount_$i"});
|
|
| 488 |
$form->{"tax_$i"} = $form->parse_amount(\%myconfig, $form->{"tax_$i"});
|
|
| 486 |
$form->{"amount_$i"} = $form->parse_amount(\%myconfig, $form->{"amount_$i"});
|
|
| 489 | 487 |
if ($form->{"amount_$i"}) {
|
| 490 | 488 |
push @a, {};
|
| 491 | 489 |
$j = $#a; |
| 492 | 490 |
my ($taxkey, $rate) = split(/--/, $form->{"taxchart_$i"});
|
| 493 |
if ($taxkey > 1) {
|
|
| 494 |
if ($form->{taxincluded}) {
|
|
| 495 |
$form->{"tax_$i"} = $form->{"amount_$i"} / ($rate + 1) * $rate;
|
|
| 496 |
} else {
|
|
| 497 |
$form->{"tax_$i"} = $form->{"amount_$i"} * $rate;
|
|
| 498 |
} |
|
| 499 |
} else {
|
|
| 500 |
$form->{"tax_$i"} = 0;
|
|
| 501 |
} |
|
| 502 |
$form->{"tax_$i"} = $form->round_amount($form->{"tax_$i"}, 2);
|
|
| 491 |
|
|
| 492 |
# calculate tax exactly the same way as AP in post_transaction via form->calculate_tax |
|
| 493 |
my $tmpnetamount; |
|
| 494 |
($tmpnetamount,$form->{"tax_$i"}) = $form->calculate_tax($form->{"amount_$i"},$rate,$form->{taxincluded},2);
|
|
| 503 | 495 |
|
| 504 | 496 |
$totaltax += $form->{"tax_$i"};
|
| 505 | 497 |
map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds;
|
Auch abrufbar als: Unified diff
Rundung bei Debitorenbuchung, Kreditorenbuchung und Dialogbuchung
Zwei neue Hilfsfunktionen für Form eingeführt die von ap/ar/gl genutzt
werden:
vorhandenen $form in ar/ap, und formatiert und rundet die amount_$i and
tax_$i in der $form.
Das Ziel war es, daß diese drei Belege mit den gleichen Formeln zur
Steuerberechnung bei Steuer inkl./exkl. arbeiten. Ein Vorteil im
Vergleich zur Einkaufs- und Verkaufsrechnung ist, daß es hier keine
Positionen/Mengen/Rabatte/etc gibt, sondern direkt Werte auf Konten
bebucht werden, man muß nur Währungskurse berücksichtigen und beim
Schreiben in die Datenbank auf die Vorzeichen achten. Einkaufs- und
Verkaufsrechnungen werden hiervon nicht beeinflußt.
Vor allem bei der Einstellung "MwSt. inkl" wird die Steuer nun immer auf
zwei Stellen gerundet in die Datenbank geschrieben, und nicht (wie
bisher in manchen Fällen) mit 5 Nachkommastellen, was zu mehreren Bugs
geführt hat.
Es gibt einen neuen Test t/form/arap.t der die Berechnungen dieser
beiden Funktionen testet, nicht aber das eigentliche Buchen der Belege.
Mit diesem Commit sollten für zukünftige Buchungen folgende Bugs behoben
sein:
1691 - Rundung bei Berichten bei Buchungen mit MwSt inkl.
2029 - Rundungsfehler bei Dialogbuchung
2033 - Unterschiede in Rundungen durch taxincluded
2094 - Rundungsprobleme in Kreditorenbuchungen: Cent "kippt" bei Zahlungseinbuchung
2435 - Rundungsfehler in Kreditorenbuchungen (Netto vs. Brutto)
Dieser Commit greift in die Eingeweide von Uraltcode ein, wo die
diversen Stellen alle mal mit copy&paste entstanden und dann langsam
divergiert sind, hat also hohes Fehlerpotential. Es lohnt sich, den
DATEV-Check anzuschalten.