CPC-VP0310D.P0

• Rotina utilizada para verificar a seleção de cidade incial e final com lógica especifica do cliente.
• 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 vp0310d.p, independente da classificação selecionada "1 - Modalidade/Proposta" ou "2 - Nome Contratante", na leitura dos contratantes.

Ponto de Utilização

"VERIF-CONTRAT"

• • Rotina para verificação da seleção de cidade inicial e cidade final do contratante.

Include das definições das tabelas temporárias

• cpc-vp0310d.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-vp0310d-entrada

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

field in-evento-programa                      as char format "x(10)"
field nm-ponto-chamada-cpc               as char format "x(15)"
field nr-recid-contrat                             as recid
field nr-recid-benef                               as recid
field cd-cidade-ini                                 like dzcidade.cd-cidade
field cd-cidade-fim                                like dzcidade.cd-cidade

Definição campo a campo da tabela de entrada

• • • in-evento-programa – Evento do programa que chama a cpc-vp0310d.p. Os valores desse campo podem ser:
    • "VER-CONTRAT".
    • nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa vp0310d.p:
    • "VERIF-CONTRAT".
    • nr-recid-contrat – Recid da tabela contrat para pesquisa e atribuição especifica do cliente.
    • nr-recid-benef – Recid da tabela benef para pesquisa e atribuição especifica do cliente.
    • Cd-cidade-ini – código inicial da cidade.
    • Cd-cidade-fim – código final da cidade.
      
      

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

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

field lg-undo-retry                            as logical
field lg-next                                     as logical
field ds-mensagem-relatorio            as char format "x(75)"
field cd-cidade-ini                            like dzcidade.cd-cidade
field cd-cidade-fim                           like dzcidade.cd-cidade

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-relatorio – Deve conter mensagens de erro ou qualquer outro tipo de mensagem. Utilizado em conjunto com a entrada lg-mensagem-na-tela. Se lg-mensagem-na-tela for Não então esse campo deve ser preenchido.
    • Lg-next – Se esse log retornar como "Sim", o registro do contratante é desconsiderado.
    • Cd-cidade-ini – código inicial da cidade.
    • Cd-cidade-fim – código final da cidade.