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