Histórico da Página
...
"APOS-ASSINSUM"
"ALTERA-CLA-HOS"
"ANTES-INSUMO"
Include das definições das tabelas temporárias
...
field nr-sequencia like loteimp.nr-sequencia
field cd-pacote like paproins.cd-pacote
field cd-clinica like clinicas.cd-clinica
field cd-local-atendimento like locaaten.cd-local-atendimento
field numeroGuiaOperadora as char
field senha as char
field r-assinsum as rowid
field ds-tipo-guia as char
field h-tmp-cabecalho-tiss as handle
field cdn-tip-desp like tiss-assoc-tip-despes.cdn-tip-despes
field cod-tabela as char
field cod-procedimento as char
field dt-base as date
field lg-busca-insumo as logical..
Definição campo a campo da tabela de entrada
...
field lg-mantem-qtde as log
field field nr-rowid-paproins as rowid as rowid
field field cd-unidade-pagto pagto like preserv.cd-unidade
field field cd-prestador-pagto pagto like preserv.cd-prestador
field lg-manual as field lg-manual as log
field cd-clinica field cd-clinica like clinicas.cd-clinica
field field cd-local-atendimento atendimento like locaaten.cd-local-atendimento
field field r-assinsum assinsum as rowid
field cd-cla-hos as int
as rowid field lg-alt-insumo as logical
field field cd-tipo-insumo like mov-insu.cd-clatipo-hos insumo
field cd-insumo like mov-insu.cd-insumo
as int field lg-busca-insumo as logical initial yes.
Definição campo a campo da tabela de saída
...