CPC-RTVLINSU.P

• Rotina utilizada para permitir a alteração do valor do Insumo.
• Rotina utilizada para permitir que a operadora sobreponha a parametrização padrão de cotação e percentual aplicado pela cotação e percentual definidos no cadastro especifico.
• 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 darotina Rtvlinsu.p, independente do tipo de valorização (Pagamento ou Cobrança).

...

• • Retorna Verifica se será considerado o valor de acréscimo/desconto do prestador.

"APÓSAPOS-FAT-TPINSU"

• • Permite aplicar fatores específicos por insumo, desconsiderando parametrização do programa RC-03-C, onde é parametrizado um fator multiplicador por tipo de insumo.

"ANT-BUSCA-PRECO" - a partir da versão 12.1.2209

• • Permite buscar a quantidade de moedas na CPC e permite não fazer a valorização padrão do produto.

Include das definições das tabelas temporárias

...

Tabela de entrada tmp-cpc-rtvlisu-entrada

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

field in-tipo-valori                               as char format "x(03)"
field in-evento-programa                   as char format "x(10)"
field nm-ponto-chamada-cpc             as char format "x(15)"
field cd-tab-preco-proc                       like prepadin.cd-tab-preco-proc
field cd-unidade-prestador                 like preserv.cd-unidade
field cd-prestador                               like preserv.cd-prestador
field cd-tipo-insumo                           like prepadin.cd-tipo-insumo
field cd-insumo                                  like prepadin.cd-insumo
field dt-base-valor                              like moviproc.dt-base-valor
field r-proposta                                  as rowid
field r-unicamco                                 as rowid
field cd-modulo                                 like mod-cob.cd-modulo
field cd-local-atendimento                 like locaaten.cd-local-atendimento
field qt-insumo                                  like mov-insu.qt-insumo
field vl-insumo                                   like mov-insu.vl-insumo
field cd-grupo-prestador                    like moccolat.cd-grupo-prestador
field cd-especialidade                       like moccolat.cd-especialid
field cd-moeda-honorarios                like moccolat.mo-codigo
field qt-moeda-insumo                      like prepadin.qt-moeda-insumo
field lg-manual                                  like prepadin.lg-manual
field in-local-qtd                                as char
field r-preinpr                                    as rowid
field r-preinpr out-uni                                     as as rowid
field nr-fator-multiplicador               like presinsu.nr-fator-multiplicador
field vl-cotacao                                  like presinsu.nr-fator-multiplicadordzcotac.cota-media
field lg-tipo-aplicacao                       as logical
field pc-aplicacao                              as decimal
field lg-existe-regra-pc                      as logical
field lg-importacao                            as logical.

Definição campo a campo da tabela de entrada

...

• • • in-evento-programa – Evento do programa que chama a cpc-rtvlinsu.p. Os valores desse campo podem ser:
    • "INCLUI".
    •  
    • nm-ponto-chamada-cpc – Sendo:
    • "PRECO-MEDIO";
    • "TRATA-PREINPR";
    • " TAB-PRECO-INSU ";
    • "BLOQ-VAL-INSUMO";
    • "APOS-CALC-ACRDE";
    • "APOS-FAT-TPINSU"Nome do ponto de chamada da CPC.
    • in-tipo-valori – ;Identiifca o tipo de valorização> PAG ou COB.
    • cd-tab-preco-proc – Código da tabela de preços.
    • cd-unidade-prestador – Código da unidade do prestador.
    • cd-prestador – Código do prestador.
    • cd-tipo-insumo – Código do tipo de insumo.
    • cd-insumo – Código do insumo.
    • dt-base-valor – Data limite do movimento.
    • r-proposta – Rowid da tabela proposta.
    • r-unicamco – Rowid da tabela unicamco.
    • cd-modulo – Código do módulo.
    • cd-local-atendimento – Código do local de atendimento.
    • qt-insumo – quantidade Quantidade de insumos.
    • vl-insumo – Valor do insumo.
    • cd-grupo-prestador – Código do grupo de prestadores.
    • cd-especialidade – Código da especialidade.
    • cd-moeda-honorarios – Código da moeda.
    • r-preinpr – rowid Rowid da tabela preinpr.
    • r-out-uni - Rowid da tabela out-uni.
    • nr-fator-multiplicador – fator Fator multiplicador para o tipo de insumo.
    • vl-cotacao - Cotação da moeda.
    • lg-tipo-aplicacao - Indica se é um percentual de acréscimo ("yes") ou de desconto ("no").
    • pc-aplicacao - Percentual a ser aplicado sobre o valor.
    • lg-existe-regra-pc - Indica se existe regra de percentual.
    • lg-importacao - Indica se o movimento está sendo incluído por importação ("yes") ou por digitação ("no").
      
      

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

field lg-erro                                as log
field ds-mensagem                   as char format "x(75)"
field pc-acres-desc                    as dec
field lg-tipo-aplicacao                as log
field qt-moeda-insumo              like prepadin.qt-moeda-insumo
field vl-insumo                           like mov-insu.vl-insumo
field lg-manual                          like prepadin.lg-manual
field lg-achou-regra                   as log
field nr-cotacao                         like moccolat.nr-cotacao
field in-local-qtd                         as char format "x(20)"
field lg-acres-desc                     as log
field nr-fator-multiplicador     multiplicador       like presinsu.nr-fator-multiplicador
field cd-tab-medic-valori          like mov-insu.cd-tab-preco-proc
field lg-padrao                          as logical
field lg-busca-preco                 as logical initial yes.

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

• • • lg-erro – 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 – Deve conter mensagens de erro ou qualquer outro tipo de mensagem.
    • pc-acres-desc – Percentual de acrescimo e desconto.
    • lg-tipo-aplicacao – Campo lógico que retorna o tipo de aplicação.
    • qt-moeda-insumo – Quantidade da moeda do insumo.
    • vl-insumo – Valor do insumo.
    • lg-manual – Indica se insumo pode ser incluído de forma manual.
    • lg-achou-regra – Indica se foi encontrado alguma regra de moeda ou de percentual.
    • nr-cotacao – Valor da cotação da moeda.
    • In-local-qtd – Retorna a origem da busca da tabela (PADRAO/PREST).
    • lg-acres-desc – Retorna se será considerado o valor de acréscimo/desconto do prestador.
    • nr-fator-multiplicador – fator Fator multiplicador para o tipo de insumo.
    • cd-tab-medic-valori - Código da tabela usada para a busca da quantidade de moedas.
    • lg-padrao - Indica se a quantidade de moedas foi buscada do preço padrão do insumo ou não.
    • lg-busca-preco - Indica se deve fazer a lógica de produto para buscar a quantidade de moedas ou não.