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)
