CPC-API-SET0003.p

Rotina utilizada para:

• mudar qualquer informação do registro da tabela tmprpben
• considerar a data de recebimento do arquivo como data de exclusão e inclusão do beneficiário.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
• Será permitido para esta CPC apenas um registro na tabela temporária de saída. Caso possuir mais de um registro um erro será reportado.

Localização

• Dentro da api-set0003.p, após a criação da tabela tmprpben.
• Dentro da api-set0003.p, no momento da importação da data de exclusão do beneficiário

Ponto de Utilização

• "cria-tmprpben"
• "dt-receb-arq"
• "GRAVA-TEMP"

Include das definições das tabelas temporárias

• cpc-api-set0003.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-api-set0003-entrada

def temp-table tmp-cpc-api-set0003-entrada no-undo

fields in-evento-programa                  as char format "x(15)"
fields nm-ponto-chamada-cpc           as char format "x(15) "
fields lg-mensagem-na-tela               as logical
fields nr-rowid-tmprpben                    as rowed
fields dt-inclusao-origem                    as date
fields cd-modalidade                         like modalid.cd-modalidade
fields nr-proposta                              like propost.nr-proposta
fields nr-layout                                  as int format "99"
fields char-1                                     as char format "x(30)"
fields char-2                                     as char format "x(30)"
fields char-3                                     as char format "x(30)"
fields char-4                                     as char format "x(30)"
fields char-5                                     as char format "x(30)"
fields char-6                                     as char format "x(60)"
fields char-7                                     as char format "x(60)"
fields char-8                                     as char format "x(60)"
fields char-9                                     as char format "x(60)"
fields char-10                                   as char format "x(60)".

Definição campo a campo da tabela de entrada

• • in-evento-programa – Evento do programa que chama a cpc-api-set0006. Os valores desse campo podem ser:

"INCLUI".

"GRAVA-TEMP". 

• • nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa api-set0003.p:

"CRIA-TMPRPBEN"

"DT-RECEB-ARQ"

"GRAVA-TEMP"

• • lg-mensagem-na-tela – Indica se as mensagens de erro devem ser dispostas na tela ou não. Caso o indicador for não o campo da tabela de saída ds-mensagem-relatorio deve ser preenchido. (não obrigatório).
  • nr-rowid-tmprpben – Rowid da tabela tmprpben
  • dt-inclusao-origem – Data de inclusão do beneficiário na unidade de origem
  • cd-modalidade – código da modalidade
  • nr-proposta – número da proposta
  • nr-layout – número do layout em utilização
  • char-1 – utilizados como reserva
  • char-2 – utilizados como reserva
  • char-3 – utilizados como reserva
  • char-4 – utilizados como reserva
  • char-5 – utilizados como reserva
  • char-6 – utilizados como reserva
  • char-7 – utilizados como reserva
  • char-8 – utilizados como reserva
  • char-9 – utilizados como reserva
  • char-10 – utilizados como reserva

Tabela de saída tmp-cpc-api-set0003-saida

def temp-table tmp-cpc-api-set0003-saida no-undo

fields lg-undo-retry                      as logical
fields ds-mensagem-relatorio      as char format "x(75)".
fields lg-dt-receb-arq                   as log
fields char-1                               as char format "x(30)"
fields char-2                               as char format "x(30)"
fields char-3                               as char format "x(30)"
fields char-4                               as char format "x(30)"
fields char-5                               as char format "x(30)"
fields char-6                               as char format "x(60)"
fields char-7                               as char format "x(60)"
fields char-8                               as char format "x(60)"
fields char-9                               as char format "x(60)"
fields char-10                             as char format "x(60)".

Definição campo a campo da tabela de saída

• lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC deve retornar SIM se erros aconteceram e NÃO se o processo foi concluído por completo.
• ds-mensagem-relatorio – Deve conter mensagens de erro ou qualquer outro tipo de mensagem. Utilizado em conjunto com a entrada lg-mensagem-na-tela. Se lg-mensagem-na-tela for Não então esse campo deve ser preenchido.
• lg-dt-receb-arq – indica se será será ou não considerada a data de recebimento do arquivo como data de exclusão e inclusão do beneficiário
• char-1 – utilizados como reserva
• char-2 – utilizados como reserva
• char-3 – utilizados como reserva
• char-4 – utilizados como reserva
• char-5 – utilizados como reserva
• char-6 – utilizados como reserva
• char-7 – utilizados como reserva
• char-8 – utilizados como reserva
• char-9 – utilizados como reserva
• char-10 – utilizados como reserva