[RESOLVIDO] Erro ao criar Folder

Até onde sei, o tamanho do folder é o atributo FOLDER-TAB-TYPE, por padrão 1 ou 2, 1 para folder com 110 pixels e 2 para 72 px.
Você está criando de forma dinâmica?

Postei um exemplo aqui nos resources, talvez ajude, neste eu capturo as páginas, removo o folder, adiciono novas páginas com o tamanho de folder que eu quero.
Ah, não se esqueça da curtir o exemplo.

Abraço.

Boa tarde pessoal,

Tambem estou criando uma folder no programa 'im0045' usando o seguinte código:

Código:

IF  p-ind-event = "BEFORE-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.

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

        MESSAGE "entro valid-handle"
            VIEW-AS ALERT-BOX INFO BUTTONS OK.
       
        RUN create-folder-page IN h-folder (INPUT 4, INPUT "Pag. 04":U).
        /*RUN create-folder-page IN h-folder (INPUT 6, INPUT "Pag. 06":U).  
        RUN create-folder-page IN h-folder (INPUT 7, INPUT "Pag. 07":U).   */
       

        &IF "{&aplica_facelift}" = "YES" &THEN                  
            {include/i_fcldin.i h-folder}
        &endif
       
        RUN create-folder-label IN h-folder (INPUT 4, INPUT "Similares":U).
        /*RUN create-folder-label IN h-folder (INPUT 6, INPUT "Sugestao":U).
        RUN create-folder-label IN h-folder (INPUT 7, INPUT "Conversao":U).  */
       
        /********Similar********/
        RUN select-page IN p-wgh-object (INPUT 4).
       
        /*RUN init-object IN p-wgh-object (INPUT "":U, /* Nome do Objeto Viewer */
                                         INPUT p-wgh-frame,
                                         INPUT "Layout = ":U,
                                         OUTPUT h-viewer).   */
               
       
        RUN get-link-handle IN adm-broker-hdl (INPUT p-wgh-object, INPUT "CONTAINER-TARGET":U, OUTPUT c-objects).
        
        do  i-objects = 1 to num-entries(c-objects):
           
            assign h-object = widget-handle(entry(i-objects, c-objects)).

           /* IF h-object:NAME = "invwr\v34in172.w" THEN DO:

            END. */
           
            if  index(h-object:private-data, "qry") <> 0 and  not l-record then do:
                assign l-record = yes.
                             
                RUN add-link IN adm-broker-hdl (INPUT h-object,
                                                INPUT "Record",
                                                INPUT h-viewer).
            end.
          
            /*
            if  index(h-object:private-data, "vwr") <> 0 and /* Voce deve verificar se e a viewer principal */ not l-group-assign then do:
                assign l-group-assign = yes.
             
                RUN add-link IN adm-broker-hdl (INPUT h-object,
                                                INPUT "Group-Assign":U,
                                                INPUT h-viewer).
            end.
            */

        end.

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



END.

Porém quando executo ele não esta criando a folder. Notei que ele não entra no "if valid-handle(h-folder) then do: " pois a variavel c-folder retornada de "RUN get-link-handle IN adm-broker-hdl" esta retornando vazia.

Testei esse mesmo exemplo em um outro programa usando o evento "INITIALIZE" como estava nos exemplos que vi e o mesmo funciona corretamente, ou seja, a unica diferença esta no evento que eu tento criar o folder (obs. no programa "im0045" não tem o evento "INITIALIZER").

Alguém já passou por isso ou tem ideia de como posso resolver esse problema??

valew

Amigo, o programa IM0045 é uma thin template e não uma smartwindow, por isso a inexistência do evento INITIALIZE.

Abraço.