Exibindo a data/hora da criação de um Relatório de Seção.

Descrição:

Como posso exibir no Relatório de Seção do Elipse E3 a data e a hora de sua criação?

Solução:

Para isso, siga estes procedimentos:

1. Insira um Tag Demo com a propriedade Type configurada como 3-Current Time.
2. No Relatório de Seção, insira um Campo ou Texto (Label/TextBox).
3. Insira um script no Relatório de Seção para passar o valor do Tag Demo para o Campo ou TextBox.
4. No script, o tag deve ser convertido para o formato de Data, pois o tag do tipo CurrentTime retorna a hora atual em formato Double.
5. No mesmo script, altere a formatação do Campo ajustando a sua propriedade OutputFormat.

Exemplo:

Sub ActiveReport_ReportStart
dim Application = Activator.CreateInstance(Type.GetTypeFromProgID("Reports.E3ApplicationLink"))
Application.LinkWithApplication(rpt)
Me.TextBox1.Text = DateTime.FromOADate(Application.GetServerValue("Dados.HoraAtual"))
Me.TextBox1.OutputFormat = "dd/MM/yyyy hh:mm:ss"
End Sub