Fórum Tratamento de mensagem de exclusão de registro com FK #58852

Procedure TrataErroClient( E: EIBClientError );
Var
   SqlError: Integer;
   SQLMsg: String;
Begin
   SqlError := E.SQLCode;
   SQLMsg := ´´;
   Case SQLError Of
      16: SQLMsg := ´Voce não Tem permissão para realizar esta Operação.´;
    -206: SQLMsg := ´Coluna desconhecida para tabela.´;

   End;
   If SQLMsg <> ´´ Then
      ErroMsg:= Inttostr(SqlError) + ´ - ´ + SQLMsg;
end;

Procedure ErrorMsg(Sender: TObject; E: exception);
Begin
   If ( E Is EIBClientError ) Then
      TrataErroClient( E As EIBClientError )
       Else If ( E Is EIBInterBaseError ) Then
        TrataErro( E As EIBInterBaseError );

   ErroMsg:= e.Message;
End;

Procedure TrataErro( E: EIBInterBaseError );
Var
   SqlError: Integer;
   SqlMsg: String;
Begin
//   SqlMsg := ´Erro desconhecido´;
   SqlError := E.SQLCode;
   Case SQLError Of
          4 : SQLMsg := ´Tentativa de conversão de dados incorreta´;
       -104 : SQLMsg := ´Erro ao tentar passar comandos ao SQL´;
       -206 : SQLMsg := ´Coluna desconhecida para tabela.´;
       -913 : SQLMsg := ´Transação será revertida. Registro em Uso na Rede´;
       -530 : SQLMsg := ´Violação de Integridade Referencial Registro não foi encontrado.´;
       -902 : SQLMsg := ´Você não tem Acesso ao Banco de Dados. Erro Interno, contate o Administrador´;
       -625 : SQLMsg := ´Erro de Validação de Coluna´;
       -551 : SQLMsg := ´Você não tem permissão para esta Operação.Contate o Administrador´;
       -832 : SQLMsg := ´Este resgistro não pode ser excluído porque´ + #10 + ´Existem outros que dependem dele e que não foram excluídos´;
      12203 : SQLMsg := ´Base de Dados está fora do ar. Favor entrar´ + #10 + ´em contato com o responsável pela rede na ´ + 10 + ´localidade selecionada ou tente mais tarde.´;
       -803 : SQLMsg := ´Chave Primária ou única já existente. Registro não pode ser duplicado´;
     -10256 : SQLMsg := ´Erro no arquivo do banco de dados.´;
       -303 : SQLMsg := ´Erro na conversão de dados.´;
   End;
   If SQLMsg <> ´´ Then
      ErroMsg:= SQLMsg;
End;