English
Español
CarregaRiscosGHE
Sintaxe: CarregaRiscosGHE(Numero DatRef, Numero NumEmp, Numero TipCol, Numero NumCad, Numero TabOrg, Numero NumLoc, Numero EstCar, Alfa CodCar, Numero EstPos, Alfa PosTra, Alfa ConRis);
Parâmetros:
Nome | Tipo | Descrição |
DatRef | Numérica | Data de referência. |
NumEmp | Numérica | Empresa do colaborador. |
TipCol | Numérica | Tipo do colaborador. |
NumCad | Numérica | Número de Cadastro do colaborador. |
TabOrg | Numérica | Tabela de organograma. |
NumLoc | Numérica | Número do local. |
EstCar | Numérica | Estrutura de cargo. |
CodCar | Alfanumérico | Código do cargo. |
EstPos | Numérico | Estrutura de posto. |
PosTra | Alfanumérico | Posto de trabalho. |
ConRis | Numérica | Considera agentes de riscos com situação “N” = Não controlados apenas ou “T” = Todos. |
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, , xConRis); <br></br><br></br>xAgentesListados = "";<br></br>xRet = RetornaRiscosGHE("INICIO", xCodAgt, xDesAgt, xGraRis, xQuaAge, xQuaCol, xQuaAte, xVlrTWA, xVlrLEq, xVlrNEN);<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);<br></br>} </p></div>
Utilização: Gerador de relatórios.
Disponível para o Módulo:SM.
English
Español
