Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

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

...

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                                   like titupres.vl-base-inss-movto
field vl-base-pis-pasep                         like titupres.vl-base-inss-movto
field dt-producao                                   as date
field cd-unidade-operadora                  like preserv.cd-unidade
field vl-base-imp-unico                        like titupres.vl-base-inss-movto
field cd-unidade-sel                              like preserv.cd-unidade
field cd-tipo-medicina-ini                     like titupres.cd-tipo-medicina
field cd-tipo-medicina-fim                    like titupres.cd-tipo-medicina
field aa-fatura-ini                                  like moviproc.aa-fatura
field aa-fatura-fim                                 like moviproc.aa-fatura
field cd-serie-ini                                    like moviproc.cd-serie-nf
field cd-serie-fim                                  like moviproc.cd-serie-nf
field nr-fatura-ini                                   like moviproc.nr-fatura
field nr-fatura-fim                                 like moviproc.nr-fatura
field cd-local-ini                                   like locaaten.cd-local-atendimento
field cd-local-fim                                  like locaaten.cd-local-atendimento
field lg-transacao                                 as log
field lg-procedimento                           as log
field lg-insumo                                     as log
field lg-periodo                                     as log
field in-liberado-1                                 as char format "x(1)"
field in-liberado-2                                as char format "x(1)"
field cd-transacao-ini                           like moviproc.cd-transacao
field cd-transacao-fim                          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           like preserv.cd-prestador
field in-selec-benef                               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
field dt-realizacao                                like moviproc.dt-realizacao
field dt-vencimento                              like moviproc.dt-realizacao
field vl-producao                                  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

...