cpc-pp0800a.p1

Rotina utilizada na emissão da GFIP para consultar o valor de fundo rotativo descontado do prestador.
Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
Será utilizado para esta CPC apenas um registro na tabela temporária de saída.
Localização
No programa pp0800a.p, ao executar a geração do GFIP após a leitura dos movimentos de cada prestador.
Ponto de Utilização
"FUNDO-ROTATIVO"
Include das definições das tabelas temporárias
cpc-pp0800a.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-pp0800a-entrada
def temp-table tmp-cpc-pp0800a-entrada no-undo
field in-evento-programa as char format "x(06)"
field nm-ponto-chamada-cpc as char format "x(15)"
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 cod-esp like titupres.cod-esp
field nr-docto like titupres.nr-docto
field parcela like titupres.parcela
field dt-producao like titupres.dt-producao
field vl-base-inss-fis like titupres.vl-base-inss-calc
field vl-base-inss-jur like titupres.vl-base-inss-juridica
field vl-base-inss-ben like titupres.vl-base-inss-beneficente
field in-imp-tomador as int
field in-categoria as int.
Definição campo a campo da tabela de entrada
in-evento-programa – Indica o evento de chamada que deve ser " CONSULTA".
nm-ponto-chamada-cpc – Indica o ponto de chamada, que deve ser "FUNDO-ROTATIVO".
cd-unidade – Indica a unidade da operadora.
cd-unidade-prestador – Indica a unidade do prestador.
cd-tipo-medicina – Indica o tipo de medicina.
cd-prestador – Indica o código do prestador.
cod-esp – Indica o código da espécie.
nr-docto – Indica o numero do documento.
parcela – Indica a parcela.
dt-producao – Indica a data de produção.
vl-base-inss-fis – Indica o valor base do INSS de pessoa física.
vl-base-inss-jur– Indica o valor base do INSS de pessoa jurídica.
vl-base-inss-ben– Indica o valor base do INSS de entidade beneficente.
in-imp-tomador – Indica o tipo de impressão do tomador.
in-categoria – Indica a categoria do prestador.
Tabela de entrada e saída tp-valor-prestador
def temp-table tp-valor-prestador
FIELD cd-contratante LIKE contrat.cd-contratante
field cd-unidade-prestador like titupres.cd-unidade-prestador
field cd-prestador like titupres.cd-prestador
field in-cat-trabalhador as int format 99
field tt-faturas as dec
field vl-descontado as dec
index tp-valor-prestador-indice as primary cd-contratante
cd-unidade-prestador
cd-prestador
in-cat-trabalhador.
Definição campo a campo da tabela de entrada e saída
cd-contratante – indica o código do contratante.
cd-unidade-prestador – indica o código da unidade do prestador.
cd-prestador – Indica o código do prestador.
in-cat-trabalhador – Indica a categoria do prestador (física,jurídica ou credenciado).
tt-faturas – Indica o somatório de valores dos movimentos das faturas do prestador.
vl-descontado – Indica o somatório de valor descontado de fundo rotativo dos movimentos das faturas do prestador.
Tabela de saída tmp-cpc-pp0800a-saida
def temp-table tmp-cpc-pp0800a-saida no-undo
field lg-undo-retry as log
field ds-mensagem as char.
Definição campo a campo da tabela saída
lg-undo-retry – Indica se ocorreu erro durante processamento da cpc.
ds-mensagem – Descrição de mensagem de erro que será mostrada quando ocorrer erro.