[RESOLVIDO] UPC em programa com botões

A unica maneira que imagino seria desenvolver um botão falso e colocar sobre o botão em questão.

Copiando as propriedades dele como imagem etc...
Assim você pega o evento que precisa e logo depois da um apply no botão verdadeiro.

Abraço

A solução sugerida é a unica que conheço e a que utilizo.

Faço assim, quando acho o botão para substituir:

Código:

DEF NEW GLOBAL SHARED VAR wh-btok       AS WIDGET-HANDLE    NO-UNDO.
DEF NEW GLOBAL SHARED VAR wh-newbtok    AS WIDGET-HANDLE    NO-UNDO.

...

                    ASSIGN wh-btok  = wh-objeto.
                    CREATE BUTTON wh-newbtok
                    ASSIGN ROW       = wh-btok:ROW
                           COLUMN    = wh-btok:COLUMN
                           WIDTH     = wh-btok:WIDTH
                           HEIGHT    = wh-btok:HEIGHT
                           FRAME     = p-wgh-frame
                           SENSITIVE = yes
                           VISIBLE   = yes
                           LABEL     = wh-btok:LABEL
                           TOOLTIP   = wh-btok:TOOLTIP
                           HELP      = wh-btok:HELP
                           TAB-STOP  = YES.
                    ON CHOOSE OF wh-newbtok PERSISTENT RUN upc/upc_choose.p.

                    wh-newbtok:MOVE-AFTER-TAB-ITEM(wh-btok).
                    ASSIGN wh-btok:TAB-STOP = FALSE
                           wh-btok:VISIBLE = FALSE.

o outro

Código:

/*upc_choose.p*/
DEF NEW GLOBAL SHARED VAR wh-btok       AS WIDGET-HANDLE    NO-UNDO.

/*Verificação antes do evento padrão do botão executar*/
...

/*Execução do Botão Executar Padrão*/
APPLY "CHOOSE" TO wh-btok.

T+

Depois que você conseguir identificar o HANDLE do browser, utilize o comando abaixo para pegar os valores das colunas:

Código:

DEF NEW GLOBAL SHARED VAR wh-browser AS WIDGET-HANDLE                    NO-UNDO.
DEF NEW GLOBAL SHARED VAR wh-sequencia  AS WIDGET-HANDLE                    NO-UNDO. 
DEF NEW GLOBAL SHARED VAR wh-it-codigo  AS WIDGET-HANDLE                    NO-UNDO. 

...
        wh-sequencia  = wh-browser:GET-BROWSE-COLUMN(1).
        wh-it-codigo  = wh-browser:GET-BROWSE-COLUMN(2).
        message wh-sequencia:SCREEN-VALUE skip
                      wh-it-codigo:SCREEN-VALUE skip
                      view-as alert-box.
...

Espero que seja isto.
Observação: Não crie um novo tópico referenciando um antigo.

[]'s