English
Español
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.
English
Español
