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 PGR 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 PGR 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:
|
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.