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.

...

Âncora__RefHeading__11415_644533341__RefHeading__11415_644533341 Âncora__RefHeading__87313_1756225838__RefHeading__87313_1756225838Localizaçã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.

Âncora__RefHeading__20653_2053127524__RefHeading__20653_2053127524 Âncora__RefHeading__6808_486694287__RefHeading__6808_486694287 Âncora__RefHeading__2019_213273755__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 temporária 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_1756225838

Include das definições das tabelas temporárias

• cpc-rtinadim.i

...

__RefHeading__2023_213273755 Âncora__RefHeading__11421_644533341__RefHeading__11421_644533341 Âncora__RefHeading__87319_1756225838__RefHeading__87319_1756225838Tabelas de entrada e saída
Âncora__RefHeading__20659_2053127524__RefHeading__20659_2053127524 Âncora__RefHeading__6814_486694287__RefHeading__6814_486694287anchor__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

...

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.

...

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;