| 123456789101112131415161718192021222324252627 |
- DEF INPUT PARAMETER ipHandle AS HANDLE NO-UNDO.
- DEF VAR FeldName AS CHAR NO-UNDO.
- DEF VAR FeldInhalt AS CHAR NO-UNDO.
- DEF VAR ix AS INT NO-UNDO.
- DEF VAR LKY AS INT NO-UNDO.
- DEF VAR hLEAVE AS HANDLE NO-UNDO.
- DEF VAR hENTER AS HANDLE NO-UNDO.
- DEF VAR Daten AS CHAR NO-UNDO.
- IF FMut = FALSE THEN RETURN ''.
- LKY = LASTKEY.
- hENTER = LAST-EVENT:WIDGET-ENTER.
- hLEAVE = LAST-EVENT:WIDGET-LEAVE.
- FeldName = ''.
- FeldInhalt = ''.
- IF NOT VALID-HANDLE(ipHandle) THEN RETURN ''.
- IF ipHandle:TYPE = 'FRAME' THEN RETURN ''.
- IF ipHandle:TYPE = 'WINDOW' THEN RETURN ''.
-
- FeldName = ipHandle:NAME.
- IF ipHandle:TYPE = 'FILL-IN' OR
- ipHandle:TYPE = 'COMBO-BOX' OR
- ipHandle:TYPE = 'TOGGLE-BOX' THEN FeldInhalt = ipHandle:SCREEN-VALUE.
|
