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 |
<div class="Code"><p>Definir Numero aNumEmp;<br></br>Definir Numero aTipCol;<br></br>Definir Numero aNumCad;<br></br>Definir Numero aCodEpi;<br></br>Definir Alfa aDesEpi;<br></br>Definir Numero aAchou;<br></br>Definir Alfa epis;<br></br>Definir Alfa epi;<br></br><br></br>aNumEmp = 1;<br></br>aTipCol = 1;<br></br>aNumCad = 1;</p><p><br></br>RetornaEPIsColaborador(aNumEmp, aTipCol, aNumCad, DatSis, aEstPos, aCodEpi, aDesEpi, aAchou);<br></br>Enquanto (aAchou = 1) {<br></br> epi = "Código: " + aCodEpi + " Descrição: " + aDesEpi;<br></br> Se (epis = "") {<br></br>epis = epi;<br></br>} Senao {<br></br> epis = epis + " " + epi;<br></br>}<br></br>RetornaEPIsColaborador(aNumEmp, aTipCol, aNumCad, DatSis, aEstPos, aCodEpi, aDesEpi, aAchou)<br></br>}</p></div>
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
