X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/b2c6d5a803fc4a3e38dac3cd46edda82baabd7d5..f07df483ee9e755f29fe599424a1ba2ed8bcc6b8:/SL/TransNumber.pm

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