Histórico da Página
...
field in-evento-programa as char format "x(06)"
field nm-ponto-chamada-cpc as char format "x(15)"
field cd-unidade like preserv.cd-unidade
field cd-prestador like like preserv.cd-prestador
field nr-seq-endereco like like endpres.nr-seq-endereco
field nr-rowid-endpres as as rowid
field lg-recebe-corresp as as log.
Definição campo a campo da tabela de entrada
...
def temp-table tmp-cpc-cg0112a-saida no-undo
field lg-erro as log
field ds-mensagem as char format "x(80)"
field lg-permite-end-corresp as log
field lg-permite-tipo-end as log
field nr-seq-endereco as int.
...