[RESOLVIDO] Leitura de registros de BROWSE em UPC

Bom dia pessoal,

Sabem me dizer se é possível, dentro de uma UPC, recuperar os registros de um BROWSE em um programa standard da Datasul para que eu possa trabalhar os dados?

Bom dia,
Você pode pegar o Handle desse Browse.
Veja esse tópico:
http://www.4each.com.br/threads/atualizar-browser-via-epc-cp0311.6695/#post-19992

Elmo,

Conseguir fazer o código abaixo, funcionou:

Código:

RUN pi-busca-widget(INPUT "br_qry_titulos_acr_506",
                        INPUT p-wgh-frame,
                        OUTPUT wh-browse-tit).

    IF VALID-HANDLE(wh-browse-tit) THEN DO:
        wh-query-tit  = wh-browse-tit:QUERY.
        IF VALID-HANDLE(wh-query-tit) THEN DO:
            wh-buffer-tit = wh-query-tit:GET-BUFFER-HANDLE(1).
            IF VALID-HANDLE(wh-buffer-tit) THEN DO:
                wh-query-tit:QUERY-CLOSE().
                wh-query-tit:QUERY-PREPARE("FOR EACH " + wh-buffer-tit:TABLE).
                wh-query-tit:QUERY-OPEN().
            END.
        END.
    END.

Porém, preciso saber como pegar registro a registro, jogando em uma outra temp-table para manuseio dos dados, sabe me dizer como fazer isso?

Para quem se interessar, segue abaixo a solução:

Código:

RUN pi-busca-widget(INPUT "br_qry_titulos_acr_506",
                        INPUT  p-wgh-frame,
                        OUTPUT wh-browse-tit).

    IF VALID-HANDLE(wh-browse-tit) THEN DO:
        /* Pega a query do browser */
        wh-query-tit = wh-browse-tit:QUERY.
        IF VALID-HANDLE(wh-query-tit) THEN DO:
            /* Pega o buffer da query */
            wh-buffer-tit = wh-query-tit:GET-BUFFER-HANDLE(1).
            IF VALID-HANDLE(wh-buffer-tit) THEN DO:
                /* Primeiro registro da query */
                wh-query-tit:GET-FIRST().
                DO WHILE wh-buffer-tit:AVAIL:
                    MESSAGE wh-buffer-tit:BUFFER-FIELD(1):BUFFER-VALUE  SKIP
                            wh-buffer-tit:BUFFER-FIELD(2):BUFFER-VALUE  SKIP
                            wh-buffer-tit:BUFFER-FIELD(3):BUFFER-VALUE  SKIP
                            wh-buffer-tit:BUFFER-FIELD(4):BUFFER-VALUE  SKIP
                            wh-buffer-tit:BUFFER-FIELD(5):BUFFER-VALUE  SKIP
                            wh-buffer-tit:BUFFER-FIELD(6):BUFFER-VALUE  SKIP
                            wh-buffer-tit:BUFFER-FIELD(7):BUFFER-VALUE  SKIP
                            wh-buffer-tit:BUFFER-FIELD(8):BUFFER-VALUE  SKIP
                            wh-buffer-tit:BUFFER-FIELD(9):BUFFER-VALUE  SKIP
                            wh-buffer-tit:BUFFER-FIELD(10):BUFFER-VALUE SKIP
                            wh-buffer-tit:BUFFER-FIELD(11):BUFFER-VALUE SKIP
                            wh-buffer-tit:BUFFER-FIELD(12):BUFFER-VALUE SKIP
                            wh-buffer-tit:BUFFER-FIELD(13):BUFFER-VALUE SKIP
                            wh-buffer-tit:BUFFER-FIELD(14):BUFFER-VALUE SKIP
                            wh-buffer-tit:BUFFER-FIELD(15):BUFFER-VALUE SKIP
                            wh-buffer-tit:BUFFER-FIELD(16):BUFFER-VALUE SKIP
                            wh-buffer-tit:BUFFER-FIELD(17):BUFFER-VALUE SKIP
                            wh-buffer-tit:BUFFER-FIELD(18):BUFFER-VALUE SKIP
                            wh-buffer-tit:BUFFER-FIELD(19):BUFFER-VALUE SKIP
                            wh-buffer-tit:BUFFER-FIELD(20):BUFFER-VALUE SKIP
                            wh-buffer-tit:BUFFER-FIELD(21):BUFFER-VALUE SKIP
                            wh-buffer-tit:BUFFER-FIELD(22):BUFFER-VALUE SKIP
                            wh-buffer-tit:BUFFER-FIELD(23):BUFFER-VALUE SKIP
                            wh-buffer-tit:BUFFER-FIELD(24):BUFFER-VALUE SKIP
                            VIEW-AS ALERT-BOX INFO BUTTONS OK.
                    wh-query-tit:GET-NEXT().
                END.
            END.
        END.
    END.

Show, me ajudou bastante!