PPPRetFilLocCar

Função que retorna as alterações de Filial, Local e Cargo que foram carregadas pela função PPPCarLocCarAti.

Sintaxe: Funcao PPPRetFilLocCar(Alfa TipOp,Numero End DtIni,Numero End DtFim,Numero End EAtu,Numero End CFil,Alfa End TFil,Numero End TIns,Numero End NCGC,Numero End TOrg,Numero End Loc,Alfa End CodLoc,Alfa End NomLoc);

Parâmetros:

Nome Tipo Descrição
TipOp Alfa Tipo de Operação a ser realizada. As possíveis operações estão abaixo:
I - Início. Busca a primeira alteração de Filial/Local/Cargo;
P - Próximo. Busca a última alteração de Filial/Local/Cargo.
DtIni Numérico Retorna o período inicial da alteração de Filial/Local/Cargo.
DtFim Numérico Retorna o período final da alteração de Filial/Local/Cargo.
EAtu Numérico Retorna a Empresa da Filial.
CFil Numérico Retorna o código da Filial.
TFil Alfa Retorna o Tipo da Filial.
TIns Numérico Retorna o Tipo de Inscrição da Filial.
NCGC Numérico Retorna o Número da Inscrição da Filial.
TOrg Numérico Retorna o Organograma.
Loc Numérico Retorna o Local.
CodLoc Alfa Retorna o Local mascarado.
NomLoc Alfa Retorna a descrição do Local.

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;
}

Utilização: Gerador de relatórios.

Disponível para o módulo: SM e Administração de Pessoal.

Este artigo ajudou você?