CPC-MC0110B1.P

• Rotina utilizada para devolver a descrição "F9 – GRUPO ECONOMICO" para a função F9 e para verificar se o contratante pertence a algum grupo econômico que esteja ativo, caso pertença irá ser chamado o programa de resumo de grupo econômico senão retorna uma mensagem de erro.
• 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 mc0110b1.p, no evento F9 e no inicio do programa.

Ponto de Utilização

• "CONS-CLIENTE"

Include das definições das tabelas temporárias

• cpc-mc0110b1.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-mc0110b1-entrada

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

field in-evento-programa                    as char format "x(06)"
field nm-ponto-chamada-cpc               as char format "x(15) "
field cd-modalidade                           like modalid.cd-modalidade
field nr-ter-adesao                             like ter-ade.nr-ter-adesao.

Definição campo a campo da tabela de entrada

• nm-ponto-chamada – Nome do ponto de chamada que controla o tratamento específico.
• in-evento-programa – Evento do programa que chama a cpc-mc0110b1, que deve ser:
• "OPCAO".
• "MOSTRA".
• nr-ter-adesao – Código do termo de adesão do beneficiário
• cd-modalidade – Código da modalidade do beneficiário

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

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

field lg-erro                                       as log
field ds-mensagem-relatorio                as char format "x(80)".

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

• lg-erro – Controla a ocorrência de erros na execução da cpc
• ds-mensagem-relatorio – Controla a mensagem de retorno da cpc quando ocorrem erros.