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

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

Include das definições Include das definições das tabelas temporárias

• cpc-pp0410o.i

...

def temp-table tmp-cpc-pp0410o-entrada no-undo-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                 field nm-ponto-chamada-cpc               as char format "x(15)"
field in-evento-programa  like preserv.cd-contratante
field dt-anoref                                        as char format "x(20)"
field cd-unidade  like perimovi.dt-anoref
field nr-perref                                          like preservlike perimovi.cdnr-unidadeperref
field cd-prestador   vl-base-cofins                                like preserv.cd-prestador
field cd-fornecedor titupres.vl-base-inss-movto
field vl-base-csll                                    like preserv.cd-contratante
field dt-anoref         like titupres.vl-base-inss-movto
field vl-base-pis-pasep                                like perimovi.dt-anoref
field nr-perref like titupres.vl-base-inss-movto
field dt-producao                                         like perimovi.nr-perrefas date
field vlcd-base-cofins               unidade-operadora                  like tituprespreserv.vl-base-inss-movtocd-unidade
field vl-base-csll           -imp-unico                         like  like titupres.vl-base-inss-movto
field vlcd-base-pis-pasep unidade-sel                             like titupres like preserv.vl-base-inss-movto
field dt-producao cd-unidade
field cd-tipo-medicina-ini                                   as datelike titupres.cd-tipo-medicina
field cd-tipo-unidademedicina-operadora fim                    like preservtitupres.cd-tipo-unidademedicina
field vlaa-base-imp-unico fatura-ini                                  like titupresmoviproc.vl-base-inss-movtoaa-fatura
field cdaa-unidadefatura-sel fim                                  like preservlike moviproc.cdaa-unidade fatura
field cd-tipo-medicinaserie-ini                                   like titupres like moviproc.cd-tiposerie-medicina nf
field cd-tipo-medicina-fim serie-fim                                  like titupresmoviproc.cd-tiposerie-medicina nf
field aanr-fatura-ini                                    like like moviproc.aanr-fatura
field aanr-fatura-fim                                 like moviproc.aanr-fatura
field cd-serielocal-ini                                    like moviproclike locaaten.cd-serielocal-nf atendimento
field cd-serielocal-fim                                  like moviproclocaaten.cd-serielocal-nf atendimento
field nr-fatura-ini         lg-transacao                           like moviproc.nr-fatura
field nr-fatura-fim       as log
field lg-procedimento                           like moviproc.nr-fatura as log
field cd-local-ini lg-insumo                                     like locaaten.cd-local-atendimento as log
field cd-local-fim lg-periodo                                      like locaaten.cd-local-atendimento as log
field lg-transacao in-liberado-1                                   as log
field lg-procedimento as char format "x(1)"
field in-liberado-2                               as log as char format "x(1)"
field lgcd-transacao-insumo ini                                     as log
field lg-periodo like moviproc.cd-transacao
field cd-transacao-fim                          like moviproc.cd-transacao
field cd-unidade-principal-ini             as log like preserv.cd-unidade
field incd-unidade-liberadoprincipal-1 fim             like preserv.cd-unidade
field cd-prestador-principal-ini            like preserv.cd-prestador
field cd-prestador-principal-fim           as char format "x(1)" like preserv.cd-prestador
field in-liberadoselec-2 benef                                as char format "x(1)"as char
field cd-transacao-ini lg-local                                         like moviproc.cd-transacao as log
field cdin-transacaocalculo-fim pagamento                          like moviproc.cd-transacao as char format "x(1)"
field cd-unidade-principal-ini tipo-insumo                  like preserv.cd-unidade
field cd-unidade-principal-fim             like preservinsumos.cd-tipo-unidade insumo
field cd-prestador-principal-ini proc-insumo                            like preservinsumos.cd-prestadorinsumo
field cd-prestador-principal-fim pacote                                     like preserv like paproins.cd-prestadorpacote
field indt-selec-benef realizacao                               as char like moviproc.dt-realizacao
field lgdt-local vencimento                              like moviproc.dt-realizacao
field vl-producao                  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 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                                 

...

                            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-contratantelike notapres.cod-fatur-ap

                          field lg-pagamento-unificado               as log initial falsenr-fatura                                        like notapres.nr-fatura

                          field h-tmp-prestador                          as handle.

...

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.

...