cpc-fp0514i3.i1

Localização
Dentro do programa fp0514i3.p, anterior a leitura dos usuários;
Antes de excluir a nota de serviço;
Antes de excluir os valores por beneficiários;
Antes de iniciar o processo de estorno;
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-fp0514i3-entrada
def temp-table tmp-cpc-fp0514i3-entrada no-undo
field nm-ponto-chamada as char format "x(15)"
field in-evento-programa as char format "x(10)"
field r-propost as rowid
field vl-total-nota like notaserv.vl-total
field nr-rowid-usuario as rowid
field cd-modalidade like propost.cd-modalidade
field cd-contratante like propost.cd-contratante
field cd-contratante-origem like propost.nr-insc-contrat-origem
field nr-ter-adesao like propost.nr-ter-adesao
field aa-referencia as int format "9999"
field mm-referencia as int format "99"
field nr-sequencia like vlbenef.nr-sequencia
field r-notaserv as rowid.
Definição campo a campo da tabela de entrada
nm-ponto-chamada-cpc – Ponto de chamada de cpc
in-evento-programa – Identifica qual evento deve ser executado no momento que está sendo chamada
r-proposta – número do registro no banco da tabela referente a proposta
vl-total-nota – Valor total da nota calculado até o momento
nr-rowid-usuario – número do registro no banco da tabela referente ao beneficiário
cd-modalidade – código da modalidade do beneficiário
cd-contratante – Código do contratante da nota de serviço;
cd-contratante-origem – Código do contratante origem da nota de serviço;
nr-ter-adesao – número do termo de adesão
aa-referencia – ano de referância
mm-referencia – mês de referência
nr-sequencia – sequencia da nota de serviço
r-notaserv – recid da nota de serviço
Tabela de saída tmp-cpc-fp0514i3-saida
def temp-table tmp-cpc-fp0514i3-saida no-undo
field lg-undo-retry as log
field ds-mensagem-erro as char format "x(75)"
field lg-estrut-cad as log
field in-cob-int-prop as char format "x(01)"
field vl-total-nota like notaserv.vl-total.
Definição campo a campo da tabela de saída
lg-undo-retry –controla os erros que podem ocorrer na CPC.
ds-mensagem-erro – recebe a descrição dos erros que ocorreram na CPC.
Lg-estrut-cad
In-cob-int-nota
Vl-total-nota