Acessando objetos do Elipse E3 em scripts do Relatórios de Seção.

Descrição:

A partir da versão 6.8 do Elipse E3, foi introduzida uma nova funcionalidade que permite acessar objetos do E3 diretamente nos scripts dos Relatórios de Seção, por meio dos métodos GetServerObject, GetViewerObject e GetScreenObject do objeto Application.

Anteriormente, era possível acessar apenas os valores de objetos através dos métodos Get(Server/Viewer/Screen)Value. Com o novo recurso, é possível obter referências completas dos objetos, permitindo manipulá-los da mesma forma que nos scripts VBScript tradicionais usados ​​no E3.

Exemplo:

Com o código abaixo, é possível alterar o valor de uma tag do servidor e, em seguida, salvar a pasta de dados correspondente.

dim tag = Application.GetServerObject("Dados.TagServer")
tag.Value = "relatório"

dim server = Application.GetServerObject("Dados")
server.Save

Neste segundo exemplo, é possível acessar os registros retornados de um Recordset a partir de uma consulta do servidor:

dim query = Application.GetServerObject("Dados.Consulta1")
dim rs = query.GetADORecordset()
msgbox(rs.Fields.Item("E3TimeStamp").Value)