English
Español
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. |
<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>/* Chama rotina que faz o agrupamento das alterações de Filiais/Local/Cargo/Chefias e GFip */<br></br>str_agrupa = ",NumCGC,TitRed,CodCbo,GFip,";</p><p><br></br>Se (xLisLoc = "L")<br></br>{<br></br> Se (xAprLoc = "C")<br></br> str_agrupa = str_agrupa + "CodLoc,CodFun,";<br></br> senao<br></br> str_agrupa = str_agrupa + "NomLoc,NomFun,";<br></br>}<br></br>senao<br></br>{<br></br> Se (xAprLoc = "C")<br></br> str_agrupa = str_agrupa + "CodNiv,CodFun,";<br></br>senao<br></br> str_agrupa = str_agrupa + "NomNiv,NomFun,";<br></br>}<br></br>PPPFilAgrFilLocCar(str_agrupa);<br></br>empresa_atual = 0;<br></br>filial_atual = 0;</p><p><br></br>/* Retorna as alterações de Filial, Local e Cargo */<br></br>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);</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 o módulo: SM.
English
Español
