Histórico da Página

...

field in-evento-programa                 as char format "x(10)"
field nm-ponto-chamada-cpc          as char format "x(15)"
field cd-unid-exec                         like    like presev.cd-unidade
field cd-prestador-exec                    like preserv.cd-prestador
field nr-guia-atendimento                 like procguia.nr-guia-atendimento
field aa-guia-atendimento                like procguia.aa-guia-atendimento
field cd-insumo                               like  like insumos.cd-insumo
field cd-tipo-insumo                       like  like insumos.cd-tipo-insumo
field vl-insumo-cob                          like like insuguia.vl-insumo
field vl-valorizado                            like like insuguia.vl-insumo
field qt-insumo                             like    like insuguia.qt-insumo.

Definição campo a campo da tabela de entrada

...

field lg-erro                                   as log
field ds-mensagem                      as char format "x(75)"
field lg-alt-qtd-aut                        as   as log
fields ds-mensagem-alerta            as as char format "x(75)"
field vl-insumo-cob                      like insuguia.vl-insumo-cob
field vl-unitario                             like  like insuguia.vl-insumo.

Definição campo a campo da tabela de saída

...

field cd-tipo-insumo              like insuguia.cd-tipo-insumo
field cd-insumo                      like like insuguia.cd-insumo
field vl-insumo-cob               like insuguia.vl-insumo-cob.

...