Ola, sou novo e no Elipse, e estou com a seguinte dificuldade.
Preciso criar uma consulta no E3Broser, onde criei 3 consultas e filtrar por datas.
O Scrip no botao de consultar está assim:
Sub CommandButton1_Click()
menu = Application.SelectMenu(“Consumo||Temperatura||Volume”)
select case menu
case 1 DataIni=Screen.Item(“spDataInicial”).Value
DataFim=Screen.Item(“spDataFinal”).Value
msgbox “ok1”
Set browser=Screen.Item(“E3Browser1”)
browser.SourceQuery=Consulta1
browser.RetrieveE3QueryFields()
msgbox “ok2”
Set consulta = browser.Item(Value)
consulta.SetVariableValue"DataInicial",DataIni
consulta.SetVariableValue"DataFinal",DataFim
browser.Requery()
msgbox “ok3”
case 2 Set browser = Screen.Item(“E3Browser1”)
browser.SourceQuery =“Consulta2”
browser.RetrieveE3QueryFields()
browser.Requery()
case 3 Set browser = Screen.Item(“E3Browser1”)
browser.SourceQuery =“Consulta3”
browser.RetrieveE3QueryFields()
browser.Requery()
end select
End Sub