O ACE possui funcionalidade integrada e ferramentas para diversos fins. É recomendável usar essa funcionalidade ao gravar em VBS. Como o VBS é uma linguagem interpretada, a reprodução dela no VBS compromete o desempenho.
Encontra-se a seguir, uma lista de funções integradas e o modo apropriado para usá-las:
IsWithinTimeslot
Essa é a forma mais simples de funções integradas. Seu objetivo é permitir que lógica de negócios indique se, no momento, o sistema encontra-se dentro de um período de atividade ou não. Isso elimina a necessidade de gerenciar uma variável na entrada do período de atividade e as funções de saída do período de atividade para fazer a mesma coisa. Por exemplo, em vez de executar o seguinte código:
Dim amIWithinATimeslot
Sub OnTimeslotEnter(time)
amIWithinATimeslot = 1
End sub
Sub OnTimeslotExit(time)
amIWithinATimeslot = 0
End sub
Sub OnEvent(eventDetails)
If amIWithinATimeslot = 1 Then
count = count + 1
End if
End sub
É possível executar esse código mais simples:
Sub OnEvent(eventDetails)
If context.IsWithinTimeslot Then
count = count + 1
End if
End sub
Essa funcionalidade não atenderá às suas necessidades, se deseja usar ou manter as informações sobre a data e hora da entrada e saída do período de atividade. Mas, em geral, isto não é necessário, e esse código é suficiente.
TimeOfLastEvent
Esta função apresenta a data e hora do último evento de dados brutos ou intermediários que foi manipulado. Isso significa que não é necessário salvar essas informações no manipulador de eventos, pois elas estão diretamente disponíveis por meio desta função. Por exemplo:
Function result
Dim LastEventTimestamp
LastEventTimestamp = Context.TimeOfLastEvent
End function
TimeOfLastEventHandler
Essa função retorna a data e hora do manipulador do último evento chamado pelo ACE. Isso inclui não somente os manipuladores de evento de dados brutos e intermediários, mas também os eventos do sistema que foram chamados. Isso é especialmente útil em manipuladores de evento que não recebem a hora da função de resultado, por exemplo. Por exemplo:
Function result
Dim LastEventHandlerTimestamp
LastEventHandlerTimestamp= Context.TimeOfLastEventHandler
End function
NetTime
Essa função permite especificar dois carimbos de data e hora e receber o tempo líquido (em segundos) em que o sistema estava dentro do período de atividade da regra atual entre os dois carimbos de data e hora. Essa é uma funcionalidade muito complicada e não deve ser implementada no VBS. Se ela for implementada no VBS, será necessário manter uma lista de todas as entradas e saída do período de atividade ou calcular a diferença entre o tempo de entrada e saída do período de atividade a fim de calcular o intervalo entre eles. Em condições extremas, isso pode ocorrer diversas vezes e não é bom para o cálculo de desempenho. A função interna faz o mesmo após a otimização significativa, e, por isso, é muito eficiente. Por exemplo:
Function result
Dim MyNetTime
MyNetTime = Tools.NetTime(MyBeginTimestamp, MyEndTimestamp)
End function
O objeto de contexto
O objeto de contexto tem uma variedade de parâmetros que fornecem informações sobre:
Acessar essas informações diretamente a partir do banco de dados usando o ODBC seguro não é nada produtivo e não faz sentido, pois as informações estão prontamente disponíveis pelo objeto de contexto. Se possível, use sempre a funcionalidade integrada como uma forma de obter mais informações.
| Copyright © 2012 CA. Todos os direitos reservados. | Enviar email à CA Technologies sobre este tópico |