CPC-RTINADIM.P

• 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.

...

Âncora__RefHeading__87313_1756225838__RefHeading__87313_1756225838Localização

• Dentro do programa rtinadim1.p.

...

__RefHeading__2019_213273755 Âncora__RefHeading__11417_644533341__RefHeading__11417_644533341 Âncora__RefHeading__87315_1756225838__RefHeading__87315_1756225838Pontos 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.

Âncora__RefHeading__20655_2053127524__RefHeading__20655_2053127524 Âncora__RefHeading__6810_486694287__RefHeading__6810_486694287 Âncora__RefHeading__2021_213273755__RefHeading__2021_213273755 Âncora__RefHeading__11419_644533341__RefHeading__11419_644533341 Âncora__RefHeading__87317_1756225838__RefHeading__87317_1756225838Include das definições das tabelas temporárias

• cpc-rtinadim.i

...

Tabelas de entrada e saída
Âncora__RefHeading__20659_2053127524__RefHeading__20659_2053127524 Âncora__RefHeading__6814_486694287__RefHeading__6814_486694287 Âncora__RefHeading__2025_213273755__RefHeading__2025_213273755 Âncora__RefHeading__11423_644533341__RefHeading__11423_644533341 Âncora__RefHeading__87321_1756225838__RefHeading__87321_1756225838

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.