CPC-PP0410F.P

• 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

• No programa pp0410f.p e também na opção RPW, programa dtvw19aa.

Pontos de Utilização

• "GERA-EXCEL"
• "ALT-DTPRODUCAO"
• "GERA-PDF"
• "INICIO-TITUPRES": liberação a partir da versão 12.1.2301.

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)"
field r-titupres                          as rowid.

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.

r-titupres – Rowid da tabela de títulos.

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.cod-docto-ap
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 lg-next                    as log
field ds-mensagem                as char format "x(80)"
field vl-desconto                like titupres.vl-desconto-movto
field dt-producao                like titupres.dt-producao.
    

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.
• lg-next – Variável lógica que se retornado o valor YES, desconsidera o título .
• ds-mensagem – Deve conter mensagens de erro ou qualquer outro tipo de mensagem.
• vl-desconto - Valor do desconto. 
• dt-producao - Data de transação do encontro de contas que será utilizado no EMS, independente da opção escolhida em tela "Encontro de Contas".