DEF VAR cListe      AS CHAR                     NO-UNDO INIT ''.
    DEF VAR cName       AS CHAR                     NO-UNDO INIT ''.
    DEF VAR cLabel      AS CHAR                     NO-UNDO INIT ''.
    DEF VAR cWert       AS CHAR                     NO-UNDO INIT ''.

    FOR EACH tBrowser NO-LOCK:
        cLabel = tBrowser.hCol:COLUMN-LABEL NO-ERROR.
        IF cLabel = ?   OR
           cLabel = ''  THEN cLabel = tBrowser.hCol:LABEL NO-ERROR.
        IF cLabel = ?   OR
           cLabel = ''  THEN cLabel = tBrowser.Feld NO-ERROR.
        cListe = cListe
               + (IF cListe = '' THEN '' ELSE CHR(01))
               + cLabel
               + CHR(01)
               + tBrowser.Feld.
    END.
    cListe = cListe
           + (IF cListe = '' THEN '' ELSE CHR(01))
           + '%ENDE%'
           + CHR(01)
           + 'CLEAR'.

    RUN g-filter.w ( INPUT cListe, OUTPUT cName, OUTPUT cWert ).

    IF cName = ''   OR
       cName = ?    THEN RETURN NO-APPLY.
    IF cName = '%ENDE%' THEN ASSIGN cName = ''
                                    cWert = ''.

    RUN SET_FILTER IN hDaten ( cName, cWert ).

    APPLY 'U1'.
    RETURN NO-APPLY.