cpc-rtinadim.p1

Rotina utilizada para interagir no calculo da data de inadimplência do contratante.
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 rtinadim1.p.
Pontos de Utilização
"ANTES-DT-UTIL": Na procedure que calcula o primeiro dia útil caso a data de vencimento seja num sábado, domingo ou feriado.
"ESPECIE": Ao verificar espécie do título no Contas a Receber do EMS 5.
"ANTES-CRIAR-TIT": Antes de criar a tabela temporia de título inadimplentes.
Include das definições das tabelas temporárias
cpc-rtinadim.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-rtinadim-entrada
def temp-table tmp-cpc-rtinadim-entrada no-undo
field in-evento-programa as char format "x(06)"
field nm-ponto-chamada-cpc as char format "x(15) "
field portador like contrat.portador
field dt-util like fatura.dt-vencimen
field cod-estabel like propost.cod-estabel
field cod-especie as char format "x(03)"
field r-tit-acr as rowid
field r-propost as rowid
field in-tipo-titulo-inadim like for-pag.in-tipo-titulo-inadim.
Definição campo a campo da tabela de entrada
in-evento-programa – Evento do programa que chama a cpc-rtinadim. Este campo terá como valor inicial:
"CONSULTA".
nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa rtinadim1.p, que pode ser: "ANTES-DT-UTIL" ou "ESPECIE".
portador – Indica o portador do contratante.
dt-util – Data do vencimento da fatura.
Cod-estabel – Indica o código do estabelecimento identificado na proposta do contratante.
Cod-especie – Espécie do título no Contas a Receber do EMS 5.
r-tit-acr – ROWID do título.
r-propost – rowid da proposta
in-tipo-titulo-inadim – Tipo do tipo parametrizado na forma de pagamento da proposta.
Tabela de saída tmp-cpc-rtinadim-saida
def temp-table tmp-cpc-rtinadim-saida no-undo
field dt-util like fatura.dt-vencimen
field classif-dia as char format "x(08)"
field lg-erro as log
field ds-mensagem-retorno as char format "x(75)"
field lg-proximo-titulo as log.
Definição campo a campo da tabela de saída
dt-util – Data do vencimento da fatura a ser considerada após a execução da cpc.
classif-dia – Indica o código da classe do dia do calendário global conforme parametrização do sistema administrativo EMS5.
Ds-mensagem-retorno – Descrição da mensagem de erro retornada pelo programa CPC.
Lg-proximo-titulo – Quando este campo retornar com "Sim", o título será desconsiderado no cálculo de inadimplência.
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.