miércoles, 26 de enero de 2011

Moverse por un Browser.

Posicionarse:
    REPOSITION brw:handle TO ROW numFila.

Seleccionar varias:
        DEFINE VARIABLE iCont AS INTEGER NO-UNDO.
        DEFINE VARIABLE cAux AS CHARACTER NO-UNDO.
        DEFINE VARIABLE hBrowse AS HANDLE NO-UNDO.

        hBrowse = DYNAMIC-FUNCTION('getBrowseHandle':U IN h_handleBrowse).
        REPEAT iCont = 1 TO hBrowse:NUM-SELECTED-ROWS:
            hBrowse:FETCH-SELECTED-ROW(iCont).
            cAux = DYNAMIC-FUNCTION('colValues' IN h_sdo, INPUT '<lista de campos>').
    /* Ahora en cAux tendrás los valores */
        END.


Browser estatico:
    DEFINE VARIABLE hBrowse AS HANDLE NO-UNDO.
    DEFINE VARIABLE hAux AS HANDLE NO-UNDO.
    DEFINE VARIABLE iAux AS INTEGER NO-UNDO.

    hBrowse = DYNAMIC-FUNCTION('getBrowseHandle':U IN h_handleBrowse).
    /* Si tuvieramos directamente accesible el browse no haría falta dado que ya tendríamos el handle del mismo */

    hAux = hBrowse:QUERY.
    hAux = hAux:GET-BUFFER-HANDLE.
    hAux = hAux:BUFFER-FIELD("<nombre campo>").
    REPEAT iAux = 1 TO hBrowse:NUM-SELECTED-ROWS:
        hBrowse:FETCH-SELECTED-ROW(iAux).
        MESSAGE hAux:BUFFER-VALUE VIEW-AS ALERT-BOX.
    END.

No hay comentarios:

Publicar un comentario