Imprimindo as datas do filtro de uma consulta em um Relatório de Seção.

• No Viewer, crie dois tags internos (DataIni e DataFim) para armazenar o valor dos SetPoints de data inicial e final que estão na tela.
• No script que gera o relatório, atribua o valor dos SetPoints (Data Inicial/Final) aos tags que foram criados anteriormente no Viewer.
• No relatório, adicione dois campos de dados na seção PageHeader.
• Adicione um script no editor do relatório para passar o valor de cada tag criado anteriormente para a propriedade Value dos campos de dados, como o exemplo a seguir:

Sub ActiveReport_ReportStart
dim Application = Activator.CreateInstance(Type.GetTypeFromProgID("Reports.E3ApplicationLink"))
Application.LinkWithApplication(rpt)
Me.Label1.Value = Application.GetViewerValue("StartDate")
Me.TextBox1.Value = Application.GetViewerValue("EndDate")
End Sub

Sub ActiveReport_ReportStart
dim Application = Activator.CreateInstance(Type.GetTypeFromProgID("Reports.E3ApplicationLink"))
Application.LinkWithApplication(rpt)
Me.Label1.Value = Application.GetViewerValue("StartDate")
Me.TextBox1.Value = Application.GetViewerValue("EndDate")
End Sub