Histórico da Página

...

• 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 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"
• "ALT-PREST"
• "APOS-IMP-PARAM"
• "GERACAO-CSV" com eventos "MONTA-ARQUIVO" e "GERA-RELATORIO".
• "APOS-PARAMETROS"

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                                    like preserv.cd-unidade
field cd-prestador                                  like preserv.cd-prestador
field cd-fornecedor                                like preserv.cd-contratante
field dt-anoref                                        like perimovi.dt-anoref
field nr-perref                                         like perimovi.nr-perref
field vl-base-cofins                                like titupres.vl-base-inss-movto
field vl-base-csll               field nm-ponto-chamada-cpc               as char format "x(15)"
field in-evento-programa                      as char format "x(20)"
field cd-unidade like titupres.vl-base-inss-movto
field vl-base-pis-pasep                           like titupres.vl-base-inss-movto
field dt-producao          like preserv.cd-unidade
field cd-prestador                           as date
field cd-unidade-operadora                  like preserv.cd-prestadorunidade
field cd-fornecedor       vl-base-imp-unico                          like preserv.cd-contratante
field dt-anoref           titupres.vl-base-inss-movto
field cd-unidade-sel                              like perimovipreserv.dtcd-anorefunidade
field nr-perref cd-tipo-medicina-ini                                         like perimovi.nr-perref
field vl-base-cofins       like titupres.cd-tipo-medicina
field cd-tipo-medicina-fim                          like titupres.vlcd-basetipo-inss-movtomedicina
field vlaa-basefatura-csll ini                                   like titupres.vl-base-inss-movto
field vl-base-pis-pasep  like moviproc.aa-fatura
field aa-fatura-fim                                 like titupresmoviproc.vl-base-inss-movtoaa-fatura
field dtcd-serie-producao ini                                   as date like moviproc.cd-serie-nf
field cd-unidade-operadora serie-fim                                  like preservmoviproc.cd-serie-unidadenf
field vlnr-base-imp-unico fatura-ini                                    like titupreslike moviproc.vl-base-inss-movtonr-fatura
field cdnr-unidadefatura-sel fim                                  like preservlike moviproc.cdnr-unidade fatura
field cd-tipolocal-medicina-ini                     like titupres.cd-tipo-medicina
field cd-tipo-medicina-fim                    like titupreslike locaaten.cd-tipolocal-medicina atendimento
field aacd-faturalocal-ini fim                                  like moviproclocaaten.aacd-local-fatura atendimento
field aalg-fatura-fim transacao                                 like moviproc.aa-fatura as log
field cdlg-serie-ini procedimento                                    like moviproc.cd-serie-nf as log
field cd-serie-fim lg-insumo                                      like moviproc.cd-serie-nf as log
field nr-fatura-ini lg-periodo                                     like moviproc.nr-fatura as log
field nrin-faturaliberado-fim 1                                 like moviproc.nr-fatura
field cd-local-ini as char format "x(1)"
field in-liberado-2                                   like locaaten.cd-local-atendimento  as char format "x(1)"
field cd-local-fim       transacao-ini                            like locaatenlike moviproc.cd-local-atendimento transacao
field lgcd-transacao-fim                                 as log
field lg-procedimento  like moviproc.cd-transacao
field cd-unidade-principal-ini              like preserv.cd-unidade
field cd-unidade-principal-fim               as loglike preserv.cd-unidade
field lg-insumo         cd-prestador-principal-ini            like preserv.cd-prestador
field cd-prestador-principal-fim                   as log
field lg-periodo       like preserv.cd-prestador
field in-selec-benef                               as logchar
field in-liberado-1               lg-local                   as char format "x(1)"
field in-liberado-2                        as log
field in-calculo-pagamento                  as char format "x(1)"
field cd-transacaotipo-ini insumo                             like moviprocinsumos.cd-tipo-transacaoinsumo
field cd-transacaoproc-fim insumo                            like moviprocinsumos.cd-transacaoinsumo
field cd-unidade-principal-ini pacote                          like preserv.cd-unidade
field cd-unidade-principal-fim             like preserv.cd-unidade  as int64
field cd-prestador-principal-ini dt-realizacao                      like preserv.cd-prestador
field cd-prestador-principal-fim           like preserv like moviproc.cddt-prestadorrealizacao
field indt-selec-benef vencimento                               as char like moviproc.dt-realizacao
field lg-local       vl-producao                                    as log like titupres.vl-producao-movto
field inlg-calculo-pagamento                  as char format "x(1)"
field cd-tipo-insumo per-anterior                              as log
field ds-processo-aux                              like insumos like pagapres.ds-processo
field in-tipo-fatura                                as integer
field cd-contratante                             like preserv.cd-tipo-insumocontratante
field lg-pagamento-unificado               as log initial false
field cd-procunidade-insumo prestador                             like insumoslike notapres.cd-unidade-insumoprestador
field cd-pacote   serie-nf                                     like paproinsnotapres.cd-pacote
field dt-realizacao                                like moviproc.dt-realizacao
field dt-vencimento serie-nf
field cod-fatur-ap                                   like moviproc.dt-realizacaolike notapres.cod-fatur-ap
field vl-producao nr-fatura                                         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

...

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

...

field nm-arquivo-imp                       as char
field cd-evento-imp                         like evenfatu.cd-evento
field lg-considera-prest-imp            as log

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

field lg-habilita                                as log.

Definição campo a campo da tabela de saída tmp-cpc-pp0410o-saida

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

...