Nova aba no Zoom PD400 (z07di159)

Olá Pessoal,

Estou tendo dificuldades em trabalhar com thinfolder no Zoom do PD400 (z07di159).
Eu gostaria de adicionar uma aba a mais no zoom, e dentro dela um browser de busca.
A aba eu consegui inserir, como segue no código abaixo, porém não consigo saber o método que devo utilizar para atribuir/instanciar o objeto dentro dela...Poderiam me ajudar, por favor?

/*-----------------------------------------------------------------------------------
PROGRAMA : esz07di159-u01.p
OBJETIVO : Incluir aba PC-NF do Item no filtro do Pedido
AUTOR : Adriano Ferreira - AFS
DATA : 19/03/2015
-----------------------------------------------------------------------------------*/

/*************************************************************************************
INCLUDES
*************************************************************************************/
{include/i-prgvrs.i esz07di159-u01.p 2.06.00.001}
{tools/fc-handle-obj.i}
{tools/fc-falso.i}

/*************************************************************************************
PARAMETROS
*************************************************************************************/
DEFINE INPUT PARAMETER p-ind-event AS CHARACTER NO-UNDO.
DEFINE INPUT PARAMETER p-ind-object AS CHARACTER NO-UNDO.
DEFINE INPUT PARAMETER p-wgh-object AS HANDLE NO-UNDO.
DEFINE INPUT PARAMETER p-wgh-frame AS WIDGET-HANDLE NO-UNDO.
DEFINE INPUT PARAMETER p-cod-table AS CHARACTER NO-UNDO.
DEFINE INPUT PARAMETER p-row-table AS ROWID NO-UNDO.

/*************************************************************************************
VARIAVEIS GLOBAIS
*************************************************************************************/

DEF NEW GLOBAL SHARED VAR wh-fpage1 AS WIDGET-HANDLE NO-UNDO.
DEF NEW GLOBAL SHARED VAR wh-fpage-nova AS WIDGET-HANDLE NO-UNDO.
DEFINE NEW GLOBAL SHARED VARIABLE h-folder AS HANDLE NO-UNDO.
DEFINE NEW GLOBAL SHARED VARIABLE h-escd0204-b01 AS WIDGET-HANDLE NO-UNDO.
DEFINE NEW GLOBAL SHARED VARIABLE adm-broker-hdl AS HANDLE NO-UNDO.
/*************************************************************************************
VARIAVEIS LOCAIS
*************************************************************************************/
DEF VAR wgh-grupo AS WIDGET-HANDLE NO-UNDO.
DEF VAR wgh-child AS WIDGET-HANDLE NO-UNDO.
DEF VAR wh-window AS HANDLE NO-UNDO.
DEF VAR wh-frame0 AS WIDGET-HANDLE NO-UNDO.
DEF VAR h-objeto AS HANDLE NO-UNDO.
DEF VAR h-folder AS HANDLE NO-UNDO.


DEFINE VARIABLE c-objects AS CHARACTER NO-UNDO.
DEFINE VARIABLE c-folder AS CHARACTER NO-UNDO.




/* ##### ##### ##### ##### ##### ##### ##### ##### ##### ##### ##### ##### */
/*???? Message para identificar o nome dos eventos (MUITO UTIL) ???? */
/* MESSAGE "p-ind-event..:" p-ind-event SKIP */
/* "p-ind-object.:" p-ind-object SKIP */
/* "p-cod-table..:" STRING(p-cod-table) SKIP */
/* "p-wgh-object.:" p-wgh-objectRIVATE-DATA SKIP */
/* "p-wgh-frame..:" STRING(p-wgh-frame) SKIP */
/* VIEW-AS ALERT-BOX INFO BUTTONS OK. */
/* ???????????????????????????????????????????????????????????????????*/


{include/i_fclpreproc.i} /* Include que define o processador do Facelift ativado ou não. */

&IF "{&aplica_facelift}" = "YES" &THEN
{include/i_fcldef.i}
&endif

IF p-ind-event = "AFTER-INITIALIZE" THEN DO:

IF p-wgh-object:NAME = "dizoom/z07di159.w" THEN DO:



ASSIGN wgh-grupo = p-wgh-frame:FIRST-CHILD.
ASSIGN wh-window = p-wgh-frameARENT.
ASSIGN wh-frame0 = p-wgh-frame.
DO WHILE VALID-HANDLE(wgh-grupo):
ASSIGN wgh-child = wgh-grupo:FIRST-CHILD.
DO WHILE VALID-HANDLE(wgh-child):
IF wgh-child:TYPE = "frame" AND wgh-child:NAME = "fpage1" THEN DO:
ASSIGN wh-fpage1 = wgh-child.
END.
ASSIGN wgh-child = wgh-child:NEXT-SIBLING NO-ERROR.
END.
LEAVE.
END.
END.

IF VALID-HANDLE(wh-fpage1) THEN DO:
CREATE FRAME wh-fpage-nova
ASSIGN COL = wh-fpage1:COL
ROW = wh-fpage1:ROW
WIDTH = wh-fpage1:WIDTH
HEIGHT = wh-fpage1:HEIGHT
NAME = "fpage6"
SIDE-LABELS = YES
SENSITIVE = YES
OVERLAY = YES
BGCOLOR = wh-fpage1:BGCOLOR
BOX = NO
THREE-D = YES.



&IF "{&aplica_facelift}" = "YES" &THEN
{include/i_fcldin.i wh-fpage-cron}
&ENDIF

ASSIGN h-objeto = p-wgh-object.
DO WHILE VALID-HANDLE(h-objeto):
IF h-objeto:FILE-NAME = "utp/thinFolder.w" then
LEAVE.
ASSIGN h-objeto = h-objeto:NEXT-SIBLING.
END.


RUN insertFolder IN h-objeto (INPUT 6,
INPUT p-wgh-frame,
INPUT wh-fpage-nova,
INPUT "PC NF").

RUN setEnabled IN h-objeto (INPUT 6, INPUT TRUE).

RUN select-page IN p-wgh-object (INPUT 6).


END.

END.


Att,

Adriano Ferreira