X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/bddc0f6c64506c26696be850f1c0ecd5677664fe..b459f8fedcdf0f7589862d11ca7b2fbaf2dfc91e:/SL/GoBD.pm

diff --git a/SL/GoBD.pm b/SL/GoBD.pm
index e8a055891..45f055f85 100644
--- a/SL/GoBD.pm
+++ b/SL/GoBD.pm
@@ -419,6 +419,10 @@ sub do_datev_csv_export {
 
   $datev->_get_transactions(from_to => $datev->fromto);
 
+  if ($datev->errors) {
+    die [ $datev->errors ];
+  }
+
   for my $transaction (@{ $datev->{DATEV} }) {
     for my $entry (@{ $transaction }) {
       $entry->{sortkey} = join '-', map { lc } (DateTime->from_kivitendo($entry->{transdate})->strftime('%Y%m%d'), $entry->{name}, $entry->{reference});
@@ -545,7 +549,7 @@ sub do_csv_export {
   my $query = "SELECT " . join(', ', @select_tokens) . " FROM $table $where_clause";
 
   my $sth = $::form->get_standard_dbh->prepare($query);
-  $sth->execute(@values) or die "error executing query $query: " . $sth->errstr;
+  $sth->execute(@values) or $::form->dberror($query);
 
   while (my $row = $sth->fetch) {
     for my $keep_col (@{ $known_tables{$table}{keep} || [] }) {