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

diff --git a/SL/GoBD.pm b/SL/GoBD.pm
index 2992b5f4e..b147580d1 100644
--- a/SL/GoBD.pm
+++ b/SL/GoBD.pm
@@ -417,7 +417,7 @@ sub do_datev_csv_export {
 
   my $datev = SL::DATEV->new(from => $self->from, to => $self->to);
 
-  $datev->_get_transactions(from_to => $datev->fromto);
+  $datev->generate_datev_data(from_to => $datev->fromto);
 
   if ($datev->errors) {
     die [ $datev->errors ];
@@ -549,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} || [] }) {