From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Tue, 26 Jan 2010 11:50:33 +0000 (+0100)
Subject: DATEV-Export: Abweichungen des Bruttobetrages durch Aufteilen des Fehlers auf einzeln... 
X-Git-Tag: release-2.6.1beta1~59
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=bf3b69660fe6904f483b1720c9dc492df160c761;p=kivitendo-erp.git

DATEV-Export: Abweichungen des Bruttobetrages durch Aufteilen des Fehlers auf einzelne Positionen aktiviert
---

diff --git a/SL/DATEV.pm b/SL/DATEV.pm
index 1a455f3ec..5da44499f 100644
--- a/SL/DATEV.pm
+++ b/SL/DATEV.pm
@@ -445,6 +445,7 @@ sub _get_transactions {
 
     my $ml             = ($trans->[0]->{'umsatz'} > 0) ? 1 : -1;
     my $rounding_error = 0;
+    my @taxed;
 
     for my $j (0 .. (scalar(@{$trans}) - 1)) {
       if (   ($j != $notsplitindex)
@@ -491,13 +492,13 @@ sub _get_transactions {
         }
 
         push @{ $form->{DATEV} }, [ \%new_trans, $trans->[$j] ];
+        push @taxed, $form->{DATEV}->[-1];
       }
     }
 
     my $idx        = 0;
     my $correction = 0;
-    our @taxed;          # most likely defunct
-    while (abs($absumsatz) >= 0.01) {
+    while ((abs($absumsatz) >= 0.01) && (abs($absumsatz) < 1.00)) {
       if ($idx >= scalar @taxed) {
         last if (!$correction);