CPC-RTPRESUS.P

• Rotina utilizada para verificar se o prestador está excluído, possui exclusão programada ou está suspenso na data do movimento.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.

Localização

• Após verificar a data de suspensão do prestador.

Ponto de Utilização

"VER-PREST-SUSPE"

Include das definições das tabelas temporárias

• cpc-rtpresus.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-rtpresus-entrada

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

field nm-ponto-chamada                   as char format "x(20)"
field lg-erro                                        as log

Definição campo a campo da tabela de entrada

• • • nm-ponto-chamada - Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa rtpresus.p.
    • lg-erro - Campo que indica se ocorreu a classe de erro do prestador suspenso.
      
      

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

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

field lg-erro                                        as log
field ds-mensagem-erro                     as char format "x(50)"
field lg-undo-retry                               as log

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

• • • lg-erro - Campo que indica se ocorreu a classe de erro do prestador suspenso.
    • ds-mensagem-erro - Deve conter mensagens de erro ou qualquer outro tipo de mensagem. Utilizado em conjunto com lg-undo-retry.
    • 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.