[RESOLVIDO] Zoom de Campos

Bom dia pessoal ,

Estou com uma dúvida.

Criei uma uma upc , que cria um text tx-label (Grupo Maqúina )
e dois campos gm-campo e gm-campo-d , sendo que ao clicar no gm-campo
o zoom chama o programa z01in144.w , seleciono o grupo maquina, e fixa no campo gm-campo número da maquína, o que não estou conseguindo fazer é selecionar o grupo maquína e no campo gm-campo-d vir também a descrição da maquina,ou vem um ou outro por vez, como faço para fazer vir o código e descrição de uma vez?


******************************gmcd0004.p*********************************/

def var wh-pesquisa as widget-handle.
def new global shared var gm-campo as widget-handle no-undo.
def new global shared var gm-campo-d as widget-handle no-undo.
def 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, "~/").


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 gmupc\gmcd0004-upcz.p. end triggers.

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

/******************************************************************************************************/

/**********************************************gmcd0004-upcz*************************************/

def var wh-pesquisa as widget-handle.
def new global shared var l-implanta as logical init no.
def new global shared var gm-campo as widget-handle no-undo.
def new global shared var gm-campo-d as widget-handle no-undo.
def new global shared var wh-window as handle no-undo.
def new global shared var adm-broker-hdl as handle no-undo.

{include/zoomvar.i &prog-zoom=inzoom/z01in144.w
&proghandle=wh-window
&campohandle=gm-campo
&campozoom=gm-codigo}

/******************************************************************************************************/

pq vc não faz, quando altera o campo chama a tabela e busca o código colocando a descrição do campo.