CPC-PP0410O.P

Rotina para:

• Tratar se irão ser calculados impostos de cofins, pis-pasep e csll dos prestadores. São passados dados de bases de cofins e código de prestador e fornecedor para que o cliente possa tratar e devolver se irá calcular o cofins/pis-pasep/csll do prestador que está sendo calculado;
• Selecionar quais movimentos deverão ser considerados no processo de Previsão/Calculo de pagamentos;
• Indicar se será executado calculo especifico após a previsão/calculo do pagamento de prestadores no programa ppapi001.p e;
• Indicar se deverá ser considerado para pagamento o valor do pacote, mesmo que este valor seja maior que o valor de pagamento do movimento calculado pelo sistema;
• Validar a data de produção com a data de vencimento informada;
• Permitir que o pagamento dos movimentos vinculados a fatura do RC seja efetuado a um prestador diferente do informado na fatura;
• Gerar relatório CSV com diferentes informações do relatório padrão do programa;
• 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

• Dentro do programa pp0410o.p antes de ser feita a previsão do cálculo do prestador para que se possa fazer algum tratamento específico. Não é utilizado nada na volta da cpc, apenas faz-se o tratamento de erro. É executado o evento "LIMPA-TEMP".
• Dentro do programa ppapi001.p quando é feita a previsão do cálculo são enviados os dados das bases para que faça tratamento específico. Não é utilizado nada na volta da cpc, apenas faz-se o tratamento de erro. É executado o evento "ARMAZENA-IMPOSTO ".
• Dentro do programa ppapi001.p quando é feito o cálculo é utilizada a temp-table de saída, ou seja, a temp-table de saída diz se serão calculados os impostos de cofins/pis-pasep/csll para o prestador em questão. É executado o evento "BUSCA-IMPOSTO".
• Dentro do programa ppapi001.p quando é feita a movimentação dos valores de pagamento do prestador dos movimentos oriundos de pacote é executado o evento "PAGTO-PACOTE".
• Dentro do programa pp0410o.p após a informação dos parâmetros na tela de seleção. A tabela temporária WK-MOVTO e a variável LG-CONSIDERA-WK-MOVTO serão utilizadas na volta da cpc e dentro da API PPAPI001.P.
• Dentro do programa pp0410o.p após a informação dos parâmetros na tela de parâmetros. A tabela temporária de saída indica se será executado o calculo especifico dentro da ppapi001.p através da cpc-ppapi001.p.
• Dentro do programa pp0410o.p após a informação da Data de vencimento/Data Base Vencimento na tela de seleção Não é utilizado nada na volta da cpc, apenas faz-se o tratamento de erro.
• Dentro do programa pp0410o.p antes da chamada da ppapi001.p. É executado o evento ALT-PREST que devolvera a tabela temporária WK-PREST indicando os prestadores de pagamento.
• Dentro do programa pp0410 pp0410o.p dentro da procedure imp-parametros é executado a cpc que irá atribuir o valor a variável que sera exibida no relatório.

Pontos de Utilização

• "BASE-IMPOSTOS"; "CALC-EVE-EXTR", "FIM-SELECAO", "CALC-ESPECIFICO", "PAGTO-PACOTE", "DATA-PRODUCAO" e "ALT-PREST", "APÓS-IMP-PARAM".

Include das definições das tabelas temporárias

• cpc-pp0410o.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-pp0410o-entrada

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

• Dentro do programa dtvw17aa.p verifica se o evento BLOQ-DT-VENC  da CPC está ativo e bloqueia o campo dt-vencimento e dentro da procedure pi-executar é executado o evento BLOQ-DT-VENC da cpc que irá verificar se uma fatura foi selecionada e se o usuário tem permissão para alterar a data de vencimento.
• Dentro do programa pp0410o.p verifica se o evento BLOQ-DT-VENC  da CPC está ativo e bloqueia o campo dt-vencimento e dentro da procedure opcao-selecao é executado o evento BLOQ-DT-VENC da cpc que irá verificar se uma fatura foi selecionada e se o usuário tem permissão para alterar a data de vencimento.

Pontos de Utilização

• "BASE-IMPOSTOS"
• "CALC-EVE-EXTR"
• "FIM-SELECAO"
• "CALC-ESPECIFICO"
• "PAGTO-PACOTE"
• "DATA-PRODUCAO"
• "ALT-PREST"
• "APOS-IMP-PARAM"
• "GERACAO-CSV" com eventos "MONTA-ARQUIVO" e "GERA-RELATORIO".
• "APOS-PARAMETROS"
• "BLOQ-DT-VENC"
• "ANTES-FIM"

Include das definições das tabelas temporárias

• cpc-pp0410o.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-pp0410o-entrada

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

field nm-ponto-chamada-cpc               as char format "x(15)"
field in-evento-programa                      as char format "x(20)"
field cd-unidade field nm-ponto-chamada-cpc               as char format "x(15)"
field in-evento-programa                      as char format "x(20)"
field cd-unidade                                    like preserv.cd-unidade
field cd-prestador                                  like preserv.cd-prestador
field cd-fornecedor                                like preserv.cd-contratante
field dt-anoref                                        like perimovipreserv.dtcd-anorefunidade
field nrcd-perref prestador                                  like preserv.cd-prestador
field cd-fornecedor         like perimovi.nr-perref
field vl-base-cofins                        like preserv.cd-contratante
field dt-anoref                                        like titupresperimovi.vl-base-inss-movtodt-anoref
field vl-base-csll nr-perref                                         like titupresperimovi.vl-base-inss-movtonr-perref
field vl-base-pis-pasep cofins                           like      like titupres.vl-base-inss-movto
field dtvl-base-producao csll                                   as date
field cd-unidade-operadora                  like preserv.cd-unidadelike titupres.vl-base-inss-movto
field vl-base-imppis-unico pasep                          like like titupres.vl-base-inss-movto
field cd-unidade-sel dt-producao                                    like preserv.cd-unidade as date
field cd-tipounidade-medicina-ini operadora                     like titupres like preserv.cd-tipo-medicina unidade
field cdvl-tipobase-medicinaimp-fim unico                        like titupres.cdvl-base-tipoinss-medicina movto
field aacd-faturaunidade-ini     sel                              like moviprocpreserv.aacd-fatura unidade
field aacd-tipo-fatura-fim             medicina-ini                     like moviproctitupres.aacd-fatura tipo-medicina
field cd-tipo-serie-ini                 medicina-fim                    like moviproctitupres.cd-serietipo-nf medicina
field cdaa-seriefatura-fim ini                                  like moviproc.cdaa-serie-nf fatura
field nraa-fatura-ini   fim                                 like moviproc.nraa-fatura
field nrcd-faturaserie-fim ini                                   like  like moviproc.nrcd-serie-fatura nf
field cd-localserie-ini fim                                   like locaaten like moviproc.cd-localserie-atendimento nf
field cdnr-localfatura-fim ini                                    like locaatenlike moviproc.cdnr-local-atendimento fatura
field lgnr-fatura-transacao fim                                 as log like moviproc.nr-fatura
field lg-procedimento cd-local-ini                                   as loglike locaaten.cd-local-atendimento
field lgcd-local-insumo fim                                     as log like locaaten.cd-local-atendimento
field lg-periodo     transacao                                 as log
field in-liberado-1       lg-procedimento                           as char format "x(1)" log
field in-liberado-2 lg-insumo                                      as char format "x(1)"as log
field cd-transacao-ini lg-periodo                                 like moviproc.cd-transacao    as log
field cdin-transacao-fim liberado-1                                  like moviproc.cd-transacao
field cd-unidade-principal-ini as char format "x(1)"
field in-liberado-2                    like preserv.cd-unidade
field cd-unidade-principal-fim             like preserv.cd-unidade  as char format "x(1)"
field cd-prestador-principaltransacao-ini                  like preserv.cd-prestador
field cd-prestador-principal-fim           like preservmoviproc.cd-prestadortransacao
field incd-selectransacao-benef fim                               as char
field lg-local  like moviproc.cd-transacao
field cd-unidade-principal-ini                      like preserv.cd-unidade
field cd-unidade-principal-fim             like preserv.cd-unidade
field cd-prestador-principal-ini            like preserv.cd-prestador
field cd-prestador-principal-fim            as loglike preserv.cd-prestador
field in-calculoselec-pagamento benef                  as char format "x              as char
field lg-local                                          as log
field in-calculo-pagamento                  as char format "x(1)"
field cd-tipo-insumo                             like insumos.cd-tipo-insumo
field cd-proc-insumo                            like insumos.cd-insumo
field cd-pacote                                      like paproins.cd-pacote as int64
field dt-realizacao                                like moviproc.dt-realizacao
field dt-vencimento                              like moviproc.dt-realizacao
field vl-producao                                  like titupres.vl-producao-movto.

Definição campo a campo da tabela de entrada

• in-evento-programa – Identifica qual procedimento a cpc deve executar no momento que está sendo chamada – pode assumir os valores "LIMPA-TEMP", "ARMAZENA-IMPOSTO", "BUSCA-IMPOSTO", "CALCULO-PREVISAO".
• Cd-unidade – Código da unidade do prestador .
• Cd-prestador – Código do prestador a ser definido se calcula os impostos de cofins/pis-pasep/csll.
• cd-fornecedor – Código do fornecedor que está vinculado ao prestador .
• dt-anoref – Ano do período que está sendo calculado.
• nr-perref – Número do período que está sendo calculado.
• vl-base-cofins – Valor da base do cofins calculada para o prestador.
• vl-base-pis-pasep – Valor da base do pis-pasep calculada para o prestador.
• dt-producao – Data base da produção informada pelo usuário
• vl-base-csll – Valor da base do csll calculada para o prestador.
• vl-base-imp-unico – Valor da base do imposto unico calculado para o prestador.
• Cd-unidade-sel – Código da Unidade do prestador;
• Cd-tipo-medicina-ini – Código do tipo de medicina inicial;
• Cd-tipo-medicina-fim – Código do tipo de medicina final;
• Aa-fatura-ini – Ano da fatura inicial;
• Aa-fatura-fim – Ano da fatura final;
• Cd-serie-ini – Código da Série Inicial;
• Cd-serie-fim – Código da Série final;
• Nr-fatura-ini – Número da fatura inicial;
• Nr-fatura-fim – Número da fatura final;
• Cd-local-ini – Código do local de atendimento inicial;
• Cd-local-fim – Código do local de atendimento final;
• Lg-transação – Indica se considera a transação;
• Lg-procedimento – Indica se considera procedimentos;
• Lg-insumo – Indica se considera insumos;
• Lg-periodo – Indica se considera períodos anteriores;
• In-liberado-1 – Indicador de movimento liberados do contas ( 1 – liberados ou 0 – Ambos);
• In-liberado-2 – Indicador de Calculo ou previsão (1 – Calculo ou 0 – Previsão);
• Cd-transacao-ini – Código da transação inicial;
• Cd-transacao-fim – Código da transação final;
• Cd-unidade-principal-ini – Código da unidade do prestador principal inicial;
• Cd-unidade-principal-fim – Código da unidade do prestador principal final;
• Cd-prestador-principal-ini – Código do prestador principal inicial;
• Cd-prestador-principal-fim – Código do prestador principal inicial;
• In-selec-benef – Indicador do tipo de beneficiário (1 – Base, 2 – Intercambio e 3 – Ambos);
• Lg-local - Indica se considera o local de atendimento;
• In-calculo-pagamento – Indicador do tipo de calculo (P – Previsão, C – Calculo e G - Eventos Auto-Gerados);
• cd-tipo-insumo – Código do tipo do insumo;
• cd-proc-insumo – Código do procedimento ou código do insumo;
• cd-pacote – Código do pacote;
• dt-realizacao – Data de realização do movimento;
• dt-vencimento - Data de vencimento informada;
• vl-producao – Valor de produção do prestador.

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

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

 like titupres.vl-producao-movto
field lg-per-anterior                              as log
field ds-processo-aux                           like pagapres.ds-processo
field in-tipo-fatura                                as integer
field cd-contratante                             like preserv.cd-contratante
field lg-pagamento-unificado               as log initial false
field cd-unidade-prestador                  like notapres.cd-unidade-prestador
field cd-serie-nf                                     like notapres.cd-serie-nf
field cod-fatur-ap                                  like notapres.cod-fatur-ap
field nr-fatura                                        like notapres.nr-fatura
field h-tmp-prestador                          as handle
field i-num-ped-exec-rpw                    as int
field nm-arquivo                                   as char.

Definição campo a campo da tabela de entrada

• in-evento-programa – Identifica qual procedimento a cpc deve executar no momento que está sendo chamada.
• cd-unidade – Código da unidade do prestador .
• cd-prestador – Código do prestador a ser definido se calcula os impostos de cofins/pis-pasep/csll.
• cd-fornecedor – Código do fornecedor que está vinculado ao prestador .
• dt-anoref – Ano do período que está sendo calculado.
• nr-perref – Número do período que está sendo calculado.
• vl-base-cofins – Valor da base do cofins calculada para o prestador.
• vl-base-pis-pasep – Valor da base do pis-pasep calculada para o prestador.
• dt-producao – Data base da produção informada pelo usuário
• vl-base-csll – Valor da base do csll calculada para o prestador.
• vl-base-imp-unico – Valor da base do imposto unico calculado para o prestador.
• cd-unidade-sel – Código da Unidade do prestador;
• cd-tipo-medicina-ini – Código do tipo de medicina inicial;
• cd-tipo-medicina-fim – Código do tipo de medicina final;
• ca-fatura-ini – Ano da fatura inicial;
• ca-fatura-fim – Ano da fatura final;
• cd-serie-ini – Código da Série Inicial;
• cd-serie-fim – Código da Série final;
• nr-fatura-ini – Número da fatura inicial;
• nr-fatura-fim – Número da fatura final;
• cd-local-ini – Código do local de atendimento inicial;
• cd-local-fim – Código do local de atendimento final;
• lg-transação – Indica se considera a transação;
• lg-procedimento – Indica se considera procedimentos;
• lg-insumo – Indica se considera insumos;
• lg-periodo – Indica se considera períodos anteriores;
• In-liberado-1 – Indicador de movimento liberados do contas ( 1 – liberados ou 0 – Ambos);
• In-liberado-2 – Indicador de Calculo ou previsão (1 – Calculo ou 0 – Previsão);
• cd-transacao-ini – Código da transação inicial;
• cd-transacao-fim – Código da transação final;
• cd-unidade-principal-ini – Código da unidade do prestador principal inicial;
• cd-unidade-principal-fim – Código da unidade do prestador principal final;
• cd-prestador-principal-ini – Código do prestador principal inicial;
• cd-prestador-principal-fim – Código do prestador principal inicial;
• in-selec-benef – Indicador do tipo de beneficiário (1 – Base, 2 – Intercambio e 3 – Ambos);
• lg-local - Indica se considera o local de atendimento;
• in-calculo-pagamento – Indicador do tipo de calculo (P – Previsão, C – Calculo e G - Eventos Auto-Gerados);
• cd-tipo-insumo – Código do tipo do insumo;
• cd-proc-insumo – Código do procedimento ou código do insumo;
• cd-pacote – Código do pacote;
• dt-realizacao – Data de realização do movimento;
• dt-vencimento - Data de vencimento informada;
• vl-producao – Valor de produção do prestador;

• lg-per-anterior - Indica se considera períodos anteriores para cálculo;

• ds-processo-aux - Variável que grava o dia e a hora da execução;

• in-tipo-fatura - Indicador do tipo de fatura: 2 "Ambos",0 "Fatura",1 "NDR"

• cd-contratante - Código do fornecedor associado ao prestador;

• lg-pagamento-unificado - Indica se o pagamento é unificado;

• h-tmp-prestador - Temporária de prestadores.

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

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

field lg-undo-retry                            as log
field ds-mensagem-relatorio          as char format "x(75)"
field lg-calcula-cofins                      as log
field lg-calcula-pis-pasep                as log
field lg-calcula-csll                          as log
field lg-calcula-unico field lg-undo-retry                            as as log
field dslg-mensagemcalculo-relatorio especifico              as char format "x(75)"  as log
field lg-calculavalor-cofins pacote                          as as log

field lgnm-calcula-pis-pasep arquivo-imp                       as logchar
field lgcd-calculaevento-csll imp                           as log like evenfatu.cd-evento
field lg-considera-calcula-unico             prest-imp            as log

field lg-calculo-especifico dt-vencimento                        as log as date
field lg-gera-evento-deb-imp         as log

field lg-habilita        -valor-pacote                         as log.

...

• lg-undo-retry – Variável que controla os erros que podem ocorrer na CPC.
• ds-mensagem-retorno – Variável que recebe a descrição dos erros que ocorreram na CPC.
• lg-calcula-cofins – Variável que retorna se calcula cofins para o prestador.
• lg-calcula-pis-pasep – Variável que retorna se calcula pis-pasep para o prestador.
• lg-calcula-csll – Variável que retorna se calcula csll para o prestador.
• lg-calcula-unico – Variável que retorna se calcula imposto único para o prestador.
• lg-calculo-especifico – Variável que retorna se será executado calculo especifico após a previsão/calculo do pagamento de prestadores no programa ppapi001.p através da cpc-ppapi001.p.
• lg-valor-calculopacote - especifico – Variável que retorna se será executado calculo especifico após a previsão/calculo do pagamento de prestadores no programa ppapi001.p através da cpc-ppapi001.p.
• lg-valor-pacote - Variável que retorna se deverá ou não ser considerado o valor do pacote, mesmo que o sistema tenha calaculado um valor de pagamento inferior ao cadastrado no pacote, como sendo o valor de pagamento do movimento.

...

• deverá ou não ser considerado o valor do pacote, mesmo que o sistema tenha calaculado um valor de pagamento inferior ao cadastrado no pacote, como sendo o valor de pagamento do movimento.
• nm-arquivo-imp - Nome do arquivo CSV a ser importado.
• cd-evento-imp - Código do evento que será criado.
• lg-considera-prest-imp - Variável que indica se considera prestadores excluídos/suspensos
• lg-gera-evento-deb-imp - Variável que indica se cria ou não evento (movipres).
• lg-habilita- Indica se será habilitado ou campos data vencimento em tela.

Tabela de saída wk-movto

def {1} temp-table wk-movto no-undo

...

• rowid-movto – ROWID do movimento selecionado;
• Dsds-tipo-movto – Descrição do tipo do movimento;
• Cdcd-movto – Código do movimento (procedimento/insumo);
• Cdcd-tipo-insumo – Código do tipo do insumo, se movimento for insumo;
• Cdcd-unidade – Código da Unidade prestadora;
• Cdcd-transacao – Código da Transação do movimento/documento;
• Nrnr-serie-doc-original – Número de Série do Documento;
• Nrnr-doc-sistema – Número do Documento;
• Qtqt-movto – Quantidade de movimentos realizados;
• Dtdt-real – Data de realização dos movimentos
• Cdcd-unidade-pres – Código da Unidade do prestador executante;
• Cdcd-prestador – Código do prestador ejecutante;
• Cc-asterisco – Indicador de seleção do movimento. Se igual a "*" então o movimento foi selecionado.

...

Tabela de saída wk-prest

def {1} temp-table wk-prest no-undo

...

• cd-unidade-pagamento – Códido da unidade de pagamento;cd-prestador-pagamento – Código do prestador de pagamento;cd-unidade-prestador - Código da unidade da fatura do RC;
• cd-prestador – Código do prestador da fatura do RC;
• Variáveis de saídaaída lg-considera-wk-movto
• def {1} var lg-considera-wk-movto as log.
• Definição campo a campo das variáveis de saída
• -pagamento – Código do prestador de pagamento;
• cd-unidade-prestador - Código da unidade da fatura do RC;
• cd-prestador – Código do prestador da fatura do RC;lg-considera-wk-movto – Indica se deverá ou não ser considerado os movimentos da tabela wk-movto no processo de seleção dos movimentos realizados.