Descrição:
Posso utilizar mais de uma consulta por relatório?
Solução:
Não; o relatório do E3 aceita apenas uma consulta. Caso seja necessário utilizar diferentes comandos SQL, é preciso passá-los para a consulta do relatório via scripts da seguinte maneira:
Exemplo 1 – “Botão 1” (imprimir valores da tag demo1):
Set Report = Application.LoadReport("[Relatório1]")
Set Consulta = Report.Item("Consulta1")
Consulta.SQL = "SELECT Historico.E3TimeStamp,Historico.TagDemo1 FROM Historico ORDER BY Historico.E3TimeStamp ASC"
Consulta.Table = "Historico"
Consulta.OrderBy = "Historico.E3TimeStamp ASC"
Consulta.Fields = "Historico.E3TimeStamp,Historico.TagDemo1"
Consulta.DataSource = "BancoDados1"
Consulta.Execute()
Report.Export "PDF","testeelipse1.pdf"
Exemplo 2 – “Botão 2” (imprimir valores da tag demo2):
Set Report = Application.LoadReport("[Relatório1]")
Set Consulta = Report.Item("Consulta1")
Consulta.SQL = "SELECT Historico.E3TimeStamp,Historico.TagDemo2 FROM Historico ORDER BY Historico.E3TimeStamp ASC"
Consulta.Table = "Historico"
Consulta.OrderBy = "Historico.E3TimeStamp ASC"
Consulta.Fields = "Historico.E3TimeStamp,Historico.TagDemo2"
Consulta.DataSource = "BancoDados1"
Consulta.Execute()
Report.Export "PDF","testeelipse2.pdf"
NOTA: A aplicação exemplo em anexo foi feita usando o E3 versão 3.1 Build 241
Anexos:
