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

...