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

RetornaAtividadesRiscoPosto

Obtém de um determinado posto de trabalho, em uma determinada data, suas respectivas atividades de risco. Consolida as atividades por item de descrição de posto (R017HDI), por GHE(R583REV) e diretamente por posto (R017RIS) conforme os assinalamentos "Atividade de Risco" (R000SEG), "Atividade Posto", "Atividade GHE" (R583CAD).

Sintaxe: RetornaAtividadesRiscoPosto(Numero aEstPos, Alfa aPosTra, Data aDatRef, Alfa aAcao, Alfa End aDesAtv, Alfa End aObsAte, Numero End aAchou);

Parâmetros:

Nome	Tipo	Descrição
aEstPos	Numérico	Estrutura do posto
aPosTra	Alfa	Posto de trabalho
aDatRef	Data	Data de referência
aAcao	Alfa	Indica a ação que a função deve executar: -> 'CARREGAR': ação que carrega as atividades de risco -> 'PROXIMO': ação que posiciona a lista no próximo registro
aDesAtv	Alfa	Retorna a descrição da atividade
aObsAte	Alfa	Retorna a descrição detalhada da atividade
aAchou	Numero	Retorna: -> 1 se encontrou atividades de risco -> 0 se não encontrou atividades de risco

Exemplo:

Definir Numero aEstPos;
Definir Alfa aPosTra;
Definir Alfa aDesAtv;
Definir Alfa aObsAte;
Definir Numero aAchou;
Definir Alfa xAtividades;
Definir Alfa xAtividade;

aEstPos = 1;
aPosTra = "BR_001";
xAtividades = "";
RetornaAtividadesRiscoPosto(aEstPos, aPosTra, DatSis, "CARREGAR", aDesAtv, aObsAte, aAchou);
Enquanto (aAchou = 1) {
xAtividade = "Descrição atividade: " + aDesAtv + " Observações: " + aObsAte;
Se (xAtividades = "") {
xAtividades = xAtividade;
} senao {
xAtividades = xAtividades + " " + xAtividade;
}
RetornaAtividadesRiscoPosto(aEstPos, aPosTra, DatSis, "PROXIMO", aDesAtv, aObsAte, aAchou);
}

Utilização: Editor de regras e gerador de relatórios.

Disponível para o módulo: Todos os módulos do Gestão de Pessoas | HCM.