Revision 0e68056c
Von Kivitendo Admin vor etwa 10 Jahren hinzugefügt
| SL/AR.pm | ||
|---|---|---|
| 69 | 69 |
$form->{AR_amounts}{receivables} = $form->{ARselected};
|
| 70 | 70 |
$form->{AR}{receivables} = $form->{ARselected};
|
| 71 | 71 |
|
| 72 |
# parsing |
|
| 73 |
for $i (1 .. $form->{rowcount}) {
|
|
| 74 |
$form->{"amount_$i"} = $form->round_amount($form->parse_amount($myconfig, $form->{"amount_$i"}) * $form->{exchangerate}, 2);
|
|
| 75 |
$form->{amount} += $form->{"amount_$i"};
|
|
| 76 |
$form->{"tax_$i"} = $form->parse_amount($myconfig, $form->{"tax_$i"});
|
|
| 77 |
} |
|
| 78 |
|
|
| 79 |
# this is for ar |
|
| 80 |
$form->{tax} = 0;
|
|
| 81 |
$form->{netamount} = 0;
|
|
| 82 |
$form->{total_tax} = 0;
|
|
| 83 |
|
|
| 84 |
# taxincluded doesn't make sense if there is no amount |
|
| 85 |
$form->{taxincluded} = 0 unless $form->{amount};
|
|
| 86 |
|
|
| 87 |
for $i (1 .. $form->{rowcount}) {
|
|
| 88 |
($form->{"tax_id_$i"}) = split /--/, $form->{"taxchart_$i"};
|
|
| 72 |
$form->{tax} = 0; # is this still needed?
|
|
| 89 | 73 |
|
| 90 |
$query = qq|SELECT c.accno, t.taxkey, t.rate FROM tax t LEFT JOIN chart c ON (c.id = t.chart_id) WHERE t.id = ? ORDER BY c.accno|; |
|
| 91 |
($form->{AR_amounts}{"tax_$i"}, $form->{"taxkey_$i"}, $form->{"taxrate_$i"}) = selectrow_query($form, $dbh, $query, $form->{"tax_id_$i"});
|
|
| 92 |
|
|
| 93 |
if ($form->{taxincluded} *= 1) {
|
|
| 94 |
$tax = $form->{"korrektur_$i"}
|
|
| 95 |
? $form->{"tax_$i"}
|
|
| 96 |
: $form->{"amount_$i"} - ($form->{"amount_$i"} / ($form->{"taxrate_$i"} + 1)); # should be same as taxrate * amount / (taxrate + 1)
|
|
| 97 |
$form->{"amount_$i"} = $form->round_amount($form->{"amount_$i"} - $tax, 2);
|
|
| 98 |
$form->{"tax_$i"} = $form->round_amount($tax, 2);
|
|
| 99 |
} else {
|
|
| 100 |
$form->{"tax_$i"} = $form->{"amount_$i"} * $form->{"taxrate_$i"} unless $form->{"korrektur_$i"};
|
|
| 101 |
$form->{"tax_$i"} = $form->round_amount($form->{"tax_$i"} * $form->{exchangerate}, 2);
|
|
| 102 |
} |
|
| 103 |
$form->{netamount} += $form->{"amount_$i"};
|
|
| 104 |
$form->{total_tax} += $form->{"tax_$i"};
|
|
| 105 |
} |
|
| 74 |
# main calculation of rowcount loop inside Form method, amount_$i and tax_$i get formatted |
|
| 75 |
$form->{taxincluded} = 0 unless $form->{taxincluded};
|
|
| 76 |
($form->{netamount},$form->{total_tax},$form->{amount}) = $form->calculate_arap('sell', $form->{taxincluded}, $form->{exchangerate});
|
|
| 106 | 77 |
|
| 107 | 78 |
# adjust paidaccounts if there is no date in the last row |
| 108 | 79 |
# this does not apply to stornos, where the paid field is set manually |
| ... | ... | |
| 117 | 88 |
$form->{datepaid} = $form->{"datepaid_$i"};
|
| 118 | 89 |
} |
| 119 | 90 |
|
| 120 |
$form->{amount} = $form->{netamount} + $form->{total_tax};
|
|
| 121 | 91 |
} |
| 122 | 92 |
$form->{paid} = $form->round_amount($form->{paid} * ($form->{exchangerate} || 1), 2);
|
| 123 | 93 |
|
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.