Atualiza campos em um upc

Boa tarde para todos,

estou precisando da ajuda novamente é o seguinte:
Foi criada a upc, sendo que criei os campos mas quero quando eu clicar na lupa
selecionar os campos , eles venham dentro dos campos segue abaixo Código e a tela gerada:
obs: tenho que pegar o campo código e descrição .


def new global shared var tx-label as widget-handle no-undo.


def input param p-ind-event as char no-undo.
def input param p-ind-object as char no-undo.
def input param p-wgh-object as handle no-undo.
def input param p-wgh-frame as widget-handle no-undo.
def input param p-cod-table as char no-undo.
def input param p-row-table as rowid no-undo.
def var c-objeto as char no-undo.

assign c-objeto = entry(num-entries(p-wgh-objectrivate-data, "~/"), p-wgh-objectrivate-data, "~/").


def var gm-campo as widget-handle no-undo.
def var gm-campo-d as widget-handle no-undo.

if p-ind-event = "INITIALIZE"
and p-ind-object = "CONTAINER" then do:


create text tx-label
assign frame = p-wgh-frame
format = "x(30)"
width = 15
screen-value = "Grupo Maquína"
row = 1.5
col = 25
fgcolor = 4
visible = YES.

CREATE FILL-IN gm-campo-d
assign frame = p-wgh-frame
width = 30
height = 0.9
row = 1.5
col = 51
sensitive = Yes
visible = YES.

CREATE FILL-IN gm-campo
assign frame = p-wgh-frame
width = 15
height = 0.9
row = 1.5
col =36
sensitive = Yes
visible = YES
triggers:

ON 'MOUSE-SELECT-DBLCLICK' PERSISTENT RUN inzoom/z01in144.w.

end triggers.

gm-campo:load-mouse-pointer('image/lupa.cur').


end.