CAPTURAR DATOS DE SMART DATA BROWSE

Discussão em 'Progress 4GL' iniciado por carlos, Setembro 28, 2011.

  1. carlos

    carlos Membro Participativo

    Ya encontre la solucion, estoy colocando el codigo por si alguien mas le pueda servir.

    /*******************************************************************************************/
    DEFINE VARIABLE hquery AS HANDLE NO-UNDO.
    DEFINE VARIABLE hBuffer AS HANDLE NO-UNDO.
    DEFINE VARIABLE hArt-cod AS HANDLE NO-UNDO.
    DEFINE VARIABLE hArt-des AS HANDLE NO-UNDO.
    DEFINE VARIABLE iCount AS INTEGER NO-UNDO.

    DO WITH FRAME {&FRAME-NAME}:
    ASSIGN hquery = br_table:QUERY
    hbuffer = hquery:GET-BUFFER-HANDLE(1)
    hArt-cod = hBuffer:BUFFER-FIELD("Art-cod").
    hArt-des = hBuffer:BUFFER-FIELD("Art-des").

    DO iCount = 1 TO br_table:NUM-SELECTED-ROWS:
    br_table:FETCH-SELECTED-ROW(icount).
    MESSAGE
    "Codigo Articulo: " hArt-cod:BUFFER-VALUE
    "Descripcion Articulo: " hArt-des:BUFFER-VALUE
    "Selected"
    VIEW-AS ALERT-BOX.
    END.
    END.

    /***************************************************************************************************/


    Muchas gracias.


    Carlos.

Compartilhe esta Página