X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/e055700faea1906bea6c03184ba4516b57cac887..da99c7bcf4a8ec82d9bc1d0c75aaba6ba4cd69ea:/SL/TransNumber.pm?ds=inline

diff --git a/SL/TransNumber.pm b/SL/TransNumber.pm
index 0ba13a8ab..c9d7be6d1 100644
--- a/SL/TransNumber.pm
+++ b/SL/TransNumber.pm
@@ -105,7 +105,7 @@ sub create_unique {
   my $form    = $main::form;
   my %filters = $self->_get_filters();
 
-  $self->dbh->begin_work;
+  $self->dbh->begin_work if $self->dbh->{AutoCommit};
   do_query($form, $self->dbh, qq|LOCK TABLE defaults|);
   do_query($form, $self->dbh, qq|LOCK TABLE business|) if $self->business_id;