BuscaEvento

Função para retornar dados da tabela de eventos, dependendo da parametrização utilizada. O resultado é o mesmo de se utilizar cursores, com a diferença que utilizando a função há um ganho de performance, pois são utilizados eventos já carregados em memória da empresa ativa.

Sintaxe: BuscaEvento(Numero pCodEve, alfa pTipInf, Numero pContador)

pCodEve Variável numérica com o código do evento;

pTipInf Variável alfanumérica contendo o tipo de informação que se deseja retornar, podendo ser:

“R008EVC” Retorna os dados da pasta principal do cadastro de eventos. O último parâmetro (pContador) é ignorado;

“R008INC” Retorna as incidências do evento;

“R008EVB” Retorna as bases do evento;

“R008CAL” Retorna os cálculos válidos do evento;

“R008TCL” Retorna os tipos de colaboradores inválidos do evento;

“R008SIT” Retorna as situações inválidas do evento;

“R008TSA” Retorna os tipos de salário inválidos do evento;

“R008TCO” Retorna os tipos de contratos inválidos do evento;

“R008VIN” Retorna os vínculos inválidos do evento;

pContador Variável Numérica contendo o número do registro que se deseja buscar.

Deseja-se obter o cadastro do evento 1.

<div class="Code"><p>Retorna = BuscaEvento(1, "R008EVC", 0);</p><p></p><p>/* Retorna será igual a 0 pois, apenas neste caso, o último parâmetro será ignorado. */</p><p></p><p>/* Utilização do Resultado da função */</p><p></p><p>wDesEve = R008EVC.DesEve;</p></div>

Deseja-se obter os cálculos válidos do evento 1.

<div class="Code"><p>Indice = 1;</p><p>Retorna = BuscaEvento(1, "R008CAL", Indice);</p><p>Enquanto (Retorna = 0)</p><p>Inicio</p><p></p><p>/* Utilização do Resultado da função */</p><p></p><p>wTipCal = R008CAL.TipCal;</p><p>Indice = Indice + 1;</p><p>Retorna = BuscaEvento(1, "R008CAL", Indice);</p><p>Fim;</p></div>

Quando sair do Enquanto, a variável ‘Retorna’ deverá ser igual a 4, pois a rotina percorrerá todas as bases até que elas acabem, sendo um número diferente de 4, ocorreu algum problema na execução da função;

Importante observar depois que o Retorna passou a ser igual a 4, o conteúdo da tabela R008CAL foi limpo.

Utilização: Gerador de Relatórios e Regras.

Disponível para o módulo: Administração de Pessoal.