Evitar aparecer a msg de erro.
Record locked by another user
Esse erro ocorre quando vou alterar algum registro e ele ja esta sendo alterado por outra pessoa em outra estação.
procedure TForm2.Table1EditError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
begin
if E is EDBEngineError then
begin
with EDBEngineError(E), Errors[0] do
if ErrorCode = 10241 then // Has Details
ShowMessage(´Registro bloqueado em outra estação !´);
end;
end;
coloquei a seguinte procedure ela mostra a MGS
ShowMessage(´Registro bloqueado em outra estação !´);
mais logo apos aparece a msg de erro
Record locked by another user
como faço para evitar que ela apareça
Esse erro ocorre quando vou alterar algum registro e ele ja esta sendo alterado por outra pessoa em outra estação.
procedure TForm2.Table1EditError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
begin
if E is EDBEngineError then
begin
with EDBEngineError(E), Errors[0] do
if ErrorCode = 10241 then // Has Details
ShowMessage(´Registro bloqueado em outra estação !´);
end;
end;
coloquei a seguinte procedure ela mostra a MGS
ShowMessage(´Registro bloqueado em outra estação !´);
mais logo apos aparece a msg de erro
Record locked by another user
como faço para evitar que ela apareça
Dbart
Curtidas 0
Respostas
Rodc
14/02/2008
Passe para o parâmetro Action um TDataAction que faça o erro não ser propagado.
GOSTEI 0
Pestana_
14/02/2008
posso até estar falando besteira, mas você não tem que colocar o bloco [i:c263bbb1ac]try .... except ... end;[/i:c263bbb1ac]
flw.
flw.
GOSTEI 0
Rodc
14/02/2008
Não porque ele está usando um evento do TTable.
GOSTEI 0
Pestana_
14/02/2008
Não porque ele está usando um evento do TTable.
rodc valeu pela resposta essa eu não sabia eu faço de outra forma para tratar erros. :wink:
flw.
GOSTEI 0