CPC-RC0113A.P

• Rotina utilizada para exclusão do campo específico que obriga guia de autorização.
• 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 no máximo um registro na tabela temporária de saída.

Localização

• Final da Exclusão.

Ponto de Utilização 

• "FINAL-EXCLUI"

Include das definições das tabelas temporárias

• cpc-rc0113a.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-rc0113a-entrada

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

field in-evento-programa                      as char format "x(06)"
field nm-ponto-chamada-cpc               as char format "x(15)"
field rw-tipoinsu                                    as rowid

Definição campo a campo da tabela de entrada

• in-evento-programa – Nome do evento do ponto de chamada dentro do programa que a utiliza. 
• nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa rc0113a.p:
  • "FINAL-EXCLUI"
• rw-tipoinsu - rowid da tabela tipoinsu

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

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

field lg-undo-retry                               as log
field ds-mensagem                             as char format "X(75)".

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

• lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC. Se o retorno desta variável for igual a SIM, indicará que erros aconteceram e se o retorno for igual à NÃO, indicará que o processo foi concluído por completo.
• ds-mensagem – Variável que retornar mensagem de erro, se ocorrido dentro da CPC.