upc para cp0320b

Preciso via upc buscar dados da tabela tt-reservas.
Fiz o código abaixo, mas não consigo localizar os dados da tt-reservas.
Alguém pode me ajudar.

O código:

/********************************************************************************************
** Programa: UPC/CP0301-U00.P
** Data....: 10/10/2020
** Autor...: SMF - DKP
** Objetivo: UPC para o programa CP0301
** Versao..: 2.06.00.001 - Versao Inicial
*********************************************************************************************/

/************************************* INCLUDES PADRAO **************************************/
{include/i-prgvrs.i UPCCP0320b.P 2.06.00.001}
/********************************************************************************************/

/******************************** DEFINICAO DE 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.
/********************************************************************************************/

/******************************** DEFINICAO DE VARIAVEIS ************************************/

/********************************************************************************************/
DEF VAR c-objeto AS CHAR NO-UNDO.

{cpp/cpapi001.i1} /*tt-aloca, tt-reservas, tt-mat-reciclado*/
{cpp/cp0320.i1}


ASSIGN c-objeto = ENTRY(NUM-ENTRIES(p-wgh-objectRIVATE-DATA, "~/"), p-wgh-objectRIVATE-DATA, "~/").

/************************************* BLOCO PRINCIPAL **************************************/
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
"RECID:" string(p-row-table) view-as alert-box.

IF p-ind-event = "before-initialize" and p-ind-object = "browser" THEN DO:

MESSAGE "oi 1" VIEW-AS ALERT-BOX.


FOR EACH tt-reservas:

MESSAGE tt-reservas.cod-depos tt-reservas.it-codigo VIEW-AS ALERT-BOX.

END.

END.

IF p-ind-event = "value-changed" and p-ind-object = "browser" THEN DO:

MESSAGE "oi 2" VIEW-AS ALERT-BOX.


FOR EACH tt-reservas:

MESSAGE tt-reservas.cod-depos tt-reservas.it-codigo VIEW-AS ALERT-BOX.

END.

END.

IF p-ind-event = "after-value-changed" and p-ind-object = "browser" THEN DO:

MESSAGE "oi 3" VIEW-AS ALERT-BOX.


FOR EACH tt-reservas:

MESSAGE tt-reservas.cod-depos tt-reservas.it-codigo VIEW-AS ALERT-BOX.

END.

END.
IF p-ind-event = "before-open-query" and p-ind-object = "browser" THEN DO:

MESSAGE "oi 4" VIEW-AS ALERT-BOX.


FOR EACH tt-reservas:

MESSAGE tt-reservas.cod-depos tt-reservas.it-codigo VIEW-AS ALERT-BOX.

END.

END.
IF p-ind-event = "after-open-query" and p-ind-object = "browser" THEN DO:

MESSAGE "oi 5" VIEW-AS ALERT-BOX.


FOR EACH tt-reservas:

MESSAGE tt-reservas.cod-depos tt-reservas.it-codigo VIEW-AS ALERT-BOX.

END.

END.
RETURN "OK":U.

Alguém saberia como fazer.
Não estou conseguindo e preciso terminar um trabalho urgente.
Não estou conseguindo e preciso terminar um trabalho urgente.

É no CP0301 ? Caso sim, a tabela é reservas.