...
Criada tabela responsável pelos registros de Beneficiários ref. a Órgãos Públicos - RI0, a tabela é composta pelos campos abaixo:
| Campo | Ordem | Título | Descrição | Tipo | Tamanho | Formato | Contexto | Propriedade | Grupo de Campos | Opções | Val. Sistema | Inicializador Padrão | Consulta Padrão | When |
|---|
| RI0_FILIAL | 1 | Filial | Filial | 1-Caracter | 2 |
| 1-Real | 1-Alterar | 033 |
|
|
|
|
|
| RI0_MAT | 2 | Matrícula | Matrícula | 1-Caracter | 6 | @! | 1-Real |
1AlterarNaoVazio() .And. ExistChav("SRA") |
|
| SRA->RA_MAT |
|
|
| RI0_CPF | 3 | CPF | CPF | 1-Caracter | 11 | @R 999.999.999-99 | 1-Real |
1AlterarChkCPF(M>RI0CPF)| CIC |
|
|
| RI0_CODUNI | 4 | Cód. Único | Código Único eSocial | 1-Caracter | 30 | @! | 1-Real | 1-Alterar |
|
| fVldCodUni() | If(SRA->RA_EAPOSEN == '1', SRA->RA_CODUNIC,'') | SRA08 | If(SRA->RA_EAPOSEN == '1', .F.,.T.) |
| RI0_CNPJO | 5 | CNPJ Ori. | CNPJ de Origem | 1-Caracter | 14 | @R 99.999.999/9999-99 | 1-Real | 1-Alterar |
|
| Vazio() .Or. CGC(M->RI0_CNPJO) |
|
|
|
| RI0_CADINI | 6 | Data Cd. Ini. | Data Cadastro Inicial | 4-Data | 1 | @! | 1-Real | 1-Alterar |
| 1=Sim;2=Não | Pertence(" 12") |
|
|
|
| RI0_SITBEN | 7 | Sit. Benef. | Situação Benefício | 1-Caracter | 1 | @! | 1-Real | 1-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ário | Pertence(" 123") |
|
|
|
| RI0_NRBEN | 8 | Nr. Benef. | Número Benefício | 1-Caracter | 20 | @! | 1-Real | 1-Alterar |
|
| fVlNrBen(M->RI0_NRBEN) |
|
|
|
| RI0_DTINIB | 9 | Dt.Ini.Ben. | Data Início do Benefício | 4-Data | 8 |
| 1-Real | 1-Alterar |
|
| NaoVazio() .And. fVldDtIn() |
|
|
|
| RI0_DTPUBLI | 10 | Dt.Publi. | Data Publicação Benefício | 4-Data | 8 |
| 1-Real | 1-Alterar |
|
| NaoVazio() .And. fVldDtPubl() |
|
|
|
| RI0_TPBEN | 11 | Tp. Benef. | Tipo de Benefício | 1-Caracter | 4 | @! | 1-Real | 1-Alterar |
|
| VALIDRCC("S145",M->RI0_TPBEN, 1, 4) .And. fVlTpBen() |
| S145 |
|
| RI0_TPPLAN | 12 | Tp.Pl.Segr. | Tipo Plano Segregação | 1-Caracter | 1 | @! | 1-Real | 1-Alterar |
| 0=Sem segregação da massa;1=Fundo em capitalização;2=Fundo em repartição;3=Mantido pelo Tesouro | Pertence(" 0123") |
|
|
|
| RI0_DSC | 13 | Ds.Or.Benef. | Descrição Origem Benefício | 1-Caracter |
10| 6 | @! | 1-Real | 1-Alterar |
|
|
|
|
|
|
| RI0_DSCMEM | 14 | Ds.Or.Benef. | Descrição Origem Benefício | 5 - Memo | 255 | @! |
1Real| Virtual | 1-Alterar |
|
|
| IF(INCLUI,"",MSMM(RI0->RI0_DSC,255,,,,,"RI0",,"RDY")) |
|
|
| RI0_DECJUD | 15 | Det.Judicial | Determinação Judicial | 1-Caracter | 1 | @! | 1-Real | 1-Alterar |
|
| Pertence(" 12") |
|
|
|
| RI0_TPMORT | 16 | Tp.Pen.Morte | Tipo Pensão Morte | 1-Caracter | 1 | @! | 1-Real | 1-Alterar |
| 1=Vitalícia;2=Temporária | Pertence(" 12") |
|
|
|
| RI0_CPFMOR | 17 | CPF. Inst. | CPF do Instituidor | 1-Caracter | 11 | @R 999.999.999-99 | 1-Real | 1-Alterar |
|
| Vazio() .Or. ChkCPF(M->RI0_CPFMOR) |
|
|
|
| RI0_DTOBIT | 18 | Dt. Óbito | Data do Óbito | 4-Data | 8 |
| 1-Real | 1-Alterar |
|
|
|
|
|
|
| RI0_CNPJA | 19 | CNPJ Or.Ant, | CNPJ Órgão Anterior | 1-Caracter | 4 | @R 99.999.999/9999-99 | 1-Real | 1-Alterar |
|
| Vazio() .Or. CGC(M->RI0_CNPJA) |
|
|
|
| RI0_NRBENA | 20 | Nr.Ben.Ant. | Número Benefício Anterior | 1-Caracter | 1 | @! | 1-Real | 1-Alterar |
|
|
|
|
|
|
| RI0_DTTRAN | 21 | Dt.Transf. | Data Transferência | 4-Data | 8 |
| 1-Real | 1-Alterar |
|
|
|
|
|
|
| RI0_OBS |
21| 22 | Ob.Tran.Ben. | Observação Transferência Benefício | 1-Caracter |
10| 6 |
| 1-Real | 1-Alterar |
|
|
|
|
|
|
| RI0_OBSMEM |
22| 23 | Ob.Tran.Ben. | Observação Transferência Benefício | 5 - Memo | 255 |
1Real| Virtual | 1-Alterar |
|
|
| IF(INCLUI,"",MSMM(RI0->RI0_OBS,255,,,,,,"RI0",,"RDY")) |
|
|
| RI0_CPFANT |
23| 24 | CPF Ant. | CPF Anterior | 1-Caracter | 11 | @R 999.999.999-99 | 1-Real | 1-Alterar |
|
| (Vazio() .Or. ChkCPF(M->RI0_CPFANT)) .And. fGp19CPF() |
|
|
|
| RI0_NRBEAN |
24| 25 | Nr.Ben.Ant | Número Benefício Anterior | 1-Caracter | 20 | @! | 1-Real | 1-Alterar |
|
|
|
|
|
|
| RI0_DTALTC |
25| 26 | Dt.Alt.CPF | Data Alteração CPF | 4-Data | 8 |
| 1-Real | 1-Alterar |
|
|
|
|
|
|
| RI0_OBSALT |
26| 27 | Obs.Mud.CPF | Observação Mudança CPF | 1-Caracter |
10| 6 |
| 1-Real | 1-Alterar |
|
|
|
|
|
|
| RI0_OBSAME |
27| 28 | Obs.Mud.CPF | Observação Mudança CPF | 5 - Memo | 255 |
1Real| Virtual | 1-Alterar |
|
|
| IF(INCLUI,"",MSMM(RI0->RI0_ |
OBSA| OBSALT,255,,,,,,"RI0",,"RDY")) |
|
|
| RI0_DTTERM |
28| 29 | Dt. Término | Data Término | 4-Data | 8 |
| 1-Real | 1-Alterar |
|
| fDtTerm() |
|
|
|
| RI0_TERMOT |
29| 30 | Mot. Térm. | Motivo Térmico | 1-Caracter | 2 |
| 1-Real | 1-Alterar |
|
| VALIDRCC("S146",M->RI0_TERMOT, 1, 2) |
| S146 |
|
Índice:
| Ordem | Descrição | Chave |
|---|
| 1 | Matrícula + CPF + Cód. Único + Nr. Benef. | RI0_FILIAL+RI0_MAT+RI0_CPF+RI0_CODUNI+RI0_NRBEN |
Consulta Padrão - S145
| Consulta | Descrição | Tabela | Expressão | Retorno |
|---|
| S145 | Tp.Benefícios Org.P. | RCC | GP310SXB("S145", "CODTPBEN") | VAR_IXB |
Consulta Padrão - S146
| Consulta | Descrição | Tabela | Expressão | Retorno |
|---|
| S146 | Motivo Término Benef | RCC | GP310SXB("S146", "CODMOTIVO") | VAR_IXB |
04. DEMAIS INFORMAÇÕES
N/A
...
