Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS RH

Linha de Produto:

Linha Protheus

Segmento:

RH

Módulo:SIGAGPE
Função:Não possui
País:Brasil
Ticket:Não possui
Requisito/Story/Issue (informe o requisito relacionado) :DRHROTPRT-16


02. SITUAÇÃO/REQUISITO

Necessidade de criação de tabela para representar os Benefícios do Funcionário para utilização na simplificação do eSocial para Órgãos Públicos.

03. SOLUÇÃO

Criada tabela responsável pelos registros de Beneficiários ref. a Órgãos Públicos - RI0, a tabela é composta pelos campos abaixo:

CampoOrdemTítuloDescriçãoTipoTamanhoFormatoContextoPropriedadeGrupo de CamposOpçõesVal. SistemaInicializador PadrãoConsulta PadrãoWhen
RI0_FILIAL1FilialFilial1-Caracter2
1-Real1-Alterar033




RI0_MAT2MatrículaMatrícula1-Caracter6@!1-Real2-Visualizar121

SRA->RA_MAT

RI0_CPF3CPFCPF1-Caracter11@R 999.999.999-991-Real2-Visualizar


SRA->RA_CIC

RI0_CODUNI4Cód. ÚnicoCódigo Único eSocial1-Caracter30@!1-Real1-Alterar

fVldCodUni()If(SRA->RA_EAPOSEN == '1', SRA->RA_CODUNIC,'')SRA08If(SRA->RA_EAPOSEN == '1', .F.,.T.)
RI0_CNPJO5CNPJ Ori.CNPJ de Origem1-Caracter14@R 99.999.999/9999-991-Real1-Alterar

Vazio() .Or. CGC(M->RI0_CNPJO)


RI0_CADINI6Data Cd. Ini.Data Cadastro Inicial4-Data1@!1-Real1-Alterar
1=Sim;2=NãoPertence(" 12")


RI0_SITBEN7Sit. Benef.Situação Benefício1-Caracter1@!1-Real1-Alterar
1=Benefício concedido pelo próprio órgão declarante;2=Benefício transferido de outro órgão;3=Mudança de CPF do beneficiárioPertence(" 123")


RI0_NRBEN8Nr. Benef.Número Benefício1-Caracter20@!1-Real1-Alterar

fVlNrBen(M->RI0_NRBEN)


RI0_DTINIB9Dt.Ini.Ben.Data Início do Benefício4-Data8
1-Real1-Alterar

NaoVazio() .And. fVldDtIn()


RI0_DTPUBLI10Dt.Publi.Data Publicação Benefício4-Data8
1-Real1-Alterar

NaoVazio() .And. fVldDtPubl()


RI0_TPBEN11Tp. Benef.Tipo de Benefício1-Caracter4@!1-Real1-Alterar

VALIDRCC("S145",M->RI0_TPBEN, 1, 4) .And. fVlTpBen()
S145
RI0_TPPLAN12Tp.Pl.Segr.Tipo Plano Segregação1-Caracter1@!1-Real1-Alterar
0=Sem segregação da massa;1=Fundo em capitalização;2=Fundo em repartição;3=Mantido pelo TesouroPertence(" 0123")


RI0_DSC13Ds.Or.Benef.Descrição Origem Benefício1-Caracter6@!1-Real1-Alterar





RI0_DSCMEM14Ds.Or.Benef.Descrição Origem Benefício5 - Memo255@!2-Virtual1-Alterar


IF(INCLUI,"",MSMM(RI0->RI0_DSC,255,,,,,"RI0",,"RDY"))

RI0_DECJUD15Det.JudicialDeterminação Judicial1-Caracter1@!1-Real1-Alterar

Pertence(" 12")


RI0_TPMORT16Tp.Pen.MorteTipo Pensão Morte1-Caracter1@!1-Real1-Alterar
1=Vitalícia;2=TemporáriaPertence(" 12")


RI0_CPFMOR17CPF. Inst.CPF do Instituidor1-Caracter11@R 999.999.999-991-Real1-Alterar

Vazio() .Or. ChkCPF(M->RI0_CPFMOR)


RI0_DTOBIT18Dt. ÓbitoData do Óbito4-Data8
1-Real1-Alterar





RI0_CNPJA19CNPJ Or.Ant,CNPJ Órgão Anterior1-Caracter4@R 99.999.999/9999-991-Real1-Alterar

Vazio() .Or. CGC(M->RI0_CNPJA)


RI0_NRBENA20Nr.Ben.Ant.Número Benefício Anterior1-Caracter1@!1-Real1-Alterar





RI0_DTTRAN21Dt.Transf.Data Transferência4-Data8
1-Real1-Alterar





RI0_OBS22Ob.Tran.Ben.Observação Transferência Benefício1-Caracter6
1-Real1-Alterar





RI0_OBSMEM23Ob.Tran.Ben.Observação Transferência Benefício5 - Memo255
2-Virtual1-Alterar


IF(INCLUI,"",MSMM(RI0->RI0_OBS,255,,,,,,"RI0",,"RDY"))

RI0_CPFANT24CPF Ant.CPF Anterior1-Caracter11@R 999.999.999-991-Real1-Alterar

(Vazio() .Or. ChkCPF(M->RI0_CPFANT)) .And. fGp19CPF()


RI0_NRBEAN25Nr.Ben.AntNúmero Benefício Anterior1-Caracter20@!1-Real1-Alterar





RI0_DTALTC26Dt.Alt.CPFData Alteração CPF4-Data8
1-Real1-Alterar





RI0_OBSALT27Obs.Mud.CPFObservação Mudança CPF1-Caracter6
1-Real1-Alterar





RI0_OBSAME28Obs.Mud.CPFObservação Mudança CPF5 - Memo255
2-Virtual1-Alterar


IF(INCLUI,"",MSMM(RI0->RI0_OBSALT,255,,,,,,"RI0",,"RDY"))

RI0_DTTERM29Dt. TérminoData Término 4-Data8
1-Real1-Alterar

fDtTerm()


RI0_TERMOT30Mot. Térm.Motivo Térmico1-Caracter2
1-Real1-Alterar

VALIDRCC("S146",M->RI0_TERMOT, 1, 2)
S146


Índice:

OrdemDescriçãoChave
1Matrícula + CPF + Cód. Único + Nr. Benef.RI0_FILIAL+RI0_MAT+RI0_CPF+RI0_CODUNI+RI0_NRBEN


Consulta Padrão - S145

ConsultaDescriçãoTabelaExpressãoRetorno
S145Tp.Benefícios Org.P.RCCGP310SXB("S145", "CODTPBEN")VAR_IXB


Consulta Padrão - S146

ConsultaDescriçãoTabelaExpressãoRetorno
S146Motivo Término BenefRCCGP310SXB("S146", "CODMOTIVO")VAR_IXB


04. DEMAIS INFORMAÇÕES

N/A


05. ASSUNTOS RELACIONADOS

  • N/A