Histórico da Página

...

field in-evento-programa                     as char format "x(06)"
field nm-ponto-chamada-cpc              as   as char format "x(15)"
field cd-insumo                                    like insumos.cd-insumo
field cd-tipo-insumo                          like     like insumos.cd-tipo-insumo
field lg-opme                                       as log
field nm-fornecedor                          like     like insumos.nm-fornecedor
field cd-unidade                                 as  as int
field cd-prestador                             as    as int
field rw-insumos                               as    as rowid
field lg-atribuicao                                 as log format "Sim/Nao"
field cd-principio-ativo                       like    like insumos.cd-principio-ativo.

...

def temp-table tmp-cpc-rc0111c-saida no-undo

field lg-undo-retry                            as as log
field ds-mensagem                        as char format "x(75)"
field nm-fornecedor                        as char format "x(42)"
field cd-unidade                            like   like preserv.cd-unidade
field cd-prestador                            like like preserv.cd-prestador
field lg-atribuicao                            as log format "Sim/Nao"
field lg-principio-ativo                      as log.

...