CPC-VP0112A.P

• Rotina chamada na opção modifica do programa de manutenção de contratantes.
• 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__23315_2053127524__RefHeading__23315_2053127524 Âncora__RefHeading__9470_486694287__RefHeading__9470_486694287 Âncora__RefHeading__4681_213273755__RefHeading__4681_213273755 Âncora__RefHeading__14079_644533341__RefHeading__14079_644533341 Âncora__RefHeading__89977_1756225838__RefHeading__89977_1756225838 

Localização

• Dentro dos programas vp0112a1.p e vp0112a2.p, após o modifica do contratante (pessoa física e jurídica).

...

__RefHeading__89979_1756225838Ponto de Utilização

"APOS-MODIFICA"
"INICIO-MODIFICA"

Âncora__RefHeading__23319_2053127524__RefHeading__23319_2053127524 Âncora__RefHeading__9474_486694287__RefHeading__9474_486694287 Âncora__RefHeading__4685_213273755__RefHeading__4685_213273755 Âncora__RefHeading__14083_644533341__RefHeading__14083_644533341 Âncora__RefHeading__89981_1756225838__RefHeading__89981_1756225838Include das definições das tabelas temporárias

• cpc-vp0112a.i

...

__RefHeading__9476_486694287 Âncora__RefHeading__4687_213273755__RefHeading__4687_213273755 Âncora__RefHeading__14085_644533341__RefHeading__14085_644533341 Âncora__RefHeading__89983_1756225838__RefHeading__89983_1756225838Tabelas de entrada e saída
anchor__RefHeading__23323_2053127524__RefHeading__23323_2053127524 Âncora__RefHeading__9478_486694287__RefHeading__9478_486694287 Âncora__RefHeading__4689_213273755__RefHeading__4689_213273755 Âncora__RefHeading__14087_644533341__RefHeading__14087_644533341 Âncora__RefHeading__89985_1756225838__RefHeading__89985_1756225838

Tabela de entrada tmp-cpc-vp0112a-entrada

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

field in-evento-programa                       as char format "x(10)"
field nm-ponto-chamada-cpc

...

               as char format "x(15)"
field nr-insc-contrat

...

                               like contrat.nr-insc-contrat
field cd-contratante

...

                               like contrat.cd-contratante
field nr-rowid-contrat

...

                             as rowid

...

Definição campo a campo da tabela de entrada

• • • in-evento-programa – Evento do programa que chama a cpc-vp0112a, que deve ser "MODIFICA".
    • nm-ponto-chamada – Nome do Ponto de Utilização, que deve ser "APOS-MODIFICA".
    • Nr-ins-contrat – Número da inscrição do contratante.
    • Cd-contratante – Código do contratante.
    • nr-rowid-contrat – Rowid do contratante.
      

...

...

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

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

field lg-undo-retry

...

                     as log
field ds-mensagem-erro

...

           as char format "x(75)"

...

...

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-erro – Deve conter mensagens de erro caso ocorram.

...