Localização
Dentro do vp0310k.p no final da procedure atualiza-libera.
Ponto de Utilização
"FIM-PROGRAMA"
Rotina para atualização de campos no termo de adesão no momento da criação do mesmo no programa de liberação de documentos da proposta.
"SIT-PROPOSTA"
Rotina utilizada para tratar situações da proposta diferentes das situações padrão do sistema.
"SEL-PROP"
Rotina utilizada para tratar situações da proposta diferentes das situações padrão do sistema.
"COBRA-PARTIC"
Rotina utilizada para tratar a cobrança da participação.
"DESAB-BOTAO"
Rotina utilizada para desabilitar o botão de parâmetros.
Include das definições das tabelas temporárias
cpc-vp0310k.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-vp0310k-entrada
def temp-table tmp-cpc-vp0310k-entrada no-undo
field in-evento-programa as char format "x(06)"
field nm-ponto-chamada-cpc as char format "x(15) "
field lg-mensagem-na-tela as logical
field nr-rowid-ter-ade as rowid
field in-atualiza as int
field in-seleciona as int
field in-analise-homologacao as int
field ep-codigo like propost.ep-codigo
field cod-estabel like propost.cod-estabel
field cd-modalidade like propost.cd-modalidade
field nr-proposta like propost.nr-proposta
field cd-usuario like usuario.cd-usuario
field lg-atualiza-base as log.
Definição campo a campo da tabela de entrada
in-evento-programa – Evento do programa que chama a cpc-vp0310k.p. Os valores desse campo podem ser:
"INCLUI", "ALTERA", "EXCLUI", "PARAM", "CONPAR", "ATUTMP", "ATUPRO", "CONMOD", "DSSIT"
nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa vp0310k.p:
"FIM-PROGRAMA"
"SIT-PROPOSTA"
"SEL-PROP"
"COBRA-PARTIC"
"DESAB-BOTAO"
lg-mensagem-na-tela – Indica se as mensagens de erro devem ser dispostas na tela ou não. Caso o indicador for não o campo da tabela de saída ds-mensagem-relatorio deve ser preenchido. (não obrigatório).
nr-rowid-ter-ade – Rowid do termo de adesão para pesquisa e atribuição especifica do cliente.


Tabela de saída tmp-cpc-vl0310k-saida
def temp-table tmp-cpc-vp0310k-saida no-undo
field lg-undo-retry as logical
field ds-mensagem-relatorio as char format "x(75)"
field in-seleciona as int
field in-atualiza as int
field in-inicio-validade as int
field lg-imprime-benef as log
field lg-parametros-ind as log
field in-botao as int
field lg-consiste-analise-credito as log
field lg-consiste-analise-homologacao as log
field lg-atualiza-base as log
field ds-situacao as char
field lg-doc-pendente as log
field lg-atribui-fator as log
field lg-fator as log
field lg-desabilita-botao as log.
Definição campo a campo da tabela de saída