CPC-FP0512J.p

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.

Âncora__RefHeading__23739_2053127524__RefHeading__23739_2053127524 Âncora__RefHeading__9894_486694287__RefHeading__9894_486694287 Âncora__RefHeading__5105_213273755__RefHeading__5105_213273755 Âncora__RefHeading__14503_644533341__RefHeading__14503_644533341 Âncora__RefHeading__90401_1756225838__RefHeading__90401_1756225838Localizaçã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

  Âncora__RefHeading__23741_2053127524__RefHeading__23741_2053127524 Âncora__RefHeading__9896_486694287__RefHeading__9896_486694287 Âncora__RefHeading__5107_213273755__RefHeading__5107_213273755 Âncora__RefHeading__14505_644533341__RefHeading__14505_644533341 Âncora__RefHeading__90403_1756225838__RefHeading__90403_1756225838Ponto de Utilização

• "CRIA-EVEN-PROG"
• "COBRA-PROX-MES"
• "CONTA-USUARIO"
• "VER-USUARIO"

Âncora__RefHeading__23743_2053127524__RefHeading__23743_2053127524 Âncora__RefHeading__9898_486694287__RefHeading__9898_486694287 Âncora__RefHeading__5109_213273755__RefHeading__5109_213273755 Âncora__RefHeading__14507_644533341__RefHeading__14507_644533341 Âncora__RefHeading__90405_1756225838__RefHeading__90405_1756225838Include 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.

...