Fix controle transação

Author: glprog

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;