CPC-RC0512N2.P

• Rotina utilizada para buscar a tabela de preços do insumo com consistências adicionais.
• 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 no máximo um registro na tabela temporária de saída.

Localização

• Dentro do programa at0110c.p antes de montar a régua dos botões padrão.

Ponto de Utilização

• "BLOQ-VAL-INSUMO"
• "APOS-BUSCA-TAB"

Include das definições das tabelas temporárias

• cpc-rc0512n2.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-rc0512n2-entrada

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

field nm-ponto-chamada-cpc                    as char format "x(15)"
field cd-tab-preco                                      like mov-insu.cd-tab-preco
field cd-tipo-insumo                                   like mov-insu.cd-tipo-insumo
field cd-insumo                                          like mov-insu.cd-insumo
field cd-unidade-executante                      like moviproc.cd-unidade-prestador
field cd-prestador-executante                    like moviproc.cd-prestador
field dt-base-valor                                     like moviproc.dt-base-valor
field lg-manual                                          like prepadin.lg-manual
field int-12                                                like moviproc.int-12
field int-13                                                like moviproc.int-13
field cd-unimed                                         like paramecp.cd-unimed
field nr-rowid-proposta                              as rowid
field cd-modulo                                        like moviproc.cd-modulo
field dt-realizacao                                     like moviproc.dt-realizacao
field cd-tab-preco-pagto                           like precproc.cd-tab-preco.

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. Para o programa rc0512n2.p:
  • "BLOQ-VAL-INSUMO"
  • cd-tab-preco – código da tabela de preço do insumo
  • cd-tipo-insumo – código do tipo de insumo
  • cd-insumo – código do insumo
  • cd-unidade-executante – código da unidade executante
  • cd-prestador-executante – código do prestador executante
  • dt-base-valor – data base do valor do insumo.
  • lg-manual – Digitação do preço do insumo será manual.
  • int-12 - Unidade do prestador origem.
  • int-13 - Prestador origem.
  • cd-unimed - Código da Unidade.
  • nr-rowid-proposta - Identificador da proposta.
  • cd-modulo - Módulo.
  • dt-realizacao - Data da realização.
  • cd-tab-preco-pagto - Tabela de preço.

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

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

field lg-undo-retry                                 as log
field ds-mensagem                              as char
field lg-manual                                     as log
field cd-tab-preco-pagto                       like precproc.cd-tab-preco.

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

• • lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC. Se o retorno desta variável for igual a SIM, indicará que erros aconteceram e se o retorno for igual à NÃO, indicará que o processo foi concluído por completo.
  • ds-mensagem – Variável que retornar mensagem de erro, se ocorrido dentro da CPC.
  • c-opcao – Variável que recebe o valor vindo de uma outra variável global referente o evento que o programa deve exercer.
  • Lg-manual – indicador de preço manual do insumo.
  • cd-tab-preco-pagto - Tabela de preço.