HCM CC0300B - Criar folder novo via UPC após folder Narrativa

Bom dia pessoal!
Estou com uma dúvida: Como posso criar um novo folder com alguns campos de uma tabela externa(específica) via upc dentro dessa tela CC0300B?
Tentei criar em menu ambiente de testes mas não funcionou!
Basicamente seria o seguinte: Ao inicializar a tela CC0300B, apareça uma nova guia depois da Narrativa e ao clicar nela, sejam populados os dados de uma tabela específica.
Agradeço pela ajuda!
Feliz 2024 a todos!

Bom dia Rafael,

A tela no caso é essa, com as guias de Ordem até Narrativa. A guia(folder) que preciso criar seria WebOrder depois da Narrativa.

Opa! Vou ajustar, testar e retorno aqui pra vocês! Muito obrigado pela ajuda!

@bootstrapmaster,

Ajustei o código co mo exemplo que você mandou, mas não está criando o folder. Coloquei umas mensagens para verificar o status(comentadas), mas não apareceu a guia. Entra certinho na UPC que associei à tela no bas_prog_dtsul, mas não cria a aba "Web Order JP".
Segue o código implementado:
/*********************************************************************************
**
** Programa...: upc_folder.p
** Author.....:
** Descricao..: Criar nova Folder na tela CC0300B.
** Data.......: 28/12/2023
**
*********************************************************************************/
/* 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-upc 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.
DEFINE NEW GLOBAL SHARED VAR wh-window 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-objects = 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-objects = entry(num-entries(p-wgh-objectrivate-data, "~/"), p-wgh-objectrivate-data, "~/").
/* message "EVENTO" p-ind-event skip */
/* "OBJETO" p-ind-object skip */
/* "NOME OBJ" c-objects skip */
/* "FRAME" p-wgh-frame skip */
/* "TABELA" p-cod-table skip */
/* "ROWID" string(p-row-table) view-as alert-box. */
/* MESSAGE "P-Ind-Object: " P-Ind-Object VIEW-AS ALERT-BOX INFORMATION BUTTONS OK. */
If P-Ind-Object = "CONTAINER" Then do:
assign wh-window = p-wgh-object.
RUN get-link-handle IN adm-broker-hdl (p-wgh-object, 'PAGE-SOURCE':U, OUTPUT c-folder).
Assign h-folder-upc = Widget-Handle(c-Folder) No-Error.
/* MESSAGE "h-folder-upc: " h-folder-upc VIEW-AS ALERT-BOX INFORMATION BUTTONS OK. */
If Valid-Handle(h-folder-upc) Then
Do:
RUN create-folder-page IN h-folder-upc (7, "Web Order JP":U).
RUN create-folder-label IN h-folder-upc (7, "Web Order JP":U).
RUN select-page IN wh-window (7).
RUN init-object IN p-wgh-object ('ccp/cc0300b.r':U,
p-wgh-frame,
"WEBORDERJP":U,
OUTPUT h-viewer).
RUN set-position IN h-folder-upc (7, 4).
RUN get-link-handle IN adm-broker-hdl (p-wgh-object,
'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)).
MESSAGE "Verificando h-object: " h-object VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
if index(h-objectrivate-data, 'ccp/cc0300b.r') <> 0 then do:
run add-link in adm-broker-hdl(h-object, "Record":u, h-viewer).
run add-link in adm-broker-hdl(h-object,"state":u, h-viewer).
run add-link in adm-broker-hdl (h-object, "GROUP-ASSIGN":U, h-viewer).
end.
end.
RUN dispatch IN h-folder-upc ("initialize":U).
RUN select-page IN p-wgh-object (7).

End.
End.