RetornaCodigoRiscosGHE

Função que retorna as principais informações dos laudos dos perigos/fatores de risco do Grupo Homogêneo de Exposição (GHE), alimentados pela função de programador CarregaRiscosGHE.

A função RetornaCodigoRiscosGHE pode ser utilizada quando se faz necessário buscar alguma informação da tabela GHE - Revisão do GHE - Laudo (R583LAU) e esta, por sua vez, é retornada pela função RetornaRiscosGHE. A função RetornaCodigoRiscosGHE retorna os campos-chave da tabela, usando-os para viabilizar a busca nesta tabela.

Sintaxe: RetornaCodigoRiscosGHE(Alfa Posicao, Numero End CodPRA, Numero End CodGHE, Alfa End RevGHE, Numero End CodAgt);

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 CodPRA Numérico Código do PGR.
End CodGHE Numérico Código do GHE.
End RevGHE Alfanumérico Código da revisão do GHE.
End CodAgt Numérico Código 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);

xRet = RetornaCodigoRiscosGHE("INICIO", xCodPRA, xCodGHE, xRevGHE, xCodAgt);

Enquanto (xRet = 1)

{ FCodAgt = xCodAgt; xRet = RetornaCodigoRiscosGHE("PROXIMO", xCodPRA, xCodGHE, xRevGHE, xCodAgt); }

Utilização: Gerador de Relatórios.

Disponível para os módulos: Segurança do Trabalho, Medicina Ocupacional.

Este artigo ajudou você?