ReportFailure

<< Clique para Mostrar o Sumário >>

 

ReportFailure

ReportFailure(FailureName, FailureDescription, FailureWeight)

Este método permite que uma aplicação reporte falhas para o Servidor, que podem ser visualizadas clicando com o botão direito do mouse no ícone do Elipse E3 na Área de Notificações do Windows. Quando este método é usado, o ícone do Elipse E3 na Área de Notificações do Windows começa a piscar em vermelho, indicando a ocorrência de uma falha. As falhas reportadas são normalmente condições que impedem que uma aplicação funcione parcialmente, tais como problemas de comunicação em uma porta serial, link de rede inativo ou banco de dados sem conexão, e que normalmente não podem ser detectadas pelo Servidor. Este método tem a finalidade de avisar o operador do sistema a respeito de problemas em um servidor e também de auxiliar o gerenciador automático de Hot-Standby a decidir qual servidor está mais apto para executar uma aplicação.

 

NOTA

Este método só está disponível no Servidor.

 

Este método possui os parâmetros descritos na tabela a seguir.

Parâmetros do método ReportFailure

Nome

Descrição

FailureName

Contém o nome de uma falha, definido pelo usuário. Este mesmo parâmetro deve ser passado para o método ClearFailure quando a aplicação detectar que a falha não está mais ativa, como por exemplo "Falha COM1"

FailureDescription

Descrição textual de uma falha, definida pelo usuário, como por exemplo "Falha de comunicação na porta COM1"

FailureWeight

Define a severidade, ou peso, de uma falha. O valor 0 (zero) indica um aviso sem gravidade. Valores maiores que 0 (zero) indicam falhas. Quanto maior o valor, mais grave é a falha

 

O script a seguir contém um exemplo de uso deste método.

Sub TagEstadoSerial_OnValueChanged()
  If Value then
    ' O valor do Tag é True, indica que está em falha
    Application.ReportFailure "FALHA_COM1", "Falha de "_
      & "comunicação na porta COM1", 100
  Else
    ' O valor do Tag é False, limpa a falha
    ' (indica que está OK)
    Application.ClearFailure "FALHA_COM1"
  End If
End Sub

Esta página foi útil?