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"
• "TRATA-MOV-BENEF"
• "GRAVA-MEN-BENEF"
• "TRATA-DEP"
• "TRATA-CAR-ESPEC"
• "TRATA-IMP"
• "NOME-SOCIAL"
• "FIM-CARGA-REG3" - a partir da versão 12.1.2311.

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 dt-inclusao-origem   as date
    fields nr-rowid-tmprpben    as rowid
    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(100)"
    fields cd-motivo-cancelamento as int
    fields cd-contratante like tmprpben.cd-contratante
    fields nr-lote-imp          like tmprpben.nr-lote-imp
    fields nr-sequencia-benef   like tmprpben.nr-sequencia-benef
    fields nr-sequencia-real    like tmprpben.nr-sequencia-real
    fields in-tipo-movimento    like tmprpben.in-tipo-movimento
    fields cd-usuario like tmprpben.cd-usuario
    fields nr-linha as int
    fields nr-cpf               as char
    fields nm-usuario     as char 
    fields cd-funcionario       as char 
    fields ds-mensagem          as char
    fields ds-complemento       as char
    fields ds-string-imp        as char
    fields ds-extensao-arq      as char
    fields hb-tmp-set0003-benef as handle
    fields nr-campos-parametros as int.

Definição campo a campo da tabela de entrada

• • in-evento-programa – evento do programa que chama a cpc-api-set0003.
  • nm-ponto-chamada-cpc – nome do ponto de chamada da cpc dentro do programa que a utiliza.
  • 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
  • cd-motivo-cancelamento - código do motivo de cancelamento
  • cd-contratante - código do contratante da proposta
  • nr-lote-imp - número do lote de importação
  • nr-sequencia-benef - Numero sequencial da linha do arquivo 
  • nr-sequencia-real - Numero sequencial da linha do arquivo
  • in-tipo-movimento - indica o tipo de movimento
  • cd-usuario - código do usuário
  • nr-linha - número da linha do arquivo
  • nr-cpf - cpf do usuário
  • nm-usuario - nome do usuário
  • cd-funcionario - código do funcionário - modalidade empresarial
  • ds-mensagem - mensagem do sistema
  • ds-complemento - complemento da mensagem do sistema
  • ds-string-imp - conteúdo referente a linha do beneficiário
  • ds-extensao-arq -   
  • hb-tmp-set0003-benef -
  • nr-campos-parametros -

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 lg-dt-receb-arq       as logical
    fields ds-mensagem-relatorio as char format "x(75)"
    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(100)"
    fields cd-motivo-cancelamento as int
    fields lg-next as log
    fields ds-string-imp         as char
    fields nr-campos-parametros  as int
    fields ds-msg-erro           as char.

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
• cd-motivo-cancelamento - código do motivo de cancelamento
• lg-next - desconsidera o registro
• ds-string-imp - conteúdo referente a linha do beneficiário
• nr-campos-parametros -
• ds-msg-erro - .