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

RetornaRiscosGHE

Função que retorna as informações dos agentes de riscos 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 agente de risco.
End DesAgt	Alfanumérico	Descrição do agente de risco.
End GraRis	Numérico	Grau de risco.
End QuaAge	Numérico	Quantificação do agente de risco.
End QuaCol	Numérico	Quantificação do agente de risco considerando fator de redução.
End QuaAte	Numérico	Quantificação final do agente 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 Agente de Risco.
End ConAso	Alfanumérico	Retorna a informação do campo Considera no ASO do Laudo do Agente 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.