X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FOE.pm;h=94b97e9984fcf91e150d7b72922eabde74c41b99;hb=061e94fefda06b6aa0275b43debab9db73fca226;hp=93848b9fc197cf7a65652e729b9287733166b6be;hpb=b632cee8434442efd8ae3962126c34123172daac;p=kivitendo-erp.git diff --git a/SL/OE.pm b/SL/OE.pm index 93848b9fc..94b97e998 100644 --- a/SL/OE.pm +++ b/SL/OE.pm @@ -691,11 +691,6 @@ sub delete { qq|WHERE trans_id = ?|; do_query($form, $dbh, $query, @values); - # delete OE record - $query = qq|DELETE FROM oe | . - qq|WHERE id = ?|; - do_query($form, $dbh, $query, @values); - # delete individual entries $query = qq|DELETE FROM orderitems | . qq|WHERE trans_id = ?|; @@ -705,6 +700,11 @@ sub delete { qq|WHERE trans_id = ? AND module = 'OE'|; do_query($form, $dbh, $query, @values); + # delete OE record + $query = qq|DELETE FROM oe | . + qq|WHERE id = ?|; + do_query($form, $dbh, $query, @values); + my $rc = $dbh->commit; if ($rc) {