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

PPPRetFilLocCarEx

Retorna informações adicionais da alteração de Filial/Local/Cargo retornada pela função PPPRetFilLocCar. Esta função deve ser chamada após chamar a função PPPRetFilLocCar.

Sintaxe: Funcao PPPRetFilLocCarEx(Numero End Est,Alfa End Car,Alfa End Cbo,Alfa End TRed, Numero End OrgFun,Numero End Numfun,Alfa End LocFun,Alfa End NomFun,Numero End GFip,Numero End LocNiv,Alfa End CodNiv,Alfa End NomNiv);

Parâmetros:

Nome	Tipo	Descrição
Est	Numérico	Retorna a Estrutura de Cargo.
Car	Alfa	Retorna o Cargo.
Cbo	Alfa	Retorna o CBO do Cargo.
TRed	Alfa	Retorna o Título do Cargo.
OrgFun	Numérico	Retorna o Organograma o Local da Função.
Numfun	Numérico	Retorna o Local da Função.
LocFun	Alfa	Retorna o Local mascarado da Função.
NomFun	Alfa	Retorna a descrição do Local da Função.
GFip	Numérico	Retorna o código de GFIP .
LocNiv	Numérico	Retorna o Local conforme Nível do PPRA (definido no organograma).
CodNiv	Alfa	Retorna o Local mascarado conforme Nível do PPRA.
NomNiv	Alfa	Retorna a descrição do local conforme Nível do PPRA.

Exemplo:

/* Carrega todas as alterações de Filial/Local/Cargo */
PPPCarLocCarAti (xnumemp, xtipcol, xnumcad, xperini, xperfim, "S", xAprFun, EAbrAgt, 0, 0, 0, "");

/* Retorna as alterações de Filial, Local e Cargo */
ret_filloccar = PPPRetFilLocCar("I", ret_datini, ret_datfim, ret_empatu, ret_filemp, ret_nomfil, ret_tipins, ret_numcgc, ret_taborg, ret_numloc, ret_codloc, ret_nomloc);

Se (ret_filloccar <> 0)
{
    Se (ret_tipins = 1)
       AlteraControle("FCNPJLot", "Edição Campo", "Z99.999.999/9999.99");
    Senao
    Se (ret_tipins = 2)
       AlteraControle("FCNPJLot", "Edição Campo", "99.999.99999/99");
    Senao
    Se (ret_tipins = 3)
       AlteraControle("FCNPJLot", "Edição Campo", "999.999.999.99");
    Senao
    Se (ret_tipins = 4)
       AlteraControle("FCNPJLot", "Edição Campo", "ZZZZZZZZZZZZZZZZZZ9");
    FCNPJLot = ret_numcgc;
    /* Carrega informações adicionais da alteração de Filial/Local/Cargo */
    PPPRetFilLocCarEx(ret_estcar, ret_codcar, ret_cbocar, ret_titred, ret_orgfun, ret_numfun, ret_locfun, ret_nomfun, ret_gfip, ret_locniv, ret_codniv, ret_nomniv);
    lot_local = ret_codloc;
}

Utilização: Gerador de relatórios.

Disponível para o módulo: SM.