Rotina utilizada para alterar a data no acesso a tabela percevento – Percentual de proporção dos eventos.
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
Para o ponto de chamada "ALTERA-DATA", dentro do programa rtpercevento.p antes de ler a tabela percevento.
Ponto de Utilização
"ALTERA-DATA".
Include das definições das tabelas temporárias
cpc-rtpercevento.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-rtpercevento-entrada
def temp-table tmp-cpc-rtpercevento-entrada no-undo
field in-evento-programa as char format "x(10)"
field nm-ponto-chamada-cpc as char format "x(15)"
field cd-modalidade-cpc like percevento.cd-modalidade
field cd-plano-cpc like percevento.cd-plano
field cd-tipo-plano-cpc like percevento.cd-tipo-plano
field cd-forma-pagto-cpc like percevento.cd-forma-pagto
field cd-evento-cpc like percevento.cd-evento
field aa-referencia-cpc like fatura.aa-referencia
field mm-referencia-cpc like fatura.mm-referencia
field dt-emissao-cpc like fatura.dt-emissao
field lg-percevento-cpc as log
field pc-prop-evento-cpc like percevento.pc-prop-evento.
Definição campo a campo da tabela de entrada
in-evento-programa – Evento do programa que chama CPC-RTPERCEVENTO.P.
nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza.
Cd-modalidade-cpc – Código da Modalidade do termo a ser faturado
Cd-plano-cpc Código do Plano do termo a ser faturado
Cd-tipo-plano-cpc – Código do tipo do Plano do termo a ser faturado
Cd-forma-pagto-cpc – Código da Forma de pagamento do termo a ser faturado
Cd-evento-cpc – Codigo do evento da nota de serviço
Aa-referencia-cpc – ano de referencia da nota de serviço
Mm-referencia-cpc - mês de referencia da nota de serviço
Dt-emissao-cpc – data de emissão da nota de serviço
LG-percevento-cpc – indicador de percentual do evento
PC-prop-evento-cpc – percentual de proporção do evento
Tabela de saída tmp-cpc-rtpercevento-saida
def temp-table tmp-cpc-rtpercevento-saida no-undo
field lg-erro as log
field ds-mensagem as char format "x(75)"
field dt-ref-cpc as date format "99/99/9999".
Definição campo a campo da tabela de saída
lg-erro – Variável que controla os erros que podem ocorrer na CPC.
ds-mensagem – Variável que recebe a descrição dos erros que ocorreram na CPC.
Dt-ref-cpc – data alterada pela cpc.