Exibindo a hora atual em um Relatório de Seção.

Descrição:

Como posso exibir a hora atual em um Relatório de Seção do Elipse E3?

Solução:

Para isso, deve-se criar um Tag Demo do tipo CurrentTime e, através de script, passar o valor deste tag para um campo de dados do Relatório de Seção.

Para formatar o valor, ajuste a propriedade *OutputFormat neste mesmo script conforme a formatação desejada.

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

NOTA: A partir da versão 6.8 do Elipse E3, a propriedade OutputFormat está acessível via E3 Studio: