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

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):

A função retornará apenas as atividades ligadas aos itens de descrição de postos de trabalho e cargos (R017HDI e R024HDI) informados no PPRA passado como parâmetro.
A função retornará as atividades ligadas aos itens de descrição de postos de trabalho e cargos (R017HDI e R024HDI) informados no PPRA passado como parâmetro e retornará também as atividades de risco definidas diretamente por posto de trabalho e cargo (R017RIS e R024RIS).
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: retorna itens do Cargo retorna itens do posto.
xPPRA	Numérico	Informar PPRA 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 PPRA 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, PPRA, EstCar, CodCar, EDatRef, "CARREGAR", xRetornoTitulo, xRetornoAtividades);
Enquanto (xRetAti <> 0)
inicio
xAtividadesCargo = xAtividadesCargo + xRetornoTitulo +": "+ xRetornoAtividades + ". ";
@ Verifica se há mais registros @
xRetAti = RetAtividadesRiscoCargoPosto(1, PPRA, EstCar, CodCar, EDatRef, "PROXIMO", xRetornoTitulo, xRetornoAtividades);
fim;

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

Disponível para o módulo: SM.