CPC-MC0112A.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.

...

Âncora__RefHeading__87697_1756225838__RefHeading__87697_1756225838Localização

• Dentro do programa mc0112a.p, após alterar o Grau de Parentesco do beneficiário.

...

__RefHeading__2403_213273755 Âncora__RefHeading__11801_644533341__RefHeading__11801_644533341 Âncora__RefHeading__87699_1756225838__RefHeading__87699_1756225838Ponto de Utilização

• "ALTERA-GRAU"

Âncora__RefHeading__21039_2053127524__RefHeading__21039_2053127524 Âncora__RefHeading__7194_486694287__RefHeading__7194_486694287 Âncora__RefHeading__2405_213273755__RefHeading__2405_213273755 Âncora__RefHeading__11803_644533341__RefHeading__11803_644533341 Âncora__RefHeading__87701_1756225838__RefHeading__87701_1756225838Include das definições das tabelas temporárias

• cpc-mc0112a.i 

 i
Âncora__RefHeading__21041_2053127524__RefHeading__21041_2053127524 Âncora__RefHeading__7196_486694287__RefHeading__7196_486694287 Âncora__RefHeading__2407_213273755__RefHeading__2407_213273755 Âncora__RefHeading__11805_644533341__RefHeading__11805_644533341 Âncora__RefHeading__87703_1756225838__RefHeading__87703_1756225838

Tabelas de entrada e saída
Âncora__RefHeading__21043_2053127524__RefHeading__21043_2053127524 Âncora__RefHeading__7198_486694287__RefHeading__7198_486694287 Âncora__RefHeading__2409_213273755__RefHeading__2409_213273755 Âncora__RefHeading__11807_644533341__RefHeading__11807_644533341 Âncora__RefHeading__87705_1756225838__RefHeading__87705_1756225838

Tabela de entrada tmp-cpc-mc0112a-

...

entrada 

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

fields in-evento-programa                   as char format "x(10)"
fields nm-ponto-chamada                   as char format "x(15)"
fields lg-mensagem-na-tela                 as logical
fields cd-modalidade-tit

...

                     like usuario.cd-modalidade
fields nr-proposta-tit                           like usuario.nr-proposta
fields cd-usuario-tit

...

                           like usuario.cd-usuario
fields nr-idade                                   as int format "999"
fields r-pro-pla                                   as rowid
fields 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-mc0112a. O valor desse campo deve ser "ALT".
• nm-ponto-chamada – Nome do ponto de chamada, que deve ser "ALTERA-GRAU".
• 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 esta sendo alterado.
• nr-proposta-tit – Número da proposta do beneficiário que esta sendo alterado.
• cd-usuario-tit – Código do beneficiário que esta sendo alterado.
• r-pro-pla – Recid da tabela de módulos da proposta. . (Campo sem conteúdo neste ponto).
• Dt-inicio – Data de inicio do módulo opcional. . (Campo sem conteúdo neste ponto).

...

...

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

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

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

...

...

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 alterado.
• ds-mensagem-retorno – Deve conter mensagem referente ao beneficiário titular a ser alterado.
• lg-continua – Indica se deve continuar com a alteração do beneficiário.

...