CPC-FP0511D.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.

...

__RefHeading__23695_2053127524 Âncora__RefHeading__9850_486694287__RefHeading__9850_486694287 Âncora__RefHeading__5061_213273755__RefHeading__5061_213273755 Âncora__RefHeading__14459_644533341__RefHeading__14459_644533341 Âncora__RefHeading__90357_1756225838__RefHeading__90357_1756225838Ponto de Utilização

• "CRIA-EVEN-PROG"
• "COBRA-PROX-MES"

...

Include das definições das tabelas temporárias

• cpc-fp0511d.i

...

__RefHeading__9854_486694287 Âncora__RefHeading__5065_213273755__RefHeading__5065_213273755 Âncora__RefHeading__14463_644533341__RefHeading__14463_644533341 Âncora__RefHeading__90361_1756225838__RefHeading__90361_1756225838Localização

• Dentro do programa fp0511d.p, anterior a criação da nota;
• Dentro do programa fp0511d.p, no momento da leitura dos beneficiários;

...

__RefHeading__14465_644533341 Âncora__RefHeading__90363_1756225838__RefHeading__90363_1756225838Tabelas de entrada e saída
anchor__RefHeading__23703_2053127524__RefHeading__23703_2053127524 Âncora__RefHeading__9858_486694287__RefHeading__9858_486694287 Âncora__RefHeading__5069_213273755__RefHeading__5069_213273755 Âncora__RefHeading__14467_644533341__RefHeading__14467_644533341 Âncora__RefHeading__90365_1756225838__RefHeading__90365_1756225838

Tabela de entrada tmp-cpc-fp0511d-entrada

def temp-table tmp-cpc-fp0511d-entrada no-undo
      field nm-ponto-chamada                           as char format "x(15)"
      field in-evento-programa

...

                         as char format "x(10)"
      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

...

Tabela de saída tmp-cpc-fp0511d-saida

def temp-table tmp-cpc-fp0511d-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 lg-desconsidera-benef-excluido as log

...

initial yes.

...

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.

...

• • lg-desconsidera-benef-excluido - indica se deve desconsiderar beneficiario excluído.