cpc-api-set0003.p1

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