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  objeto Texto (TextBox).
3. Insira um script no Relatório de Seção para passar o valor do Tag Demo para o TextBox.
4. 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)
    
    dim minhaData
    dim tagValue = Application.GetServerValue("Dados.HoraAtual")

    If TypeOf tagValue Is DateTime Then
        minhaData = tagValue
    else
        minhaData = DateTime.FromOADate(tagValue)
    end if

    Me.TextBox1.OutputFormat = "dd/MM/yyyy hh:mm:ss"
    Me.TextBox1.Value = minhaData
End Sub