CPC-BOSAU-EXPORT-A500.P

• Rotina para valorização de pacotes.
• Caso o cliente não queira executar a chamada da CPC deve colocar "CPC ativo" como "não" no seu cadastro.

Localização

• Ponto "ANT-VALOR-PCT": no programa "rtp/rtvalpacote.p", 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ção

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

Include das definições das tabelas temporárias

• cpc-rtvalpacote.i

Eventos:

Eventos referentes ao ponto de chamada "APOS-PREST-PAC":

Mapa de eventos:
Dígito 1: tipo de movimento (procedimento, insumo)                                                                            ---> valores possíveis: P/I
Dígito 2: processo (digitação, importação, web)                                                                                     ---> valores possíveis: D/I/W
Dígito 3: tabela (moviproc/mov-insu, moviptmp/mov-itmp, procusos/insuusos)                                  ---> valores possíveis: M/T/U
Dígito 4: pacote que esta sendo validado (primeiro, demais, qualquer)                                                 ---> valores possíveis: P/D/Q
Dígito 5: ação (encontra pacote, busca tabela temporária, ajusta quantidade, cria tabela temporária) ---> valores possíveis: P/B/Q/C

Tabelas de entrada e de saída

Tabela de entrada: tmp-cpc-rtvalpacote-entrada

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

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

                           field in-evento-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 do ponto de chamada da CPC dentro do programa que a utiliza.: "ANT-VALOR-PCT", "APOS-PREST-PAC";
• in-evento-programa - evento do programa;
• dt-realizacao-pct - 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: tmp-cpc-rtvalpacote-saida

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

field lg-undo-retry                          as logical

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

field dt-realizacao-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 - campo que controla se ocorreram erros na CPC. Deve retornar "SIM" se ocorrer algum erro ou "NÃO" se o processo for concluído sem erros;
• ds-mensagem - descrição da mensagem de erro caso seja um erro retornado pela CPC;
• dt-realizacao-pct - 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.