CPC-FP0511S.p

• Rotina utilizada na geração de fatura avulsa.
• 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 fp0511s.p.

Ponto de Utilização

• "APOS-INC-EVENTO"
• "APOS-GRAVAR"
• "CALC-BASE-IMP"
• "DADOS-GENERICOS"

Include das definições das tabelas temporárias

• cpc-fp0511s.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-fp0511s-entrada

def temp-table tmp-cpc-fp0511s-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                           as int
field cd-contratante                            as int
field cd-contratante-origem               as int
field nr-ter-adesao                             as int
field aa-referencia                              as int
field mm-referencia                           as int
field nr-sequencia                              as int
field cd-evento                                   as int
field cd-usuario                                  as int
field vl-total                                        as dec
field in-entidade                                 like evenimp.in-entidade
field cd-imposto                                 like evenimp.cd-imposto
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

                       field cd-forma-pagto                          like tipleven.cd-forma-pagto

                       field cd-modulo                                  like tipleven.cd-modulo

                       field aa-validade                                 like tipleven-ct.aa-validade.

.

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
  • cd-modalidade – Código da modalidade que está sendo calculada a fatura avulsa.
  • cd-contratante – Código do contratante da fatura avulsa
  • cd-contratante-origem – Código do contratante origem da fatura avulsa
  • nr-ter-adesao – número do termo de adesão da fatura avulsa
  • aa-referencia – Ano de referência da fatura avulsa
  • mm-referencia – Mês de referência da fatura avulsa
  • nr-sequencia – Número da seqüência da nota da fatura avulsa
  • cd-evento – Código do evento da fatura avulsa
  • vl-total – Valor total da fatura avulsa
  • 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.
  • cd-forma-pagto – Código da forma de pagamento.
  • cd-modulo – Código do módulo
  • aa-validade – Ano de validade da conta contábil.

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

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

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

                       fields r-tipleven-ct                             as rowid.

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.
  • r-tipleven-ct – Variável que identifica o registro referente à conta contábil.