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