cpc-rc0512n2.p1

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.