Ajustes na Tela de Indicadores das Válvulas

<< Clique para Mostrar o Sumário >>

 

Ajustes na Tela de Indicadores das Válvulas

1.Expanda o nodo da Tela scrIndicadoresValvulas.

2.Clique com o botão direito do mouse no objeto Consulta cnsInversoes.

3.Configure a Consulta para que sua fonte de dados seja o objeto drvEPM_UA.

4.O tipo de leitura da Consulta é Dados Processados, e o ponto inicial do EPM a ser consultado é /Objects/1:BasicVariables/1:Destilacao_FC100_Direction.

5.Defina a coluna Título com o valor "ValueInv" e selecione o item NumberOfTransitions na coluna Função.

Consulta cnsInversoes

Consulta cnsInversoes

6.Na aba Variáveis, configure apenas o parâmetro TimeInterval com o valor "3600" e clique em OK.

7.Configure a Consulta cnsSaturacao para que sua fonte de dados seja o objeto drvEPM_UA.

8.O tipo de leitura desta Consulta é Dados Processados, e o ponto inicial do EPM a ser consultado é /Objects/1:BasicVariables/1:Destilacao_FC100_Saturacao.

9.Defina a coluna Título com o valor "ValueSat" e selecione o item DurationInStateNonZero na coluna Função.

Consulta cnsSaturacao

Consulta cnsSaturacao

10.Na aba Variáveis, configure apenas o parâmetro TimeInterval com o valor "3600" e clique em OK.

11.No evento OnPreShow da Tela scrIndicadoresValvulas, adicione o script a seguir após a linha indicada por TODO.

'Configuração e execução das consultas UA
itensPath = Split(Arg, ".")
valv = itensPath(UBound(itensPath))
set campos = Item("cnsSaturacao").GetE3QueryFields()
campos.Item(0).ColumnName = "/Objects/1:DataObjects/1:Destilacao_" & valv & "_Saturacao"
campos.Item(0).Alias = "ValueSat"
campos.RefreshUaNodeIds()
Item("cnsSaturacao").SetVariableValue "StartTime", DateAdd("h", -1, Now)
Item("cnsSaturacao").SetVariableValue "EndTime", Now
Item("cnsSaturacao").GetAsyncADORecordset()
set campos = Item("cnsInversoes").GetE3QueryFields()
campos.Item(0).ColumnName = "/Objects/1:DataObjects/1:Destilacao_" & valv & "_Direction"
campos.Item(0).Alias = "ValueInv"
campos.RefreshUaNodeIds()
Item("cnsInversoes").SetVariableValue "StartTime", Date & " " & Hour(Now)-3 & ":00:00"
Item("cnsInversoes").SetVariableValue "EndTime", Date & " " & Hour(Now) & ":59:59"
Item("cnsInversoes").GetAsyncADORecordset()

 

12.Salve a Tela scrIndicadoresValvulas.

13.A Tela scrIndicadoresValvulas pode ser acessada pela área da Destilação, ao clicar em uma das válvulas. No menu contextual da válvula, selecione a opção Informações da Válvula.

14.Execute a aplicação Elipse E3 e navegue por todas as áreas para visualizar os resultados. Agora, esta aplicação está integrada ao EPM para visualizar dados em tempo real e histórico.

Esta página foi útil?