CPC-CG0113B.p

• Rotina chamada na programa que exclui prestadores
• 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 cg0113b.p , após alterar os dados do prestador.

Ponto de Utilização

• "APOS-CONSULTA" , "APÓS-EXCLUI" e

Include das definições das tabelas temporárias

• cpc-cg0113b.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-cg0113b-entrada

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

field in-evento-programa                   as char format "x(06)"
field nm-ponto-chamada-cpc            as char format "x(15)"
field r-preserv                                    as rowid.

Definição campo a campo da tabela de entrada

• • • in-evento-programa – Evento do programa que chama a CPC-CG0113B.P igual a "EXC"
    • nm-ponto-chamada – Nome do Ponto de Utilização, que deve ser "APOS-CONSULTAI" E "APÓS-exclui".
    • R-preserv – Registro do prestador a ser consultado.

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

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

field lg-undo-retry                         as logical
field ds-mensagem-erro              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 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.