CPC-PP0410F.P

• Rotina utilizada para possibilitar gerar o relatório de títulos exportados ao CP em formato excel.
• 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.l.

Localização

• No programa pp0410f.p,após imprimir o relatório de títulos exportados.

Ponto de Utilização

• "GERA-EXCEL"

Include das definições das tabelas temporárias

• cpc-pp0410f.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-pp0410f-entrada

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

field in-evento-programa as char format "x(06)"
field nm-ponto-chamada-cpc as char format "x(15)".

Definição campo a campo da tabela de entrada
in-evento-programa – Evento do programa que chama a cpc-pp0410f.p.
nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza.

Tabela temporária de entrada wk2

def temp-table wk2

field ep-codigo                          like dzempre.ep-codigo
field cod-estabel                        like titupres.cod-estabel
field cd-unidade                         like titupres.cd-unidade
field cd-unidade-prestador          like titupres.cd-unidade-prestador
field cd-tipo-medicina                 like titupres.cd-tipo-medicina
field cd-prestador                       like titupres.cd-prestador
field nm-prestador                      like preserv.nm-prestador
field cd-grupo-prestador              like preserv.cd-grupo-prestador
field cod-esp                              like titupres.cod-esp
field cd-contratante                     like titupres.cd-contratante
field nr-docto                             like titupres.nr-docto
field ct-codigo                            like titupres.ct-codigo-imp
field sc-codigo                           like titupres.sc-codigo-imp
field dt-producao                        like titupres.dt-producao
field dt-vencimento                     like titupres.dt-vencimento
field cd-serie-nf                          like titupres.cd-serie-nf
field parcela                              like titupres.parcela
field vl-saldo                              like titupres.vl-saldo
field vl-rendimento-trib                like titupres.vl-rendimento-trib
field cd-tipo-especie                   as char format "x(2)"
field cd-referencia                      as char format "x(10)"
field nr-pessoa-ems504               as int format ">>>,>>>,>>9"
field cd-fornec-favorecido            as int format ">>>,>>>,>>9"
field nr-parcela-principal              like titupres.parcela
field lg-exportado                      as log 
field cd-imposto                        like preserv.cd-imposto
field cd-class-imposto                like preserv.cd-classificacao-imposto
index wk1-prestador                  as primary
ep-codigo
cod-estabel
cd-unidade
cd-unidade-prestador
cd-prestador
cd-tipo-medicina
cod-esp
nr-docto
parcela
index wk1-exportado cd-unidade
cd-unidade-prestador
cd-prestador
cd-tipo-medicina
cod-esp
nr-docto
nr-parcela-principal
lg-exportado.

Definição campo a campo da tabela de entrada

• ep-codigo - Codigo empresa.
• cod-estabel – Identificação do estabelecimento.
• cd-unidade - Unidade do prestador.
• cd-unidade-prestador – Codigo da unidade do prestador.
• cd-tipo-medicina - Tipo de medicina.
• cd-prestador - Codigo do prestador.
• nm-prestador - Nome do prestador.
• cd-grupo-prestador – Codigo grupo prestador.
• cod-esp – Codigo da espécie.
• cd-contratante – Codigo do fornecedor.
• nr-docto – Númeto do documento de pagamento do prestador no AP.
• ct-codigo – Número da conta contábil.
• sc-codigo - Número da sub conta contábil.
• dt-producao – Data referente a produção do prestador.
• dt-vencimento – Data de vencimento.
• cd-serie-nf - Serie da nota fiscal.
• parcela – Parcela de pagamento da taxa de inscrição.
• vl-saldo – Valor do saldo do título.
• vl-rendimento-trib – Valor do rendimento tributavel.
• cd-tipo-especie - Tipo espécie.
• cd-referencia - Número aleatório.
• nr-pessoa-ems504 – Codigo fornecedor.
• cd-fornec-favorecido – Codigo foenecedor favorecido
• nr-parcela-principal – Parcela principal
• lg-exportado – Indica exportado
• cd-imposto - Codigo do Imposto
• cd-class-imposto – Codigo da classificação do imposto de renda.

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

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

field lg-undo-retry                          as log
field lg-erro                                   as log
field ds-mensagem                        as char format "x(80)".

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

• lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC deve retornar SIM se erros aconteceram e NÃO se o processo foi concluído por completo.
• lg-erro – Variável lógica que é retornado o valor YES, quando ocorre erro dentro da cpc.
• ds-mensagem – Deve conter mensagens de erro ou qualquer outro tipo de mensagem.