Histórico da Página

...

field nm-ponto-chamada-cpc               as char format "x(15)"
field in-evento-programa                     as  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  like perimovi.dt-anoref
field nr-perref                                    like       like perimovi.nr-perref
field vl-base-cofins                                like titupres.vl-base-inss-movto
field vl-base-csll                                  like   like titupres.vl-base-inss-movto
field vl-base-pis-pasep                         like titupres.vl-base-inss-movto
field dt-producao                              as       as date
field cd-unidade-operadora                  like preserv.cd-unidade
field vl-base-imp-unico                       like  like titupres.vl-base-inss-movto
field cd-unidade-sel                           like    like preserv.cd-unidade
field cd-tipo-medicina-ini                    like   like titupres.cd-tipo-medicina
field cd-tipo-medicina-fim                   like  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  like moviproc.cd-serie-nf
field nr-fatura-ini                                   like moviproc.nr-fatura
field nr-fatura-fim                                  like like moviproc.nr-fatura
field cd-local-ini                                  like   like locaaten.cd-local-atendimento
field cd-local-fim                                  like locaaten.cd-local-atendimento
field lg-transacao                                 as log
field lg-procedimento                            as as log
field lg-insumo                                     as log
field lg-periodo                                    as   as log
field in-liberado-1                                 as char format "x(1)"
field in-liberado-2                               as  as char format "x(1)"
field cd-transacao-ini                          like   like moviproc.cd-transacao
field cd-transacao-fim                       like    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    as log
field in-calculo-pagamento                 as  as char format "x(1)"
field cd-tipo-insumo insumo                              like like insumos.cd-tipo-insumo
field cd-proc-insumo                           like  like insumos.cd-insumo
field cd-pacote                                     like  like paproins.cd-pacote
field dt-realizacao                               like  like moviproc.dt-realizacao
field dt-vencimento                             like  like moviproc.dt-realizacao
field vl-producao                               like    like titupres.vl-producao-movto.

...

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  as log
field lg-calcula-pis-pasep                as log
field lg-calcula-csll                         as  as log
field lg-calcula-unico                    as     as log
field lg-calculo-especifico               as log
field lg-valor-pacote                         as log.

...

field rowid-movto                         as  as rowid
field ds-tipo-movto                       as char format "x(09)"
field cd-movto                               as int format "99999999"
field cd-tipo-insu                           like mov-insu.cd-tipo-insumo
field cd-unidade                            like moviproc.cd-unidade
field cd-transacao                         like moviproc.cd-transacao
field nr-serie-doc-original              like moviproc.nr-serie-doc-original
field nr-doc-original                      like moviproc.nr-doc-original
field nr-doc-sistema                     like moviproc.nr-doc-sistema
field qt-movto                             like    like moviproc.qt-procedimentos
field dt-real                                    like moviproc.dt-realizacao
field cd-unidade-pres                   like  like preserv.cd-unidade
field cd-prestador                          like preserv.cd-prestador
field c-asterisco                           as  as char
index wk-movto1
cd-unidade-pres
cd-prestador
cd-movto
dt-real.

...

field cd-unidade-pagamento             like  like moviproc.cd-unidade-pagamento
field cd-prestador-pagamento           like moviproc.cd-prestador-pagamento
field cd-unidade-prestador                like   like notapres.cd-unidade-prestador
field cd-prestador                            like     like notapres.cd-prestador.

Definição campo a campo da tabela de saída wk-prest

...