CPC-PP0800A.P

• 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.

...

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

...

• 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       field nr-insc-contratante                  LIKE contrat.cdnr-insc-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 nr-insc-contratante – indica o número de inscrição 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.