Revision 0802cc15
Von Sven Schöling vor mehr als 13 Jahren hinzugefügt
| SL/DATEV.pm | ||
|---|---|---|
| 399 | 399 |
|
| 400 | 400 |
my $count = $ref->{amount};
|
| 401 | 401 |
my $firstrun = 1; |
| 402 |
my $subcent = abs($count) < 0.02; |
|
| 402 | 403 |
|
| 403 |
while (abs($count) > 0.01 || $firstrun) {
|
|
| 404 |
while (abs($count) > 0.01 || $firstrun || ($subcent && abs($count) > 0.001)) {
|
|
| 404 | 405 |
my $ref2 = $sth->fetchrow_hashref("NAME_lc");
|
| 405 | 406 |
last unless ($ref2); |
| 406 | 407 |
|
Auch abrufbar als: Unified diff
Bugfix: Subcent Buchungen führten zu unbalanced ledger in DATEV Export.
Wenn eine 1 cent Buchung auf ein normal versteuertes Konto gebucht wurde
tauchten die Buchungen in der folgenden Reihenfolge in der Datenbank auf:
-0.00840
-0.00160
+0.01000
Der Algorithmus, der die Buchungen aufsummiert, ist aus historischen Gründen
recht nachgiebig und bricht das aufsummieren ab, sobald die Summe der
bisherigen Buchungen kleiner ist als ein Cent. In diesem Fall ist das schon
nach der ersten Buchung der Fall, und bei der dritten Buchung wird dann ein
unbalanced ledger Fehler geworfen.
Der Fix prüft auf solche kleinen Werte und wechselt dafür in einen subcent
Modus, in dem auf zehntel Cent geprüft wird.