Hello Thiagão...

Esta é uma das maneiras possíveis pra saber se o calculo esta sendo feito..

if  ta_calculando()
    messagebox("Tchauzim...  esta função não esta disponível agora... Tente mais tarde!")
    return
endif
*
function ta_calculando
lcOldError                  = ON('ERROR')
llError                     = .F.
On ERROR llError = .T.
sele 0
use uma_tabela exclusive
if  used("uma_tabela")
    sele uma_tabela
    use
endif
On ERROR &lcOldError
return llError

Acho que lhe será útil..

Claudio
>
>Aqui o pessoal utiliza uma rede novell 6.x, e sempre que meu sistema vai fazer cálculo geral das parcelas dos alunos, eu bloqueio o programa de cálcular individualmente, porém os usuários tem acesso a consultar somente os registros de alunos.
>
>O que acontece é que na maioria das vezes o sistema retorna a mensagem quando um usuários vai consultar um registro do tipo FILE IS USER ANOTHER BY USER, ou então simplesmente corrompe as minhas tabelas e ou índices.
>
>A maneira como acesso os dados é a seguinte, eu abro o banco no começo da apliação e depois faço a referencia em minhas SELECTs da seguinte maneira, banco!tabela, porém as tabelas que preciso efetuar gravação nelas eu abro elas so começo do programa e trabalho com buferização = 5 e sempre dou BEGIN TRANSECTION e vou dando TEBLEUPDATE nas tabelas e depois se correu tudo OK eu faço um ENDTRANSACTION ou então um TABLEREVERT nelas e depois um ROLLBACK.
>
>Ah e tem outra coisa, isso quando o usuário não da um CTRL+ALT+DEL e finaliza a aplicação de maneira incorreta.
>
>Vocês sabem a melhor maneira de não correr um risco de corromper as tabelas?
>
>Com ODBC eu sei que seria a melhor maneira, porém tenho 2 bancos de dados para acessar, um de ALUNOS e outro FINANCEIRO, são DBCs distintos e com isso não tem como criar uma única conexão ODBC, aí toda SQL que vou fazer tenho que fazer 1 no banco de ALUNOS depois outra no banco FINANCEIRO e depois ligar as 2 através dos cursores criados...
>
>Desde já fico muito grato...