Filtrar no e3Alarm por FullSourceName e Message não retorna

#1

Amigos.
Tudo bem?
Estou tendo um problema em executar um filtro no e3Alarm. Quando filtro só pela data inicial e final, tenho retorno certinho. Porém, quando filtro ou por message ou por FullSourceName, não tenho retorno.
Segue abaixo o código do clique do botão.
Sub btnConsultar_Click()
Set query = Screen.Item(“E3Alarm1”).Filters.Item(“FiltroConexao”)
Dim dtini, dtFin, tag, mensagem, txtFiltro
txtfiltro = “”
If Screen.Item(“CheckBox1”).Value = True Then
Set dtIni = Screen.Item(“txtDataIni”)
Set dtFin = Screen.Item(“txtDataFin”)
Set tag = Screen.Item(“txtTag”)
Set mensagem = Screen.Item(“txtMensagem”)
txtFiltro = “E3TimeStamp >= CDate(” & chr(34)& dtIni.Value & chr(34) &")" & " And E3TimeStamp <= CDate("& chr(34)& dtFin.Value & chr(34)&")"
If tag.Value <> “” And mensagem.Value = “” Then
txtFiltro = txtFiltro & " And FullSourceName LIKE ‘%" & tag.Value & "%’"
ElseIf tag.Value = “” And mensagem.Value <> “” Then
txtFiltro = txtFiltro & " And Message = ‘" & mensagem.Value & "’"
ElseIf tag.Value <> “” And mensagem.Value <> “” Then
txtFiltro = txtFiltro & " And FullSourceName LIKE ‘%" & tag.Value & "%’ And Message LIKE ‘%"& mensagem.Value & "%’"
End If
End If
query.CustomFilter = txtFiltro
End Sub

Se alguém puder me ajudar, desde já sou muito grato.

#2

Olá,

o nome correto do campo é FullAlarmSourceName, e a sintaxe do CustomFilter é diferente de uma query SQL.

Portanto, um filtro equivalente ao LIKE '%%', é:

txtFiltro = txtFiltro & " And InStr(FullAlarmSourceName, """ & tag.Value & """) > 0"

:link: Implementando um filtro customizado no objeto E3Alarm. - Elipse Knowledgebase

#3

Obrigado Leandro. Funcionou.