RetAtividadesRiscoCargoPosto

Retorna uma lista com as atividades de risco de um posto ou um cargo, considerando o assinalamento das Atividades de Risco da tela de Configuração de Segurança do Trabalho (Segurança > Configurações de Segurança):

  1. A função retornará apenas as atividades ligadas aos itens de descrição de postos de trabalho e cargos (R017HDI e R024HDI) informados no PGR passado como parâmetro.
  2. A função retornará as atividades ligadas aos itens de descrição de postos de trabalho e cargos (R017HDI e R024HDI) informados no PGR passado como parâmetro e retornará também as atividades de risco definidas diretamente por posto de trabalho e cargo (R017RIS e R024RIS).
  3. A função retornará apenas as atividades ligadas diretamente por posto de trabalho e cargo (tabelas R017RIS e R024RIS).

Sintaxe: Funcao RetAtividadesRiscoCargoPosto(Numero xTipoAtividade, Numero xPPRA, Numero xEstrutura, Alfa xCodigo, Data xDatRef, Alfa xAcao, Alfa End xTituloAtividade, Alfa End xDescricaoAtividade);

Parâmetros:

Nome Tipo Descrição
xTipoAtividade Numérico

Indica quais itens de descrição devem ser retornados:

  1. retorna itens do Cargo
  2. retorna itens do posto.
xPPRA Numérico Informar PGR que será utilizado para buscar a configuração das atividades de risco.
xEstrutura Numérico Estrutura do cargo ou posto de trabalho.
xCodigo Alfa Código do cargo ou posto de trabalho.
xDatRef Data Data de referência para buscar as atividades de risco.
xAcao alfa Indica a ação que a função deve executar:
-> 'CARREGAR': ação que carrega os itens de descrição do PGR para o Posto ou Cargo informado na data de referência, posicionando no primeiro registro da lista.
-> 'INICIO': ação que posiciona a lista no primeiro registro.
-> 'PROXIMO': ação que posiciona a lista no próximo registro.
xTituloAtividade Alfa Título da atividade na posição atual da lista.
xDescricaoAtividade Alfa Descrição da atividade na posição atual da lista.

Tipo de Retorno: Própria função - Retorna "0" (zero) quando não há registro na posição atual, e "1" (um) quando há registro na posição atual da lista.

Exemplo:

@ Armazenar todas as atividades de um cargo em uma variável do tipo alfa @
Definir alfa CodCar;
Definir alfa xAtividadesCargo;
Definir alfa xRetornoTitulo;
Definir alfa xRetornoAtividades;

xRetAti = RetAtividadesRiscoCargoPosto(1, PGR, EstCar, CodCar, EDatRef, "CARREGAR", xRetornoTitulo, xRetornoAtividades);
Enquanto (xRetAti <> 0)
inicio
xAtividadesCargo = xAtividadesCargo + xRetornoTitulo +": "+ xRetornoAtividades + ". ";
@ Verifica se há mais registros @
xRetAti = RetAtividadesRiscoCargoPosto(1, PGR, EstCar, CodCar, EDatRef, "PROXIMO", xRetornoTitulo, xRetornoAtividades);
fim;

Utilização: Gerador de relatórios e editor de regras.

Disponível para o módulo: SM.

Este artigo ajudou você?