Bom dia.
Estou tentando imprimir e exportar dados consultados de um EBrowser, porém, quando executo a atividade de imprimir ou exportar o que foi solicitado, me vem todos os dados do Banco de Dados e não o intervalo escolhido.
Como faço para resolver isso?
Olá Wendhel,
Verifique se sua aplicação está conforme os itens abaixos:
-Criação dos filtros dentro da consulta utilizada no relatório;
-Script que passa o valor dos setpoints para os filtros da consulta;
Qualquer dúvida, estou à disposição.
Atenciosamente,
Santos,Lucas Angelo
@LucasSantos, esse procedimento já foi feito.
Existem os botões de CONSULTA e IMPRIMIR. O de CONSULTA mostra num E3Browser os valores entre um determinado período escolhido pelo usuário. O de IMPRIMIR traz todos os valores contidos no Banco de Dados, onde eu só quero que imprima os mesmos valores que foram consultados.
Olá @Wendhel,
Caso esteja configurando o período que será impresso no relatório no botão CONSULTA, e depois utilizando no botão IMPRIMIR o pick “imprimir relatório”, nesse caso, estará executando duas vezes o método “LoadReport”, e ao chamar este comando pela segunda vez, todas as configurações já realizadas são limpas. Para solucionar esse problema, concentre a lógica dentro do botão imprimir, utilizando somente uma vez o método, conforme script abaixo:
Qualquer dúvida, estou à disposição.
Atenciosamente,
Santos, Lucas Angelo
Como indicado, concentrei a seguinte lógica no botão “Imprimir”:
Sub CommandButton2_Click()
DataIni = Screen.Item(“setpointinicio”).Value
DataFim = Screen.Item(“setpointfim”).Value
Set Report = Application.LoadReport("RelatorioTemperaturas")
Report.Item("Consulta1")SetVariableValue "inicio", DataIni
Report.Item("Consulta1")SetVariableValue "fim", DataFim
Report.PrintPreview()
End Sub
Mas em RunTime, ao pressionar o botão, aparece o seguinte erro: 
Wendhel, está faltando um ponto após o parêntesis.
Atual:
Report.Item(“Consulta1”)SetVariableValue “inicio”, DataIni
Correto:
Report.Item(“Consulta1”).SetVariableValue “inicio”, DataIni
Obrigado pela correção, amigo. Mas ao clicar no botão “Imprimir” o mesmo continua trazendo para a tela de impressão todos os dados do banco de dados e não os que estão apresentados no E3Browser e que consequentemente foi escolhido nos setpoints de inicio e fim. O que pode ser?
Agradecido.
Oi Wendhel, boa tarde!
Acredito que o nome da variável no relatório deve estar diferente do script, por isso, está trazendo todos os dados do banco de dados. Recomendo que confirme se o nome da variável no script, em negrito, e o mesmo da variável da consulta no relatório.
Sub CommandButton2_Click()
DataIni = Screen.Item(“setpointinicio”).Value
DataFim = Screen.Item(“setpointfim”).Value
Set Report = Application.LoadReport(“RelatorioTemperaturas”)
Report.Item(“Consulta1”).SetVariableValue “inicio”, DataIni
Report.Item(“Consulta1”).SetVariableValue “fim”, DataFim
Report.PrintPreview()
End Sub
Exemplo:
Consegui!!
Eu estava usando o filtro da Consulta do E3Browser da Tela(Botão Para consultar), onde na verdade o filtro deveria estar na consulta do Relatório(Botão de Imprimir).
Obrigado pela ajuda, pessoal.
Oi Wendhel,
Parabéns e obrigado pelo retorno!
Caso tenha mais dúvidas, por favor não deixe de enviar.
Grande abraço!
Com certeza não deixarei de enviar minhas dúvidas, pois só assim aprendo mais.
Obrigado novamente.
