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.

Âncora__RefHeading__21873_2053127524__RefHeading__21873_2053127524 Âncora__RefHeading__8028_486694287__RefHeading__8028_486694287 Âncora__RefHeading__3239_213273755__RefHeading__3239_213273755 Âncora__RefHeading__12637_644533341__RefHeading__12637_644533341 Âncora__RefHeading__88535_1756225838__RefHeading__88535_1756225838Localização

• Dentro do programa vp0310d.p, independente da classificação selecionada "1 - Modalidade/Proposta" ou "2 - Nome Contratante", na leitura dos contratantes.

Âncora__RefHeading__21875_2053127524__RefHeading__21875_2053127524 Âncora__RefHeading__8030_486694287__RefHeading__8030_486694287 Âncora__RefHeading__3241_213273755__RefHeading__3241_213273755 Âncora__RefHeading__12639_644533341__RefHeading__12639_644533341 Âncora__RefHeading__88537_1756225838__RefHeading__88537_1756225838Ponto de Utilização

"VERIF-CONTRAT"

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

...

__RefHeading__88539_1756225838Include das definições das tabelas temporárias

• cpc-vp0310d.i

...

__RefHeading__12643_644533341__RefHeading__12643_644533341 Âncora__RefHeading__88541_1756225838__RefHeading__88541_1756225838Tabelas de entrada e saída Âncora__RefHeading__21881_2053127524__RefHeading__21881_2053127524 Âncora__RefHeading__8036_486694287__RefHeading__8036_486694287 Âncora__RefHeading__3247_213273755__RefHeading__3247_213273755 Âncora__RefHeading__12645_644533341__RefHeading__12645_644533341 Âncora__RefHeading__88543_1756225838__RefHeading__88543_1756225838

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.

  Âncora__RefHeading__21889_2053127524__RefHeading__21889_2053127524 Âncora__RefHeading__8044_486694287__RefHeading__8044_486694287 Âncora__RefHeading__303_1561139123__RefHeading__303_1561139123 Âncora__RefHeading__3255_213273755__RefHeading__3255_213273755 Âncora__RefHeading__12653_644533341__RefHeading__12653_644533341 Âncora__RefHeading__88551_1756225838__RefHeading__88551_1756225838