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.