1.Expanda o nodo da Tela scrInicial e clique com o botão direito do mouse na Consulta cnsMoenda. Selecione a opção Configurar.

2.Selecione o Driver drvEPM_UA como fonte de dados da Consulta.

3.Na janela de configuração, selecione a opção Dados Processados no grupo Tipo de leitura e adicione o Tag EficMoenda. Digite "EficMoenda" na coluna Título e selecione o item TimeAverage na coluna Função.

Consulta cnsMoenda

4.Na aba Variáveis, configure os parâmetros StartTime, EndTime e TimeInterval com os valores "01/01/2014", "01/01/2015" e "2592000", respectivamente. Em seguida, clique em OK.

5.Configure as Consultas cnsFermCaldo, cnsFermMel e cnsDestilacao da mesma forma que a Consulta cnsMoenda, substituindo os Tags para EficFermentacaoCaldo, EficFermentacaoMel e EficDestilacao, respectivamente.

6.Adicione no evento Change do objeto cbSafra (que é a lista para seleção da safra) o script a seguir. Este script atualiza o período de cada Consulta e as utiliza para a atualização dos gráficos.

Screen.SetFocus()
Status = "Carregando..."
Screen.Item("lblEficSafraMoenda").Value = Status
Screen.Item("lblEficSafraFermCaldo").Value = Status
Screen.Item("lblEficSafraFermMel").Value = Status
Screen.Item("lblEficSafraDest").Value = Status
consultas = Array("cnsMoenda", "cnsFermCaldo", "cnsFermMel", "cnsDestilacao")
Safra = Value
For Each consulta In consultas
  Screen.Item(consulta).SetVariableValue "StartTime", "01/01/" & Safra
  Screen.Item(consulta).SetVariableValue "EndTime", "01/01/" & Safra + 1
  Screen.Item(consulta).GetAsyncADORecordset()
Next

7.Salve a Tela scrInicial.