CPC-

...

FP0711B-1.p

...

• Rotina utilizada para permitir a operadora controlar os eventos da nota de serviç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.

...

Include das definições das tabelas temporárias

• CPC-FP0711B-1.I

Tabelas de entrada e saída

...

def temp-table tmp-cpc-fp0711b-1-entrada entrada  no-undo

field in-evento-programa programa                        as  as char format "x(10)"
field nm-ponto-chamada-cpc cpc                  as char format "x(15)"
field nr-sequencia sequencia                                   like like notaserv.nr-sequencia
field vl-evento evento                                        like fatueven.vl-evento
field cd-modalidade                               as int
field dt-emissao cd-evento                                       as int
field nr-ter-adesao                                 as int
field nr-seq-erro                                    as int
field cd-forma-pagto                              as int
field h-tmp-erro                                     as handle
field dt-emissao                                     as as date.

Definição campo a campo da tabela de entrada

• in-evento-programa – Evento do programa que chama CPC-FP0711B-1.P. O valor desse campo deve ser "CONSULTA";
• nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa FP0711B.P: "ANTES-GERA-NOTA";
• nr-sequencia – Número de sequencia da nota;
• vl-evento – Valor dos eventos da nota;
• cd-modalidade – Modalidade da proposta que consta na nota;
• cd-evento – Código do evento da nota;
• nr-ter-adesao – Termo de Adesão da proposta que consta na nota;
• nr-seq-erro – É a sequencia da quantidade de erros encontrada dentro da execução;
• cd-forma-pagto – Forma de Pagamento da proposta que consta na nota;
• h-tmp-erro – handle da tabela temporária de erro.
• dt-emissao – Data de emissão da nota

...

• .

Tabela de saída tmp-cpc-fp0711b-1-saida

def temp-table tmp-cpc-fp0711b-1-saida saida    no-undo

field lg-undo-retry retry                               as as log
field ds-mensagem   mensagem                           as char format "x(75)"
field vl-evento nr-seq-erro                                as int
field lg-next                                       as log
field vl-evento                                    like fatueven.vl-evento.

...

• lg-undo-retry – Variável que controla os erros que podem ocorrer na CPC.;
• Dsds-mensagem -retorno – Variável que recebe a descrição dos erros que ocorreram na CPC.;
• nr-seq-erro – Variável que recebe a sequencia da quantidade de erros encontrada dentro da execução da CPC;
• lg-next – Variável que controla os erros que podem ocorrer na CPC para encerrar o processo;
• vlVl-evento – Valor dos eventos da nota;.

Tabela de entrada e saída w-fateve

def temp-table w-fateve no-undo like fatueven.

Tabela de entrada e saída w-fateveco

def temp-table w-fateveco no-undo like fateveco.

...