cpc-fp0512j.p1

Rotina utilizada para:
criação de eventos de desconto de forma específica
não considerar o usuário no faturamento do mês em questão
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 do programa fp0512j, anterior a criação da nota.
Dentro do programa fp0512j, no momento da leitura dos beneficiários.
Pontos CONTA-USUARIO e VER-USUARII, no procedimento que conta usuarios faturados.
Ponto de Utilização
"CRIA-EVEN-PROG"
"COBRA-PROX-MES"
"CONTA-USUARIO"
"VER-USUARIO"
Include das definições das tabelas temporárias
cpc-fp0512j.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-fp0512j-entrada
def temp-table tmp-cpc-fp0512j-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.
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
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
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-fp0512j-saida
def temp-table tmp-cpc-fp0512j-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.
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.
cpc-fp0514i3.p
Rotina utilizada para:
Quando do estorno da nota de serviço, indicar que a mesma pode sofrer desconto novamente
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
"LER-USUARIO"
"APAGA-NOTA"
"EXC-VLBENEF"
"ANTES-ESTORNO"
Include das definições das tabelas temporárias