CPC-RTINADIM.P

• Rotina utilizada para interagir no 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.
"INICIO-PROGRAMA": No inicio do programa.

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
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.
    • 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.
    • 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 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
field lg-inadimplente as logical
field nr-dias-inadimplencia like for-pag.nr-dias-inadimplencia
field lg-continuar as log
field lg-return      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.
    • 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-inadimplente – Variável para indicar se o contratante está ou não inadimplente.
    • nr-dias-inadim - Número de dias de inadimplência
    • lg-continuar - Variável para indicar se o programa deve continuar após retornar do programa CPC;
    • lg-return - Informa se deve ser executado o "return".