PSIGAGPE0786 - GPEA265- Após migrar da P11 para a P12 o sistema passou a apresentar os registros da categoria P - prolabore tanto no GPEA010 como no GPEA265.

Produto:

Protheus.

Ocorrência:

GPEA265- Após migrar da P11 para a P12 o sistema passou a apresentar os registros da categoria P - prolabore tanto no GPEA010 como no GPEA265.

Passo a passo:

Após migrar da P11 para a P12 o sistema passou a apresentar os registros da categoria P - prolabore, tanto no GPEA010- cadastro de funcionários, quanto no GPEA265- cadastro de autônomos.

Na verdade apenas os empregados da categoria P serão apresentados nos programas GPEA010 e GPEA265, conforme os fontes das rotinas na P12.
Se for autônomo (categoria A), será apresentado apenas no GPEA265.
Se for prolabore (categoria P), será apresentado no GPEA265 e GPEA010.
Demais categorias serão apresentadas apenas no GPEA010.

Veja o fonte do GPEA010:
 // Inicializa o filtro                                                          
    cFiltraRh := ChkRh("GPEA010","SRA","1")
    cFiltraRh += IF(!Empty(cFiltraRh),' .and. RA_CATFUNC <> "A"','RA_CATFUNC <> "A"')
          oBrwSRA:SetFilterDefault(cFiltraRh)
          //oBrwSRA:SetAttach(.T.)  

Obs:
Isto significa que todos os registros diferentes de A- autônomos, serão apresentados no GPEA010.

Veja o fonte do GPEA265:
cFiltraRh := CHKRH("GPEA265","SRA","1") 
cFiltraRh += if(!empty(cFiltraRh), '.and. RA_CATFUNC $ "A|P"', 'RA_CATFUNC $ "A|P"')
bFiltraBrw  := {|| FilBrowse("SRA",@aIndexSRA,@cFiltraRH) }
Eval(bFiltraBrw)

Obs:
Isto significa que todos os registros A e P serão apresentados no GPEA265.