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

CarregaLevantaNecessidades

Função que carrega os dados a serem utilizados na função RetornaLevantaNecessidades.

Usada na regra de Seção Detalhe, essa função é utilizada somente em um modelo da cópia (TRDE001.GER - Levantamento de Necessidades).
Sua funcionalidade depende das funções MontaCriteriosFormacao, MontaCriteriosAperfeicoamento e MontaCriteriosConhecimento.

Sintaxe: CarregaLevantaNecessidades(xNumEmp, xTipCol, xNumCad, xCmpRef, xTabOrg, xCodLoc, xEstCar, xCodCar, xTodosCol, xTodosReq);

Parâmetros:

Nome	Tipo	Descrição
xNumEmp	Numérica	Variável que contém o código da empresa.
xTipCol	Numérica	Variável que contém o código do tipo de colaborador.
xNumCad	Numérica	Variável que contém o código do colaborador.
xCmpRef	Numérica	Variável que contém data de emissão do relatório.
xTabOrg	Numérica	Variável que contém o código da tabela de organograma.
xCodLoc	Alfa	Variável que contém o código do local.
xEstCar	Numérica	Variável que contém o código da estrutura de cargos.
xCodCar	Alfa	Variável do tipo Alfa que contém o código do cargo.
xTodosCol	Alfa	Variável do tipo Alfa cujo valor deve ser "S (Sim)" ou "N (Não)" para todos os colaboradores.
xTodosReq	Alfa	Variável do tipo Alfa cujo valor deve ser "S (Sim)" ou "N (Não)" para todos os requisitos.

Exemplo:

Deseja-se montar um relatório que liste todos os colaboradores e somente os requisitos que o colaborador não possui para o seu cargo.
Na Pré-Seleção , deve-se incluir as funções MontaCriteriosFormacao, MontaCriteriosAperfeicoamento e MontaCriteriosConhecimento passando como parâmetro as informações da tela de entrada.
MontaCriteriosFormacao (EHisCuf, EAndCuf, EComCuf, EDesCuf, ESusCuf, EMedCuf, EFreCuf, ETrfCuf, EAbrCuf, EAbrAss);
MontaCriteriosAperfeicoamento (EHisCua, EValCua, ERevCua, ECerApr, ECerPar, EAndCua, EComCua, EDesCua, ESusCua, EMedCua, EFreCua, ETrfCua, EAbrCua);
MontaCriteriosConhecimento(EHisCnc, EValCnc, EAprSim, EAprNao, EAbrCnc, EabrFam);

Em seguida, insira as funções CarregaLevantaNecessidades e RetornaLevantaNecessidades (passando como primeiro parâmetro Inicio) na Seleção.
Definir Alfa xcodcar;
xnumemp = R034FUN.NumEmp;
xtipcol = R034FUN.TipCol;
xnumcad = R034FUN.NumCad;

/* LOCAL NA DATA INFORMADA */
RetLocEmp(xnumemp, xtipcol, xnumcad, xdatref);
xtaborg = TabOrgEmp;
xnumloc = LocEmp;

/* CARGO NA DATA INFORMADA */
RetCarEmp(xnumemp, xtipcol, xnumcad, xdatref);
xestcar = EstCarEmp;
xcodcar = CarEmp;

CarregaLevantaNecessidades(xnumemp, xtipcol, xnumcad, ECmpRef, xtaborg, xnumloc, xestcar, xcodcar, ETodCol, ETodReq, EReqHFu);
RetornaLevantaNecessidades("Inicio", xtipcur, xcodcur, xnomcur, xcodfam, xfamass, xtemreq);

Então no evento Depois Imprimir da seção Detalhe, chamar a função RetornaLevantaNecessidades passando como primeiro parâmetro Proximo.
RetornaLevantaNecessidades("Proximo",xtipcur, xcodcur, xnomcur, xcodfam, xfamass, xtemreq);

Utilização: Gerador de relatórios.

Observação: As variáveis cujo valor devem ser "S" ou "N" funcionam da seguinte maneira:
Se o usuário escolher a opção "S", ao carregar os dados este critério será considerado.
Se a variável xTodosCol = "N", serão selecionados somente os colaboradores que não possuam algum requisito para o cargo, caso contrário, serão selecionados todos os colaboradores indeferentes de terem o requisito ou não.
Se a variável xTodosReq = "N", serão listados somente os requisitos que o colaborador não possui, caso contrário, serão listados todos os requisitos.

Disponível para o módulo:TR.