Gestão de Pessoas - Manual do Usuário > Customizações > Funções > BuscaEvento

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)

Parâmetros:

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.

Retorno:

0	Operação foi bem sucedida;
1	Os eventos não foram carregados na memória;
2	O evento informado não existe;
3	O pTipInf não existe;
4	Não existe um registro para o valor de pContador.

Exemplo1:

Deseja-se obter o cadastro do evento 1.

Retorna = BuscaEvento(1, "R008EVC", 0);

/* Retorna será igual a 0 pois, apenas neste caso, o último parâmetro será ignorado. */

/* Utilização do Resultado da função */

wDesEve = R008EVC.DesEve;

Exemplo 2:

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

Indice = 1;

Retorna = BuscaEvento(1, "R008CAL", Indice);

Enquanto (Retorna = 0)

Inicio

/* Utilização do Resultado da função */

wTipCal = R008CAL.TipCal;

Indice = Indice + 1;

Retorna = BuscaEvento(1, "R008CAL", Indice);

Fim;

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.