[RESOLVIDO] Executar uma ação após Zoom (zoomvar.i)

Estou desenvolvendo um programa, onde utilizo o recurso de pesquisa, utilizando a include zoomvar.i, que no meu caso é pesquisa do número de ordem de produção (inzoom/z01in271.r).
O zoom está funcionando corretamente, onde é retornado o número de ordem de produção selecionado no zoom no campo informado da tela.
Necessito que, após escolhido o número da ordem de produção pelo programa inzoom/z01in271.r, seja executado uma procedure, onde é apresentando informações da ordem de produção escolhida na tela.
Tenteu utilizar os gatilhos LEAVE e VALUE-CHANGED no campo de número da ordem de produção da tela, porém, o mesmo não é disparado.

estranho, eu faria no mesmo evento(LEAVE).

é muito grande o programa para postar aqui?

att.

O programa é grande, segue abaixo os trechos:

/* ************************ Frame Definitions *********************** */

DEFINE FRAME f-cad
fi-nr-ord-produ AT ROW 2.70 COL 20 COLON-ALIGNED
ord-prod.it-codigo AT ROW 3.60 COL 20 COLON-ALIGNED VIEW-AS TEXT
item.desc-item AT ROW 3.60 COL 35 COLON-ALIGNED FORMAT "x(40)" NO-LABEL VIEW-AS TEXT
ord-prod.lote AT ROW 4.40 COL 20 COLON-ALIGNED VIEW-AS TEXT
ext-lote-cliente.lote-cliente AT ROW 4.40 COL 60 COLON-ALIGNED VIEW-AS TEXT
ord-prod.qt-ordem AT ROW 5.20 COL 20 COLON-ALIGNED FORMAT ">,>>>,>>9" VIEW-AS TEXT
c-estado AT ROW 5.20 COL 60 COLON-ALIGNED VIEW-AS TEXT
bt-posiciona AT ROW 1.10 COL 21 HELP "Posiciona"
bt-Pesquisa AT ROW 1.10 COL 26 HELP "Pesquisa"
RECT-1 AT ROW 2.5 COL 1
br-matriz AT ROW 6.40 COL 1
WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY
SIDE-LABELS NO-UNDERLINE THREE-D
AT COL 1 ROW 1
SIZE 79 BY 14.

/************** ZOOM **********/
&Scoped-define FRAME-NAME f-cad
&Scoped-define SELF-NAME fi-nr-ord-produ
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL fi-nr-ord-produ w-relat
ON CHOOSE OF bt-Pesquisa IN FRAME f-cad /* Pesquisa Ordem de Produção */
DO:

{include/zoomvar.i &prog-zoom=inzoom/z01in271.r
&campo=fi-nr-ord-produ
&frame=f-cad
&campozoom=nr-ord-produ}

END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

/**************** GATILHO *****/
&Scoped-define SELF-NAME fi-nr-ord-produ
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL fi-nr-ord-produ w-livre
ON LEAVE OF fi-nr-ord-produ IN FRAME f-cad
DO:

MESSAGE "AQUI" view-as alert-box.

END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

O que necessito é que, quando escolhido o botão de pesquisa e selecionado uma ordem de produção, eu estaria preenchendo os campos da frame referente a ordem.

Porém, o que percebo é que quando utilizado o include/zoomvar.i, não tenho controle após retorno do zoom.