[RESOLVIDO] UPC - PD400

estou com dificulades para criar um aupc para o programa pd4000, eu gostaria de substituir o zoom doo campo cod-cond-pag, se alguem tiver algum exemplo de como posso fazer fico grato.

Estou postando um exemplo da UPC bem basica para o pd4000, pode ser utilizada tambem para outros programas.

Código:

/***********************************************************************************
**
**  Programa..: upc-padrao.p
**  Finalidade: UPC's PD4000
**  Data......: 01.01.2010
**  Vers’o....: 2.06.00.001 - Juliano Ventura Cardoso
**
***********************************************************************************/

DEFINE INPUT PARAM p-ind-event               AS CHAR          NO-UNDO.
DEFINE INPUT PARAM p-ind-object              AS CHAR          NO-UNDO.
DEFINE INPUT PARAM p-wgh-object             AS HANDLE        NO-UNDO.
DEFINE INPUT PARAM p-wgh-frame             AS WIDGET-HANDLE NO-UNDO.
DEFINE INPUT PARAM p-cod-table               AS CHAR          NO-UNDO.
DEFINE INPUT PARAM p-row-table               AS ROWID         NO-UNDO.

DEFINE VARIABLE c-objeto                     AS CHAR          NO-UNDO.
DEFINE VARIABLE h-object                     AS HANDLE        NO-UNDO.
DEFINE NEW GLOBAL SHARED VAR wh-atividade    AS WIDGET-HANDLE NO-UNDO.
DEFINE NEW GLOBAL SHARED VAR wh-nome-abrev       AS HANDLE      NO-UNDO.


DEFINE VARIABLE wh-pesquisa                  AS HANDLE NO-UNDO.

{utp/ut-glob.i}


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

/*
message "EVENTO  :" p-ind-event  skip
        "p-ind-object: " p-ind-object SKIP
        "OBJETO  :" c-objeto skip
        "Arquivo :" p-wgh-object SKIP
        "Tela    :" p-wgh-object:PRIVATE-DATA SKIP
        "FRAME   :" p-wgh-frame :NAME         skip
        "TABELA  :" p-cod-table  skip
        "ROWID   :" STRING(p-row-table) VIEW-AS ALERT-BOX.
        
*/

IF  p-ind-event                 = "AFTER-DISPLAY"
AND p-ind-object                = "CONTAINER" THEN DO:

    IF c-objeto = "pd4000.w" THEN DO:

        ASSIGN h-object = p-wgh-frame:FIRST-CHILD.
        ASSIGN h-object = h-object:FIRST-CHILD.

        DO WHILE VALID-HANDLE(h-object):
            IF h-object:TYPE <> "field-group" THEN DO:

                IF h-object:NAME = 'nome-abrev' THEN
                    ASSIGN wh-nome-abrev = h-object.

                IF h-object:NAME = 'c-desc-cod-cond-pag' THEN
                    MESSAGE "ok"
                        VIEW-AS ALERT-BOX INFO BUTTONS OK.

                IF wh-nome-abrev <> ?  THEN
                MESSAGE wh-nome-abrev:SCREEN-VALUE
                    VIEW-AS ALERT-BOX INFO BUTTONS OK.

                ASSIGN h-object = h-object:NEXT-SIBLING NO-ERROR.
            END.
            ELSE LEAVE.
        END.
    END.
END.