From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Mon, 8 Sep 2008 11:01:24 +0000 (+0000)
Subject: DATEV-Export nicht beim ersten Fehler abbrechen, sondern eine Liste aller Fehler... 
X-Git-Tag: release-2.6.0beta2~258
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=6683b7fbb9c7e1ea2e39e1553afd8e415af42cff;p=kivitendo-erp.git

DATEV-Export nicht beim ersten Fehler abbrechen, sondern eine Liste aller Fehler für den ausgewählten Zeitraum ausgeben und dann erst abbrechen. Das Datenbankhandle nicht schließen, das geschieht automatisch beim Programmende.
---

diff --git a/SL/DATEV.pm b/SL/DATEV.pm
index da82d0336..384ee3f98 100644
--- a/SL/DATEV.pm
+++ b/SL/DATEV.pm
@@ -226,6 +226,8 @@ sub _get_transactions {
 
   my $dbh      =  $form->get_standard_dbh($myconfig);
 
+  my @errors   = ();
+
   $fromto      =~ s/transdate/ac\.transdate/g;
 
   my %taxes    =  selectall_as_map($form, $dbh, qq|SELECT id, rate FROM tax|, 'id', 'rate');
@@ -352,11 +354,13 @@ sub _get_transactions {
     }
 
     if (abs($absumsatz) > 0.01) {
-      $form->error("Datev-Export fehlgeschlagen! Bei Transaktion $trans->[0]->{trans_id} $absumsatz\n");
+      push @errors, "Datev-Export fehlgeschlagen! Bei Transaktion $trans->[0]->{trans_id} ($absumsatz)\n";
     }
   }
-  $sth->finish;
-  $dbh->disconnect;
+
+  $sth->finish();
+
+  $form->error(join("<br>\n", @errors)) if (@errors);
 
   $main::lxdebug->leave_sub();
 }