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	Descripción
aNumEmp	Numérico	Código de la empresa
aTipCol	Numérico	Tipo de empleado
aNumCad	Numérico	Registro del empleado
aDatRef	Fecha	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	Número	Retorna: -> 1 se encontrou EPIs -> 0 se não encontrou EPIs

Ejemplo:

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.