[RESOLVIDO] [UPC] Criar Folder - CD0704

Boa tarde á todos.

Estou tentando colocar uma UPC para instanciar uma folder + viewer no CD0704... Inclusve estou usando um código que foi postado aqui... Contudo, mesmo depois de ter sido criado, depois de passar por todos os eventos, a folder some.

Alguém poderia me ajudar?

Aguardo retorno.

Att,

Código:

/*********************************************************************************
**
** Programa...: upc_folder.p
** Author.....: Desconhecido
** Descricao..: Criar uma Folder na tela.
** Data.......: 22/02/2002
**
*********************************************************************************/
/* Parameter Definitions ****************************************************/

define input parameter p-ind-event  as character.
define input parameter p-ind-object as character.
define input parameter p-wgh-object as handle.
define input parameter p-wgh-frame  as widget-handle.
define input parameter p-cod-table  as character.
define input parameter p-row-table  as rowid.

def var c-objeto as char no-undo.

/* Global Variable Definitions **********************************************/
define new global shared var h-folder       as handle no-undo.
define new global shared var h-viewer       as handle no-undo.
define new global shared var adm-broker-hdl as handle no-undo.
/* Variable Definitions *****************************************************/

define var c-folder       as character no-undo.
define var c-objects      as character no-undo.
define var i-objects      as integer   no-undo.
define var h-object       as handle    no-undo.
define var l-record       as logical   no-undo initial no.
define var l-group-assign as logical   no-undo initial no.

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

assign c-objeto   = entry(num-entries(p-wgh-object:file-name, "~/"), p-wgh-object:file-name, "~/").

def new global shared var h-sel   as handle no-undo.

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

/* message "EVENTO"   p-ind-event skip                       */
/*         "OBJETO"   p-ind-object skip                      */
/*         "NOME OBJ" c-objeto skip                          */
/*         "FRAME"    p-wgh-frame skip                       */
/*         "TABELA"   p-cod-table skip                       */
/*         "ROWID"    string(p-row-table) view-as alert-box. */

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

    RUN get-link-handle IN adm-broker-hdl (INPUT p-wgh-object,
                                           INPUT "PAGE-SOURCE":U,
                                           OUTPUT c-folder).
    assign h-folder = widget-handle(c-folder) no-error.
    assign h-sel    = p-wgh-object.

    if valid-handle(h-folder) then do:

       RUN set-attribute-list IN h-folder( INPUT "FOLDER-TAB-TYPE = 2").

       RUN create-folder-page  IN h-folder (INPUT 6, INPUT "ANP":U).
       RUN create-folder-label IN h-folder (INPUT 6, INPUT "ANP":U).
      
       RUN select-page IN p-wgh-object (INPUT 6).
      
       RUN init-object IN p-wgh-object (INPUT "anp/v01upcd0704.w":U, /* Nome do Objeto Viewer */
                                        INPUT  p-wgh-frame,
                                        INPUT "Layout = ":U,
                                        OUTPUT h-viewer).

       RUN set-position IN h-viewer (6, 3.0).

       RUN dispatch    IN h-viewer("initialize":U).
       RUN select-page IN p-wgh-object (INPUT 6).
    end.
   
end.

tenta fazer conforme abaixo.

If P-Ind-Event = "INITIALIZE" And P-Ind-Object = "CONTAINER" Then do:
assign wh-window = p-wgh-object.
RUN get-link-handle IN adm-broker-hdl
(INPUT p-wgh-object,
INPUT "PAGE-SOURCE":U, OUTPUT c-folder).
Assign h-folder-upc = Widget-Handle(C-Folder) No-Error.
If Valid-Handle(h-folder-upc) Then Do:
RUN create-folder-page IN h-folder-upc (INPUT 7, INPUT "Dados N Fiscal":U).
RUN create-folder-label IN h-folder-upc (INPUT 7, INPUT "Dados N Fiscal":U).
RUN select-page IN wh-window (INPUT 7).
RUN init-object IN p-wgh-object (INPUT "espec/vin0704u.w":U, /* Nome do Objeto Viewer */
INPUT p-wgh-frame, INPUT "Layout = ":U, OUTPUT h-v-upc).
RUN set-position IN h-v-upc ( 7, 4).
RUN get-link-handle IN adm-broker-hdl (INPUT p-wgh-object,INPUT "CONTAINER-TARGET":U, OUTPUT c-objects).
RUN dispatch IN h-v-upc ("initialize":U).
RUN select-page IN p-wgh-object (INPUT 1).
ASSIGN v-0704-log = YES.
End.
End.

Obrigada @antonioc deu certo... Mas não consigo entender pq na página 6 não vai.... as páginas da folder padrão vão até a 5... Ai fica um espaço.