[RESOLVIDO] adicionar zoom em campo customizado

Bom dia, criei um campo do tipo fill-in via UPC no CD0704 cadastro de clientes, agora preciso adicionar o zoom de grupo de clientes (Z01AD129) nesse campo, alguém poderia me ajudar ?


Obrigado,

Sidnei

Boa tarde,

Código:

{include/zoomvar.i &prog-zoom=adzoom/z01ad098.w /* Nome do Programa de Zoom */
&campo=volume-cliente.nome-abrev /* Nome do Fill-In recebedor*/
&campozoom=nome-abrev /* Nome do campo a retornar */
&FRAME={&FRAME-NAME}}

Crie um envento no Fill-in mouse-selected-dblclick.
Para trocar a imagem do cursor:

Código:

seu-fill-in:LOAD-MOUSE-POINTER("image/lupa.cur") IN FRAME {&FRAME-NAME}.

oi Sidnei.
Vc terá que fazer o seguinte:

Para o novo campo, crie uma trigger.
Essa trigger irá chamar um programa.p
Ai, sim, dentro no .P, vc poderá chamar o zoom.

Bom dia, criei o a trigger no "on F5" do campo criado para chamar o zoom porem quando tento compilar o programa .p que contem o codigo que chama o zoom ele apresenta a seguinte mensagem de erro.

** Nao entendi apos: "c-lista-campo = string". (247)
** \\172.18.22.3\dts-ofi\ERP\fnd\include\zoomvar.i Nao entendi a linha 163. (198)





Segue abaixo o codigo do programa que chama o zoom.


DEFINE NEW GLOBAL SHARED VAR wh_campo_gr_mega AS WIDGET-HANDLE NO-UNDO.

DEF VAR hprogramzoom AS HANDLE NO-UNDO.
DEFINE VARIABLE wh-pesquisa AS HANDLE NO-UNDO.
DEFINE VARIABLE l-implanta AS LOGICAL NO-UNDO.
DEFINE NEW GLOBAL SHARED VARIABLE wh-window AS HANDLE NO-UNDO.
DEFINE NEW GLOBAL SHARED VARIABLE adm-broker-hdl AS HANDLE NO-UNDO.


ASSIGN l-implanta = NO.

{include/zoomvar.i &prog-zoom="adzoom/z01ad129.r"
&campo=wh_campo_gr_mega
&campozoom=cod-gr-cli}