RetornaLevantaNecessidades
Função que retorna o tipo, código e nome do curso, código da família, código do assunto e Possui Requisitos ( "S" ou "N"). 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 da função CarregaLevantaNecessidades.
Sintaxe: RetornaLevantaNecessidades(xPosicao, xTipCur, xCodCur, xNomCur, xCodFam, xFamAss, xTemreq);
Parâmetros:
| Nome | Tipo | Descrição |
| xPosicao | Alfa | Variável que contém a posição de seleção dos dados. |
| xTipCur | Alfa | Variável que retorna o tipo de curso. |
| xCodCur | Alfa | Variável que retorna o código do curso. |
| xNomCur | Alfa | Variável que retorna o nome do curso. |
| xCodFam | Alfa | Variável que retorna o código da família de conhecimentos. |
| xFamAss | Alfa | Variável que retorna o código do assunto. |
| xTemreq | Alfa | Variável que retorna "S" ou "N" para o critério Possui 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.
Disponível para o(s) Módulo(s): TR
English
Español
