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.