cpc-pp0410f.p0

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.