CPC-TWPFISDZ.P

• Rotina chamada na trigger de atualização dos dados do EMS para o GPS na Pessoa Física.
• Esta rotina irá sobrescever a atualização dos dados do contratante, pessoa física, enquanto beneficiário. Ou seja, se executada a rotina CPC, não será verificado se o contratante atualizado é também um beneficiário, e consequentemente não será atualizado os seus dados de beneficá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 do programa twpfisdz.p, após atualizar os dados do contratante.

Ponto de Utilização

"DADOS-CONTRAT"

Include das definições das tabelas temporárias

• cpc-twpfisdz.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-twpfisdz-entrada

define temp-table tmp-cpc-twpfisdz-entrada no-undo

field nm-ponto-chamada                as character format "x(15)"
field in-evento-programa                as character format "x(10)"
field nr-insc-contratante                  like contrat.nr-insc-contratante
field nr-cgc-cpf                                like contrat.nr-cgc-cpf
field nm-contratante                       like contrat.nm-contratante
field r-contrat                                  as rowid
field en-rua                                     like contrat.en-rua
field en-bairro                                 like contrat.en-bairro
field cd-cidade                                like contrat.cd-cidade
field nm-email                                 like contrat.nm-email
field en-uf                                       like contrat.en-uf
field en-cep                                    like contrat.en-cep
field dt-nascimento-fundacao         like contrat.dt-nascimento-fundacao
field in-est-civil                                like contrat.in-est-civil
field nm-filiacao-mae                      like contrat.nm-filiacao-mae
field nm-contratante-ant                 like contrat.nm-contratante
field cd-cpf-ant                               as character format "x(14)"

Definição campo a campo da tabela de entrada

• • • nm-ponto-chamada – Nome do ponto de chamada "DADOS-CONTRAT".
    • in-evento-programa – Nome do evento de chamada "ALTERA".
    • nr-insc-contratante – Número de Inscrição do contratante que está sendo atualizado.
    • nr-cgc-cpf – Número do CPF do contratante, atualizado pelos dados do EMS.
    • nm-contratante – Nome do contratante, atualizado pelos dados do EMS.
    • r-contrat – Rowid do contrante que está sendo atualizado.
    • en-rua – Rua do contratante, atualizado pelos dados do EMS.
    • en-bairro – Bairro do contratante, atualizado pelos dados do EMS.
    • cd-cidade – Cidade do contratante, atualizado pelos dados do EMS.
    • nm-email – Email do contratante, atualizado pelos dados do EMS.
    • en-uf – UF do contratante, atualizado pelos dados do EMS.
    • en-cep – CEP do contratante, atualizado pelos dados do EMS.
    • dt-nascimento-fundacao – Data de Nascimento do contratante, atualizado pelos dados do EMS.
    • in-est-civil – Estado civil do contratante, atualizado pelos dados do EMS.
    • nm-filiacao-mae – Nome da Mãe do contratante, atualizado pelos dados do EMS.
    • nm-contratante-ant – Nome do contratante, antes da atualização pelos dados do EMS.
    • cd-cpf-ant – Número do CPF do contratante, antes da atualização pelos dados do EMS.
      
      

Tabela de saída tmp-cpc-twpfisdz-saida

define temp-table tmp-cpc-twpfisdz-saida no-undo

field lg-undo-retry                   as logical
field ds-mensagem-erro         as character

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

• • • lg-undo-retry – Variável que controla os erros dentro da CPC. Deve retornar SIM se erros aconteceram e NÃO se o processo foi concluído por completo.
    • ds-mensagem-erro – Deve conter mensagens de erro caso ocorram.