English
Español
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. |
Exemplo:
<div class="Code"><p class="p_1">xNumEmp = 1;<br></br>xTipCol = 1;<br></br>xNumCad = 1;<br></br>xConRis = "T";<br></br><br></br>CarregaRiscosGHE(xdatate, xNumEmp, xTipCol, xNumCad, 0, 0, 0, "", 0, 0, xConRis); <br></br><br></br>xAgentesListados = "";<br></br>xRet = RetornaRiscosGHE("INICIO", xCodAgt, xDesAgt, xGraRis, xQuaAge, xQuaCol, xQuaAte, xVlrTWA, xVlrLEq, xVlrNEN, xConIns);<br></br>Enquanto (xRet = 1)<br></br>{<br></br>agente = Formatar(xcodagt,"%0.0f");<br></br>AlteraControle("DCodAgt","Descrição",agente);<br></br>AlteraControle("DDesAgt","Descrição",xdesagt);<br></br><br></br>/* Verifica se o Agente já foi listado. Se sim, não lista novamente. */<br></br>agente = Formatar(xcodagt,"%0.0f") + ",";<br></br>PosicaoAlfa(agente, xAgentesListados, xPosAgt);<br></br>Se (xPosAgt = 0)<br></br>{<br></br>xAgentesListados = xAgentesListados + agente; <br></br>ListaSecao("Adicional_2");<br></br>}<br></br>xRet = RetornaRiscosGHE("PROXIMO", xCodAgt, xDesAgt, xGraRis, xQuaAge, xQuaCol, xQuaAte, xVlrTWA, xVlrLEq, xVlrNEN, xConIns);<br></br>}</p></div>
Utilização: Gerador de relatórios.
Disponível para o módulo: SM.
English
Español
