Fórum Mensagem pra contornar erro de Integridade Referencial #347083
06/10/2007
0
Galera, o código abaixo aparentemente é pra funcionar tratando de forma genérica as mensagens de retorno de erro por exclusáo de um valor utilizado por outra tabela (integridade referencial), mas o problema é que o showmessage nao é aceito pelo datamodulo, por acaso vocês conhecem uma outra maneira de tratar erros qdo se tenta excluir um registro utilizado por outra tabela?
Obrigado aos que tentarem me ajudar...
Obrigado aos que tentarem me ajudar...
procedure TDataModulo.IBQPessoaDeleteError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
var
Mensagem : String;
begin
Mensagem := E.Message;
if(pos(´FOREIGN KEY´,MENSAGEM)>0) then
begin
ShowMessage(´Não pode ser excluido pois está contido em outros Cadastros.´);
abort;
end;
end;
Cgomesnet
Curtir tópico
+ 0
Responder
Posts
06/10/2007
Mayron Cachina
Olá cgomesnet,
Tenta colocar a Uses Dialogs, no datamodule..
assim você vai poder usar o showmessage.
Tenta colocar a Uses Dialogs, no datamodule..
assim você vai poder usar o showmessage.
Responder
Gostei + 0
07/10/2007
Cgomesnet
Olá Mayron, realmente, vc estava certo com relaçao ao ShowMessage bastava usar o Dialogs na cláusula USES, porém o código ainda está errado ou eu estou colocando em algum evento errado pois ele nao busca o erro e exibe a mensagem. :(
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)