| 123456789101112131415161718192021222324252627282930313233343536 |
- 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.
|
