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

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:

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

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

xAgentesListados = "";
xRet = RetornaRiscosGHE("INICIO", xCodAgt, xDesAgt, xGraRis, xQuaAge, xQuaCol, xQuaAte, xVlrTWA, xVlrLEq, xVlrNEN);
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);
}

Utilização: Gerador de relatórios.

Disponível para o Módulo:SM.