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

PPPFilAgrFilLocCar

Função que agrupa as alterações de Filiais/Local/Cargo carregadas pela função PPPCarLocCarAti de acordo com os campos passados como parâmetro. Os dados agrupados poderão ser buscados através das funções PPPRetFilLocCar e PPPRetFilLocCarEx.

Se o agrupamento for passado vazio para a função, ela desagrupará as alterações (se já tiver sido feito um agrupamento).

Sintaxe: Funcao PPPFilAgrFilLocCar(Alfa aStrAgr);

Parâmetro:

Nome	Tipo	Descrição
aStrAgr	Alfa	Indica para a função quais campos devem ser considerados para agrupamento. Os campos disponíveis para agrupamento estão relacionados a seguir e devem ser separados pelo caractere ",": NumCGC, CodLoc, NomLoc, CodNiv, NomNiv, CodCar, TitRed, CodCbo, CodFun, NomFun e GFip.

Exemplo:

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

/* Chama rotina que faz o agrupamento das alterações de Filiais/Local/Cargo/Chefias e GFip */
str_agrupa = ",NumCGC,TitRed,CodCbo,GFip,";

Se (xLisLoc = "L")
{
     Se (xAprLoc = "C")
        str_agrupa = str_agrupa + "CodLoc,CodFun,";
     senao
       str_agrupa = str_agrupa + "NomLoc,NomFun,";
}
senao
{
    Se (xAprLoc = "C")
        str_agrupa = str_agrupa + "CodNiv,CodFun,";
senao
        str_agrupa = str_agrupa + "NomNiv,NomFun,";
}
PPPFilAgrFilLocCar(str_agrupa);
empresa_atual = 0;
filial_atual = 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;
}

Utilização: Gerador de relatórios.

Disponível para o módulo: SM.