CPC-CG0111R.p

• Rotina utilizada para executar programas específicos após a consistência dos demais campos existentes do registro do tipo 1. Essa funcionalidade é acessada através do botão consiste.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.

Localização

• No programa cg0110r.p, após a criação do registro na tabela contrat, irá chamar o programa específico.

Ponto de Utilização

• "IMP-ESPECIFICO"

Include das definições das tabelas temporárias

• cpc-cg0111r.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-cg0111r-entrada

def temp-table tmp-cpc-cg0111r-entrada no-undo

field nm-ponto-chamada-cpc                   as char format "x(15)"
field ds-campo-imp                                  as char format "x(2000)"
field nr-insc-contratante                           like contrat.nr-insc-contratante.

Definição campo a campo da tabela de entrada

• • nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa cg0111r.p:
  • "IMP-ESPECIFICO"
  • ds-campo-imp – linha do registro importado.
  • nr-insc-contratante – numero da inscrição.

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

def temp-table tmp-cpc-cg0111r-saida no-undo

field lg-undo-retry                                  as log
field ds-mensagem                               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 – Deve conter mensagens de erro.