CPC-FP0711E.p

• Rotina utilizada na geração da fatura batch.
• 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 fp0711e.p.

Ponto de Utilização

• "GERA-FATURA"
• "VERIFICA-REGRA"
• "CALC-BASE-IMP"
• "VALIDA-ESPECIES"
• "APOS-GER-FATURA" -  a partir da 12.1.2209

Include das definições das tabelas temporárias

• cpc-fp0711e.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-fp0711e-entrada

def temp-table tmp-cpc-fp0711e-entrada no-undo

fields nm-ponto-chamada-cpc                 as char format "x(15)"
fields in-evento-programa                        as char
fields nr-rowid-nota                                   as rowid
fields nr-rowid-fatura                                as rowid
field in-entidade                                        like evenimp.in-entidade
field cd-imposto                                        like evenimp.cd-imposto
field cd-evento                                          like evenimp.cd-evento
field dt-vigencia                                        like evenimp.dt-vigencia-ini
field cd-unidade-grupo                             like evengrimp.cd-unidade-grupo
field cd-grupo-contratante                        like evengrimp.cd-grupo-contratante
field cd-compl-grupo-contrat                   like evengrimp.cd-compl-grupo-contrat
field nr-insc-contratante                          like evenctrimp.nr-insc-contratante
field vl-base-imp                                      like fatueven.vl-evento.

Definição campo a campo da tabela de entrada

• • in-evento-programa – Identifica qual evento deve ser executado no momento que está sendo chamada
  • nm-ponto-chamada-cpc – Ponto de chamada de cpc
  • nr-rowid-nota – rowid da nota de serviço
  • nr-rowid--fatura – Rowidda fatura
  • in-entidade – Entidade que pertence a estrutura que está sendo calculada.
  • cd-imposto – Código do imposto que está sendo calculado.
  • cd-evento – Código do evento que está sendo calculado
  • dt-vigencia – Data de vigência do imposto que está sendo calculada.
  • cd-unidade-grupo – Código da unidade do grupo do contratante que está sendo calculado.
  • cd-grupo-contratante – Grupo do contratante que está sendo calculado.
  • cd-compl-grupo-contratante – Código do complemento do grupo do contratante que está sendo calculado.
  • nr-insc-contratante – Número da inscrição do contratante que está sendo calulado.
  • vl-base-imp – Valor da base de cálculo do imposto que está sendo calculado.

Tabela de entrada tmp1

def temp-table tmp1 no-undo

field r-nota                as recid
field cd-modalidade        like notaserv.cd-modalidade   
field cd-contratante        like notaserv.cd-contratante     
field cd-contratante-origem like notaserv.cd-contratante-origem
field nr-ter-adesao        like notaserv.nr-ter-adesao   
field aa-referencia        like notaserv.aa-referencia       
field mm-referencia        like notaserv.mm-referencia       
field nr-sequencia          like notaserv.nr-sequencia
field in-tipo-nota          like notaserv.in-tipo-nota.

Definição campo a campo da tabela de entrada

• • r-nota – Recid da nota
  • cd-modalidade – Modalidade da nota
  • cd-contratante – Código do Contratante da nota
  • cd-contratante-origem – Código do Contratante Origem da nota
  • nr-ter-adesao – Número do termo de adesão da nota calculada
  • aa-referencia – Ano de referencia da nota
  • mm-referencia – Mês de referencia da nota
  • nr-sequencia – Número da sequencia da nota de serviço
  • in-tipo-nota – Tipo de nota de serviço gerada

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

def temp-table tmp-cpc-fp0711e-saida no-undo

fields lg-undo-retry                                  as logical
fields ds-mensagem-erro                       as char format "x(75)"
field lg-continua                                       as log initial yes
field vl-base-imp                                     like fatueven.vl-evento.

Definição campo a campo da tabela de saída

• • lg-undo-retry – Variável que controla os erros que podem ocorrer na CPC.
  • ds-mensagem-erro – Variável que recebe a descrição dos erros que ocorreram na CPC.
  • lg-continua – Indica se processo deve continuar ou não.
  • vl-base-imp – Valor da base de cálculo do imposto que está sendo calculado pela cpc.