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

RetornaAtividadesRiscoColaborador

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

Sintaxe: RetornaAtividadesRiscoColaborador (Numero aNumEmp, Numero aTipCol, Numero aNumCad, Data aDatRef, Alfa aAcao, Alfa End aDesAtv, Alfa End aObsAte, Numero End aAchou);

Parâmetros:

Nome	Tipo	Descrição
aNumEmp	Numérico	Código da empresa
aTipCol	Numérico	Tipo de colaborador
aNumCad	Numérico	Cadastro do colaborador
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 aNumEmp;
Definir Numero aTipCol;
Definir Numero aNumCad;
Definir Alfa aDesAtv;
Definir Alfa aObsAte;
Definir Numero aAchou;
Definir Alfa xAtividades;
Definir Alfa xAtividade;

aNumEmp = 1;
aTipCol = 1;
aNumCad = 1;

xAtividades = "";
RetornaAtividadesRiscoColaborador(aNumEmp, aTipCol, aNumCad, DatSis, "CARREGAR", aDesAtv, aObsAte, aAchou);
Enquanto (aAchou = 1) {
xAtividade = "Descrição atividade: " + aDesAtv + " Observações: " + aObsAte;
Se (xAtividades = "") {
xAtividades = xAtividade;
} senao {
xAtividades = xAtividades + " " + xAtividade;
}
RetornaAtividadesRiscoColaborador(aNumEmp, aTipCol, aNumCad, 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.