English
Español
RetornaFilialLocalCargo
Função que retorna as alterações de Filial, Local e Cargo que foram carregadas pela função PPPCarLocCarAti.
Importante
Esta função substitui a função PPPRetFilLocCar.
Sintaxe: RetornaFilialLocalCargo (Alfa TipOp,Numero End DtIni,Numero End DtFim,Numero End EAtu,Numero End CFil,Alfa End TFil,Numero End TIns,Alfa 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 | Alfa | 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. |
<div class="Code"><p>/* Carrega todas as alterações de Filial/Local/Cargo */<br></br>PPPCarLocCarAti (xnumemp, xtipcol, xnumcad, xperini, xperfim, "S", xAprFun, EAbrAgt, 0, 0, 0, "");</p><p><br></br>/* Retorna as alterações de Filial, Local e Cargo */<br></br>ret_filloccar = RetornaFilialLocalCargo("I", ret_datini, ret_datfim, ret_empatu, ret_filemp, ret_nomfil, ret_tipins, ret_numcgc, ret_taborg, ret_numloc, ret_codloc, ret_nomloc);</p><p><br></br>Se (ret_filloccar <> 0)<br></br>{<br></br> Se (ret_tipins = 1)<br></br> AlteraControle("FCNPJLot", "Edição Campo", "Z99.999.999/9999.99");<br></br> Senao<br></br> Se (ret_tipins = 2)<br></br> AlteraControle("FCNPJLot", "Edição Campo", "99.999.99999/99");<br></br> Senao<br></br> Se (ret_tipins = 3)<br></br> AlteraControle("FCNPJLot", "Edição Campo", "999.999.999.99");<br></br> Senao<br></br> Se (ret_tipins = 4)<br></br> AlteraControle("FCNPJLot", "Edição Campo", "ZZZZZZZZZZZZZZZZZZ9");<br></br> FCNPJLot = ret_numcgc;<br></br>}</p></div>
Utilização: Gerador de relatórios.
Disponível para os módulos: Segurança e Medicina e Administração de Pessoal.
English
Español
