CPC-MC0113A.P

• Rotina chamada na opção elimina do programa de manutenção de beneficiários.
• Rotina utilizada para alterar o Percentual de Desconto da Proposta de acordo com a quantidade de beneficiários ativos com situação entre 5 e 7.
• 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 mc0113a.p, após eliminar o beneficiário e suas tabelas associadas.
• Dentro do programa mc0113a.p, no final da exclusão do beneficiário.

Ponto de Utilização

• "FINAL-ELIMINA"
• "ANTES-EXCLUI"
• "FINAL-ELIMINA"

Include das definições das tabelas temporárias

• cpc-mc0113a.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-mc0113a-entrada

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

field in-evento-programa                   as char format "x(06)"
field lg-mensagem-na-tela                as log
field cd-modalidade-tit                       like usuario.cd-modalidade
field nr-proposta-tit                             like usuario.nr-proposta
field cd-usuario-tit                              like usuario.cd-usuario
field nm-usuario                                 like usuario.nm-usuario.

Definição campo a campo da tabela de entrada

• in-evento-programa – Evento do programa que chama a cpc-mc0112a, que deve ser "ELI".
• lg-mensagem-na-tela – Indica se o programa deverá mostrar mensagens na tela ou executar em batch.
• cd-modalidade-tit – Código da modalidade do beneficiário que está sendo alterado.
• nr-proposta-tit – Número da proposta do beneficiário que está sendo alterado.
• cd-usuario-tit – Código do beneficiário que está sendo alterado.
• nm-usuario – Nome do beneficiário em questão.

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

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

field lg-tem-mensagem              as logical
Field lg-continua                         as logical init yes
field ds-mensagem-retorno        as char format "x(75)".

Definição campo a campo da tabela de saída

• lg-tem-mensagem – Variável que controla se erros aconteceram dentro da CPC deve retornar SIM se erros aconteceram e NÃO se o processo foi concluído por completo.
• lg-continua – Variavel que controla se o programa chamador seguirá seu processo ou não.
• ds-mensagem-retorno – Deve conter mensagens de erro caso ocorram.