KB-28926: Trocando a consulta do E3Browser em tempo de execução.

Descrição:

Como trocar a consulta do E3Browser por outra consulta existente no aplicativo?


Solução:

Para isto, deve-se alterar a propriedade SourceQuery do E3Browser, e depois executar o método Requery(). Caso a estrutura das consultas seja diferente, é preciso executar também o método RetrieveE3QueryFields().

Por exemplo:

Set browser = Screen.Item("E3Browser1")
browser.SourceQuery = "Query2"
browser.RetrieveE3QueryFields()
browser.Requery()

Caso haja filtros, deve-se utilizar o método SetVariableValue() após a consulta ter sido definida. Por exemplo, o script a seguir pode ser colocado no evento Change de um ComboBox que lista todas as consultas existentes:

Dim dataini, datafim, query
dataini = Screen.Item("Text1").Value
datafim = Screen.Item("Text2").Value

Set browser = Screen.Item("E3Browser1")
browser.SourceQuery = Value

Set consulta = browser.Item(Value)
consulta.SetVariableValue "DataIni", dataini
consulta.SetVariableValue "DataFim", datafim

browser.RetrieveE3QueryFields()
browser.Requery()

Para que o ComboBox liste todas as consultas existentes, basta percorrer os itens do E3Browser adicionando seus nomes. Por exemplo:

Clear()
For each obj in Screen.Item("E3Browser1")
    AddItem obj.Name
Next
Print Friendly, PDF & Email

Este artigo foi útil? Was this helpful?

Classificação média - Average rating 5 / 5. Count: 1

Thoughts on “KB-28926: Trocando a consulta do E3Browser em tempo de execução.

Leave a Reply

Your email address will not be published.Required fields are marked *