Subcent Grenze auf 0.05 anheben.

Akuter Fall von Geoffrey:

habe einen neuen Fall wo es nicht klappt, mit meinem alten abs($count) > 0.005
aber schon.

Unbalanced ledger!

 accno |  amount
-------+----------
 3310  | -0.06000
 5400  |  0.05042
 1406  |  0.00958

diff --git a/SL/DATEV.pm b/SL/DATEV.pm
index 775d4df..e3cecef 100644 (file)
--- a/SL/DATEV.pm
+++ b/SL/DATEV.pm
@@ -401,7 +401,7 @@ sub _get_transactions {
     my $firstrun = 1;
     my $subcent  = abs($count) < 0.02;
 
-    while (abs($count) > 0.01 || $firstrun || ($subcent && abs($count) > 0.001)) {
+    while (abs($count) > 0.01 || $firstrun || ($subcent && abs($count) > 0.005)) {
       my $ref2 = $sth->fetchrow_hashref("NAME_lc");
       last unless ($ref2);