CPC-MC0111M.P

• Rotina chamada na opção elimina do programa de manutenção de beneficiários.
• Rotina chamada para tratamento específico de demitidos e aposentados.
• 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 mc0111m.p, antes de eliminar o beneficiário titular.

Ponto de Utilização

• "EXCLUI-TIT"
• "DEMAP"
• "ALTERA-DATA-EXC"

Include das definições das tabelas temporárias

• cpc-mc0111m.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-mc0111m-entrada

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

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

Definição campo a campo da tabela de entrada

• in-evento-programa – Evento do programa que chama a cpc-mc0111a, que deve ser "ALT".
• 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 titular que esta sendo eliminado.
• Nr-proposta-tit – número da proposta do beneficiário titular que esta sendo eliminado.
• Cd-usuario-tit – código do beneficiário titular que esta sendo eliminado.

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

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

field lg-tem-mensagem                      as logical
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 existe mensagem para informação sobre beneficiário titular a ser eliminado.
• ds-mensagem-retorno – Deve conter mensagem referente ao beneficiário titular a ser eliminado.