Linha Microsiga Protheus

Árvore de páginas

Tempo aproximado para leitura: 01 min

01. DADOS GERAIS

Linha de Produto:Microsiga Protheus
Segmento:Recursos Humanos
Módulo:SIGAGFP
Função:GFPCONV
Task:DRHGFP-2553


02. SITUAÇÃO/REQUISITO

Copiar a rotina GPECONV para GFPCONV e tratar as seguintes mudanças:

Colocar mensagem verificando o parametro MV_SIGAGFP está habilitado.

Retirar as funcionalidades que não serão utilizadas nesta conversão:


SRA - Funcionarios

CampoDescriçãoConteudo AntigoConteudo NovoObservação
RA_DDDCELUDD Celular
 		‘99 '‘99’Campo na 11.90 estava com 4 posições, na 12 são apenas 2 posições. Realizar AllTrim() no conteúdo do campo.
RA_DDDFONEDD Telefone'99 ''99'Campo na 11.90 estava com 4 posições, na 12 são apenas 2 posições. Realizar AllTrim() no conteúdo do campo
RA_HRSDIA

Round(RA_HRSMES/30 , 4)Campo novo criado na V12 obrigatorio para calculos
RA_REGIMERegime
“2”1=CLT;2=Estatutario                                                                                                            
RA_AFASTFGT


Conforme regra abaixo

*99 conteúdo exemplo.

Incluir tratamento no campo RA_AFASFGT
RA_AFASFGT = (CASE WHEN RA_AFASFGT = "1"  THEN "U3"; 

 WHEN RA_AFASFGT = "2" THEN "I2";
 WHEN RA_AFASFGT = "3 " THEN "I3"
 WHEN RA_AFASFGT = "4" THEN "I4"
 WHEN RA_AFASFGT = "5 " THEN "N1"
 WHEN RA_AFASFGT = "6"  THEN "Q5"
 WHEN RA_AFASFGT = "7"  THEN "Q6"
 WHEN RA_AFASFGT = "9 " THEN "S3"
 WHEN RA_AFASFGT = "B" THEN "Q4"
 WHEN RA_AFASFGT = "I " THEN "I1"
 WHEN RA_AFASFGT = "N" THEN "N2"
 WHEN RA_AFASFGT = "O" THEN "O1"
 WHEN RA_AFASFGT = "P " THEN "P1"
 WHEN RA_AFASFGT = "Q "THEN "Q1"
 WHEN RA_AFASFGT = "S "THEN "S2"
 WHEN RA_AFASFGT = "U " THEN"U1"
 ELSE RA_AFASFGT "

03. SOLUÇÃO

Criação do Fonte GFPCONV.PRW. Disponibilizada a conversão do Cadastro de Funcionários para o GFP.