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	Descripción
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 al código de la 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.

Ejemplo:

/* 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.