Alteração do ponto de CPC "APOS-CBO" - cpc-bosaucontractingparty.p

Rotina utilizada para:

• Inclusão e Manutenção de contratantes.

Localização

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

Ponto de Utilização

• "APOS-CBO"

Include das definições das tabelas temporárias

• cpc-bosaucontractingparty.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.