CPC-RTINADIM.P

• Rotina utilizada para interagir no calculo cálculo 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

"VERIFICA-INADIM": Ponto liberado para alterar a inadimplência.
"ESPECIE": Ao verificar espécie do título no Contas a Receber do EMS 5.

"DESCONS-INADIM": Ponto para desconsiderar a inadimplência.

"ANTES-DT-UTIL": Na procedure que calcula o primeiro dia útil caso a data de vencimento seja num sábado, domingo ou feriado

...

.
"ANTES-CRIAR-TIT": Antes de criar a tabela

...

temporária de título inadimplentes.

Include das definições das tabelas temporárias

...

Tabela de entrada tmp-cpc-rtinadim-entrada

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

field in-evento-programa                        as as char format "x(06)"
field nm-ponto-chamada-cpc                  as as char format "x(15) "
field portador                                          like like contrat.portador
field dt-util                                               like fatura.dt-vencimen
field cod-estabel                                     like propost.cod-estabel
field cod-especie                                    as as char format "x(03)"
field r-tit-acr                                            as as rowid
field r-propost                                         as rowid
field in-tipo-titulo-inadim                          like like for-pag.in-tipo-titulo-inadim
field nr-dias-inadim as int
field lg-inadimplente as logical
field dt-controle like guiautor.dt-emissao-guia.

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.
    • Codcod-estabel – Indica o código do estabelecimento identificado na proposta do contratante.
    • Codcod-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.
    • nr-dias-inadim - Número de dias de inadimplência
    • lg-inadimplente - Variável para indicar se o contratante está ou não inadimplente.
    • dt-controle – Data que será usada para cálculo.

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

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

field dt-util                                        like like fatura.dt-vencimen
field classif-dia                                 as char format "x(08)"
field lg-erro                                       as log
field ds-mensagem-retorno              as as char format "x(75)"
field lg-proximo-titulo                        as logas log
field lg-inadimplente as logical
field nr-dias-inadimplencia like for-pag.nr-dias-inadimplencia
field lg-continuar 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..
    • lg-erro - 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.
    • dsDs-mensagem-retorno – Descrição da mensagem de erro retornada pelo programa CPC.
    • Lglg-proximo-titulo – Quando este campo retornar com "Sim", o título será desconsiderado no cálculo de inadimplência.
    • lg-inadimplente – Variável para indicar se o contratante está ou não inadimplente.
    • nr-dias-inadim - Número de dias de inadimplência
    • lg-undocontinuar - 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.para indicar se o programa deve continuar após retornar do programa CPC;