E3Browser não executa a filtragem

#1

Meus caros, boa tarde.
Estou tendo dificuldades para passar os parâmetros do filtro no E3Browser, quando clico no botão consultar. A estrutura do SQL dentro E3Browser é a seguinte:
SELECT TOP 1000 [vw_SumarioEventos].[DATA],[vw_SumarioEventos].[TAG],[vw_SumarioEventos].[DESCRICAO],[vw_SumarioEventos].[MENSAGEM],[vw_SumarioEventos].[VALOR],[vw_SumarioEventos].[UNIDADE]
FROM [vw_SumarioEventos]
WHERE (( [vw_SumarioEventos].[DATA] >= #<%dataIni%># AND [vw_SumarioEventos].[DATA] <= #<%dataFin%># ) AND ( [vw_SumarioEventos].[TAG] LIKE ‘<%tag%>’ ) AND ( [vw_SumarioEventos].[MENSAGEM] LIKE ‘<%mensagem%>’ ))

No meu botão de consulta faço o seguinte:
Sub btnConsultar_Click()
Dim dtini, dtFin, tag, mensagem
Set browser = Screen.Item(“E3Browser1”)
Set query = browser.Item(“Consulta1”)

If Screen.Item("CheckBox1").Value = False Then
	Screen.Item("txtDataIni").Value = Now -30
	Screen.Item("txtDataFin").Value = Now
	Screen.Item("txtTag").Value = ""
	Screen.Item("txtMensagem").Value = ""
ElseIf Screen.Item("CheckBox1").Value = True Then
	dtIni = Screen.Item("txtDataIni").Value
	dtFin = Screen.Item("txtDataFin").Value
	tag =  UCase(Screen.Item("txtTag").Value)
	mensagem = 	UCase(Screen.Item("txtMensagem").Value) 	
	query.SetVariableValue "dataIni", dtIni
	query.SetVariableValue "dataFin", dtFin
	query.SetVariableValue "tag", tag
	query.SetVariableValue "mensagem", mensagem
End If

End Sub
VAle salientar que já tentei desta forma:
Sub btnConsultar_Click()
Dim dtini, dtFin, tag, mensagem
Set browser = Screen.Item(“E3Browser1”)
Set query = browser.Item(“Consulta1”)

If Screen.Item("CheckBox1").Value = False Then
	Screen.Item("txtDataIni").Value = Now -30
	Screen.Item("txtDataFin").Value = Now
	Screen.Item("txtTag").Value = ""
	Screen.Item("txtMensagem").Value = ""
ElseIf Screen.Item("CheckBox1").Value = True Then
	dtIni = Screen.Item("txtDataIni").Value
	dtFin = Screen.Item("txtDataFin").Value
	tag =  "%" & UCase(Screen.Item("txtTag").Value) & "%"
	mensagem = 	 "%" & UCase(Screen.Item("txtMensagem").Value) & "%"
	query.SetVariableValue "dataIni", dtIni
	query.SetVariableValue "dataFin", dtFin
	query.SetVariableValue "tag", tag
	query.SetVariableValue "mensagem", mensagem
End If

End Sub

Em todos os casos ele só trás os dados da consulta sem filtragem.
Desde já sou grato pela atenção.

#2

boa tarde, verifique se as datas no banco funcionam no mesmo formato que vc esta passando.
outra coisa é configurar a data na consulta com SET DATEFORMAT dmy;

SET DATEFORMAT dmy;

– Recebe os valores do Elipse
DECLARE @data_ini VARCHAR(20) = ‘<%data_ini%>’;
DECLARE @data_fim VARCHAR(20) = ‘<%data_fim%>’;
DECLARE @mensagem VARCHAR(250) = ‘<%mensagem%>’;

SELECT TOP 1000
se.DATA as [Data],
se.TAG as [Tag],
se.DESCRICAO as [Descrição],
se.MENSAGEM as [Mensagem],
se.VALOR as [Valor],
se.UNIDADE as [Unidade]
FROM
vw_SumarioEventos se
WHERE
– Filtro 1: Data de Início
se.DATA >= CAST(@data_ini AS DATETIME)

-- Filtro 2: Data de Fim (Garante que pegue o dia todo até o ultimo segundo)
-- Se vier só 'DD/MM/YYYY', use essa lógica abaixo:
AND se.DATA <= CAST(@data_fim + ' 23:59:59' AS DATETIME)

-- Filtro 3: Mensagem
-- Usa LIKE para buscar palavras dentro da frase.
--AND se.MENSAGEM LIKE '%' + @mensagem + '%'

-- Ou busca pela mensagem igual
AND se.MENSAGEM = @mensagem

ORDER BY
se.DATA DESC;

espero que ajude.

#3

Oi Guilherme.
O meu problema não é com as datas. Estas vêm certo, alias é a única coisa que vem. O problema é com os parâmetros “tag” e “mensagem”. Na filtragem, eiste a possibilidade de filtrar só por intervalo de datas (que funciona), ou por intervalo de datas e tag, ou intervalo de datas e mensagem, ou ainda intervalo de datas com tag e mensagem, associados. Só funciona com intervalo de datas.
Na configuração do Consulta1 do E3Browser, o SQL ficou assim:
SELECT TOP 1000 [vw_SumarioEventos].[DATA],[vw_SumarioEventos].[TAG],[vw_SumarioEventos].[DESCRICAO],[vw_SumarioEventos].[MENSAGEM],[vw_SumarioEventos].[VALOR],[vw_SumarioEventos].[UNIDADE]
FROM [vw_SumarioEventos]
WHERE (( [vw_SumarioEventos].[DATA] >= #<%dataIni%># AND [vw_SumarioEventos].[DATA] <= #<%dataFin%># ) AND ( [vw_SumarioEventos].[TAG] LIKE ‘<%tag%>’ ) AND ( [vw_SumarioEventos].[MENSAGEM] LIKE ‘<%mensagem%>’ ))

No botão que faz o filtro está assim:
Sub btnConsultar_Click()
Dim dtini, dtFin, tag, mensagem
Set browser = Screen.Item(“E3Browser1”)
Set query = browser.Item(“Consulta1”)
If Screen.Item(“CheckBox1”).Value = False Then
Screen.Item(“txtDataIni”).Value = Now -30
Screen.Item(“txtDataFin”).Value = Now
Screen.Item(“txtTag”).Value = “”
Screen.Item(“txtMensagem”).Value = “”
ElseIf Screen.Item(“CheckBox1”).Value = True Then
dtIni = Screen.Item(“txtDataIni”).Value
dtFin = Screen.Item(“txtDataFin”).Value
tag = UCase(Screen.Item(“txtTag”).Value)
mensagem = UCase(Screen.Item(“txtMensagem”).Value)
query.SetVariableValue “dataIni”, dtIni
query.SetVariableValue “dataFin”, dtFin
query.SetVariableValue “tag”, tag
query.SetVariableValue “mensagem”, mensagem
End If

Já tentei passando a tag e mensagem entre “%”, mesmo assim não traz os dados…

#4

Se você preencher as variáveis (aba de mesmo nome) no objeto da consulta e consultar pela aba “Visualizar”, os registros retornam filtrados? Se sim, tente adicionar a sua rotina do botão consultar o método SetFocus.

Sub btnConsultar_Click()
    
   SetFocus()
    
   // código...

End Sub