Devido à descontinuação da versão 6.10.3, que ocorrerá em 30/09/2025, informamos que este manual não receberá atualizações a partir desta data. Para mais informações sobre a evolução do Gestão de Pessoas | HCM, acesse a documentação sobre a PCVV - Política do Ciclo de Vida das Versões.

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.

Este artigo ajudou você?