Gestão de Pessoas - Manual do Usuário > Customizações > Funções > RetornaRiscosGHE

RetornaRiscosGHE

Função que retorna as informações dos perigos/fatores de risco do GHE, carregados pela função de programador CarregaRiscosGHE.

Sintaxe: RetornaRiscosGHE(Alfa Posicao, Numero End CodAgt, Alfa End DesAgt, Numero End GraRis, Numero End QuaAge, Numero End QuaCol, Numero End QuaAte, Numero End VlrTWA, Numero End VlrLEq, Numero End VlrNEN, Alfa End ConIns);

Parâmetros:

Nome	Tipo	Descrição
Posicao	Alfanumérico	Contém a posição de seleção dos dados. Os valores possíveis são: INICIO ou PROXIMO.
End CodAgt	Numérico	Código do perigo/fator de risco.
End DesAgt	Alfanumérico	Descrição do perigo/fator de risco.
End GraRis	Numérico	Grau de risco.
End QuaAge	Numérico	Quantificação do perigo/fator de risco.
End QuaCol	Numérico	Quantificação do perigo/fator de risco considerando fator de redução.
End QuaAte	Numérico	Quantificação final do perigo/fator de risco.
End VlrTWA	Numérico	Nível médio de pressão sonora (Ruído).
End VlrLEq	Numérico	Nível médio baseado na equivalência de energia sonora (Ruído).
End VlrNEN	Numérico	Nível de exposição normalizado (Ruído).
End ConIn	Alfanumérico	Considera Insalubridade. Informação do campo Insalubridade do Laudo do Perigo/Fator de Risco.
End ConAso	Alfanumérico	Retorna a informação do campo Considera no ASO do Laudo do Perigo/Fator de Risco.

Exemplo:

xNumEmp = 1;
xTipCol = 1;
xNumCad = 1;
xConRis = "T";

CarregaRiscosGHE(xdatate, xNumEmp, xTipCol, xNumCad, 0, 0, 0, "", 0, 0, xConRis);

xAgentesListados = "";
xRet = RetornaRiscosGHE("INICIO", xCodAgt, xDesAgt, xGraRis, xQuaAge, xQuaCol, xQuaAte, xVlrTWA, xVlrLEq, xVlrNEN, xConIns);
Enquanto (xRet = 1)
{
agente = Formatar(xcodagt,"%0.0f");
AlteraControle("DCodAgt","Descrição",agente);
AlteraControle("DDesAgt","Descrição",xdesagt);

/* Verifica se o Agente já foi listado. Se sim, não lista novamente. */
agente = Formatar(xcodagt,"%0.0f") + ",";
PosicaoAlfa(agente, xAgentesListados, xPosAgt);
Se (xPosAgt = 0)
{
xAgentesListados = xAgentesListados + agente;
ListaSecao("Adicional_2");
}
xRet = RetornaRiscosGHE("PROXIMO", xCodAgt, xDesAgt, xGraRis, xQuaAge, xQuaCol, xQuaAte, xVlrTWA, xVlrLEq, xVlrNEN, xConIns);
}

Utilização: Gerador de relatórios.

Disponível para o módulo: SM.

PORTAL DE DOCUMENTAÇÃO
Gestão de Pessoas \| HCM - versão 6.10.3