Fix controle transação

glprog · Apr 18, 2020 · 0267c67 · 0267c67
1 parent 0968ac9
commit 0267c67
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/MiniREST.SQL.SQLDb.pas b/MiniREST.SQL.SQLDb.pas
@@ -531,7 +531,7 @@ procedure TMiniRESTSQLConnectionSQLDb.SetMiniRESTSQLParamToSQLParam(AMiniRESTSQL
 function TMiniRESTSQLConnectionSQLDb.InTransaction: Boolean;
 begin
   CheckConnectionIsValid;
-  Result := FSQLConnection.Transaction.Active;
+  Result := FInExplicitTransaction and FSQLConnection.Transaction.Active;
 end;
 
 function TMiniRESTSQLConnectionFactorySQLDb.GetConnectionsCount: Integer;