RetornaEPIsColaborador

Obtém todos os EPIs de um determinado colaborador, em uma determinada data.

Sintaxe: RetornaEPIsColaborador (Numero aNumEmp, Numero aTipCol, Numero aNumCad, Data aDatRef, Alfa aAcao, Numero End aCodEpi, Alfa End aDesEpi, Numero End aAchou).

Parâmetros:

Nome Tipo Descrição
aNumEmp Numérico Código da empresa
aTipCol Numérico Tipo de colaborador
aNumCad Numérico Cadastro do colaborador
aDatRef Data Data de referência.
aAcao Alfa Indica a ação que a função deve executar:
-> 'CARREGAR': ação que carrega as atividades de risco
-> 'PROXIMO': ação que posiciona a lista no próximo registro
aCodEpi Numérico Retorna o código do EPI
aDesEpi Alfa Retorna a descrição do EPI
aAchou Numero Retorna:
-> 1 se encontrou EPIs
-> 0 se não encontrou EPIs

Exemplo:

Definir Numero aNumEmp;
Definir Numero aTipCol;
Definir Numero aNumCad;
Definir Numero aCodEpi;
Definir Alfa aDesEpi;
Definir Numero aAchou;
Definir Alfa epis;
Definir Alfa epi;

aNumEmp = 1;
aTipCol = 1;
aNumCad = 1;


RetornaEPIsColaborador(aNumEmp, aTipCol, aNumCad, DatSis, aEstPos, aCodEpi, aDesEpi, aAchou);
Enquanto (aAchou = 1) {
epi = "Código: " + aCodEpi + " Descrição: " + aDesEpi;
Se (epis = "") {
epis = epi;
} Senao {
epis = epis + " " + epi;
}
RetornaEPIsColaborador(aNumEmp, aTipCol, aNumCad, DatSis, aEstPos, aCodEpi, aDesEpi, aAchou)
}

Utilização: Editor de regras e gerador de relatórios.

Disponível para os módulos: Todos os módulos do Gestão de Pessoas | HCM.

Este artigo ajudou você?