CPC-MC0112A2.P

• Rotina chamada na opção modifica do programa de manutenção de beneficiários.
• 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 mc0112a2.p antes de gravar a tabela de módulos opcionais do beneficiário. 

Ponto de Utilização

• "TRATA-PRO-PLA"

Include das definições das tabelas temporárias

• cpc- mc0112a2.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc- mc0112a2 -entrada

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

field in-evento-programa                     as char format "x(10)"
field nm-ponto-chamada-cpc               as char format "x(15)"
field r-pro-pla                                    as rowid
field dt-inicio                                     like usumodu.dt-inicio.

Definição campo a campo da tabela de entrada

• in-evento-programa – Evento do programa que chama a cpc-mc0112a2.p. Os valores desse campo podem ser:
• "INCLUI".
• nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza.:
• "TRATA-PRO-PLA"
• r-pro-pla – Recid da tabela pro-pla (Módulos da proposta).
• Dt-inicio – Data de inicio do módulo que será gravado.

Tabela de entrada wk-mod

def temp-table wk-mod no-undo

field cd-modalidade                         like propost.cd-modalidade
field nr-proposta                             like propost.nr-proposta
field cd-modulo                              like usumodu.cd-modulo
field cd-usuario                              like usuario.cd-usuario.

Definição campo a campo da tabela de entrada

• cd-modalidade – código modalidade da proposta do plano
• nr-proposta – número da proposta do plano
• cd-modulo – código do modulo da proposta do plano
• cd-usuario - código do usuário da proposta do plano

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

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

field lg-undo-retry                           as log
field ds-mensagem                         as char
field lg-continua                             as log.

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

• lg-undo-retry – 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.
• ds-mensagem – descrição da mensagem de erro caso ocorra, dentro na cpc.
• lg-continua – Log que informa se continua o processo ou não, conforme tratativa na cpc.