cpc-fp0711f.p1

Rotina utilizada para:
criação de eventos de desconto de forma específica
não considerar o beneficiário na contagem dos beneficiários
não considerar o beneficiário no faturamento do mês em questão
tratar se proposta será processada no faturamento
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.
Ponto de Utilização
"CRIA-EVEN-PROG"
"COBRA-PROX-MES"
"TRATA-PROPOSTA"
"CONTA-USUARIO" , "VER-USUARIO"
"CRITICA-BENEF"
Include das definições das tabelas temporárias
cpc-fp0711f.i
Localização
Dentro do programa fp0711f.p, anterior a criação da nota;
Dentro do programa fp0711f.p, no momento da contagem dos beneficiários;
Dentro do perograma fp0711f.p, no momento da leitura dos beneficiários;
Dentro do programa fp0711f.p, após leitura da proposta
Pontos CONTA-USUARIO e VER-USUARIO, no procedimento que conta usuarios faturados.
Ponto "CRITICA-BENEF" é chamado após calcular os valores por beneficiário dentro do programa fp0711f.p.
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-fp0711f-entrada
def temp-table tmp-cpc-fp0711f-entrada no-undo
field in-evento-programa as char format "x(10)"
field nm-ponto-chamada as char format "x(15)"
field vl-total-nota like notaserv.vl-total
field nr-rowid-usuario as rowid
field dt-emissao-aux as date
field tt-valor-tot as dec format ">>>,>>>,>>9.9999"
field qt-usuario as int
field cd-modalidade like propost.cd-modalidade
field nr-proposta like propost.nr-proposta
field cd-plano like propost.cd-plano
field cd-tipo-plano like propost.cd-tipo-plano
field mm-referencia as int format "99"
field aa-referencia as int format "9999"
field dt-referencia as date
field nr-ter-adesao like propost.nr-ter-adesao
field cd-contratante like propost.cd-contratante
field cd-contratante-origem like propost.cd-contratante
field nr-sequencia like notaserv.nr-sequencia.
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
dt-emissao-aux – data de emissão da nota de serviço em questão
tt-valor-tot – valor total da nota se serviço com descontos
qt-usuario - quantidade de beneficiários ativos
cd-modalidade – código da modalidade do beneficiário
nr-proposta – número da proposta do beneficiário
cd-plano – código do plano de saúde
cd-tipo-plano – código do tipo de plano
mm-referencia – mês de referência
aa-referencia –ano de referência
dt-referencia –data de referência
nr-ter-adesao – número do termo de adesão
cd-contratante – código do contratante/cliente associado ao administrativo
cd-contratante-origem – código do contratante origem
nr-sequencia – número da sequência da nota de serviço.
Tabela de entrada-saída wk-evento-imposto
def temp-table wk-evento-imposto no-undo
field cd-evento like fatueven.cd-evento
field cd-imposto like dzimposto.cd-imposto
field vl-base as dec
field pc-aliquota like evenimp.pc-aliquota
Definição campo a campo da tabela de entrada-saída
cd-evento– código do evento relacionado ao desconto
cd-imposto – Código do imposto considerado no cálculo
vl-base– valor a ser considerado para cálculo de imposto
pc-aliquota – percentual de alíquota relacionado ao evento
Obs: essa tabela é considerada apenas no ponto de chamada "CRIA-EVEN-PROG"
Tabela de saída tmp-cpc-fp0711f-saida
def temp-table tmp-cpc-fp0711f-saida no-undo
field lg-undo-retry as logical
field ds-mensagem-erro as char format "x(75)"
field vl-total-nota like notaserv.vl-total
field lg-desconsidera-registro as log
field tt-valor-tot as dec format ">>>,>>>,>>9.9999"
field qt-usuario as int
field ds-retorno as char.
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.
vl-total-nota – recebe o valor da nota alterado.
lg-desconsidera-registro – indica se beneficiário será desconsiderado do faturamento do mês em questão.
tt-valor-tot – valor total da nota se serviço com descontos
qt-usuario – quantidade de beneficiários ativos
ds-retorno – descrição de retorno da CPC.