Rotina utilizada para, na inclusão de uma nova proposta, conforme a cidade informada no cadastro do contratante bloquear o cadastro da proposta caso a empresa/estabelecimento informado não sejam a empresa/estabelecimento parametrizado para aquela cidade.
Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
Localização
Dentro do CG0111v.p.
Ponto de Utilização
"VALIDA-CONTRAT"
Include das definições das tabelas temporárias
CPC- CG0111v.I
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-cg0111v-entrada
def temp-table tmp-cpc-cg0111v-entrada no-undo
field in-evento-programa as char format "x(10)"
field nm-ponto-chamada-cpc as char format "x(15)"
fields ep-codigo like propost.ep-codigo
fields cd-estabel like propost.cod-estabel
fields nr-insc-contratante like propost.nr-insc-contratante
fields nr-insc-contratante-origem like propost.nr-insc-contrat-origem.
Definição campo a campo da tabela de entrada
in-evento-programa – Evento do ponto de chamada.
nm-ponto-chamada-cpc – Nome do ponto de chamada da CPC
ep-codigo – Código da empresa
cd-estabel – Código do estabelecimento
nr-insc-contratante – Numero de inscrição do contratante
nr-insc-contratante-origem – Número de inscrição do contratante origem.
Tabela de saida tmp-cpc-cg0111v-saida
def temp-table tmp-cpc-cg0111v-saida no-undo
field lg-undo-retry as log
field ds-mensagem 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. Se o retorno desta variável for igual a SIM, indicará que erros aconteceram e se o retorno for igual à NÃO, indicará que o processo foi concluído por completo.
ds-mensagem – Mensagem da ocorrência do erro no processamento da CPC.