CPC-RTVALPACOTE.P

• Rotina para alterar e considerar a data de realização enviada por meio da tabela de entrada da rotina rtvalpacote na valorização de pacotes, ao invés da data de hoje fixa.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar "CPC Ativo ativo" como "não" no seu cadastro.

Localização

Localização

• Ponto "ANT-VALOR-PCT": no programa "rtp/rtvalpacote.p", após Dentro do programa rtvalpacote, após verificar se a carteira informada do beneficiário está cadastrada;
• Ponto "APOS-PREST-PAC": no programa "rtp/rtvalpacote.p", após buscar o prestador do pacote

Pontos de utilizaçãoPonto de Utilização

• "ANT-VALOR-PCT"
• "APOS-PREST-PAC"

Include das definições das tabelas temporárias

• cpc-rtvalpacote.i

Tabelas de entrada e de saída

Tabela de entrada tmpentrada: tmp-cpc-rtvalpacote-entrada

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

                           field nm-ponto-chamada                 as char format "x(15)"

                          field  field in-evento-programa programa                   as char format "x(10)"

                           field dt-realizacao-pct                      like moviproc.dt-realizacao

                           field cd-unidade-pagamento           like moviproc.cd-unidade-pagamento

                           field cd-prestador-pagamento         like moviproc.cd-prestador-pagamento

Definição campo a campo da tabela de entrada

• nm-ponto-chamada-cpc – Nome - nome do ponto de chamada da CPC dentro do programa que a utiliza.: "ANT-VALOR-PCT".", "APOS-PREST-PAC";
• in-evento-programa - Evento evento do programa.;
• dt-realizacao-pct - Data data de realização da tabela temporária tmp-rtvalpacote-entrada;
• cd-unidade-pagamento - código da unidade de pagamento;
• cd-prestador-pagamento - código do prestador de pagamento.

Tabela de saída tmpsaída: tmp-cpc-rtvalpacote-saida

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

field lg-undo-retry                          as logical

field ds-mensagem mensagem                         as char format "x(75)"

field dt-realizacao-pct pct                     like moviproc.dt-realizacao

field lg-altera-prestador-pacote     as logical

field cd-unidade-pacote                 like moviproc.cd-unidade-pagamento

field cd-prestador-pacote               like moviproc.cd-prestador-pagamento

Definição campo a campo da tabela de saída

• lg-undo-retry – Variável - campo que controla se ocorreram erros aconteceram dentro da CPC deve retornar SIM, se erros não aconteceram é NÃO na CPC. Deve retornar "SIM" se ocorrer algum erro ou "NÃO" se o processo foi concluído por completo.for concluído sem erros;
• ds-mensagem – Descrição - descrição da mensagem de erro caso ocorra, dentro na cpc.seja um erro retornado pela CPC;
• dt-realizacao-pct -  Data data de realização da tabela temporária "tmp-rtvalpacote-entrada";
• lg-altera-prestador-pacote - campo que indica se o programa deve utilizar a unidade e o pagamento retornados nos campos "cd-unidade-pacote" e "cd-prestador-pacote" da tabela temporária "tmp-rtvalpacote-saida" ou se deve manter a lógica do produto;
• cd-unidade-pacote - código da unidade que deve ser considerada para tratamento do pacote;
• cd-prestador-pacote - código do prestador que deve ser considerado para tratamento do pacote.