GeMIS_WEB/GUI/incl/datreaktivieren.i

    DEF VAR hBuffer     AS HANDLE                   NO-UNDO.
    DEF VAR hFeld       AS HANDLE                   NO-UNDO.

    fData = TRUE.
    RUN dataAvailable ( INPUT 'SAME' ).

    FIND FIRST tRowObject NO-LOCK.

    REPEAT TRANSACTION:
        FIND {&Tabelle} 
            &IF '{&TabWhere}' NE ''
            &THEN {&TabWhere}
            &ELSE OF tRowObject
            &ENDIF
            EXCLUSIVE-LOCK NO-WAIT NO-ERROR.
        IF LOCKED {&Tabelle} THEN DO:
            MESSAGE 'Datensatz ist schon im Zugriff '
                    VIEW-AS ALERT-BOX INFORMATION.
            RELEASE {&Tabelle}.
            RETURN 'ERROR'.
        END.
        IF NOT AVAILABLE {&Tabelle} THEN DO:
            RELEASE {&Tabelle}.
            RETURN 'ERROR'.
        END.
        hBuffer = BUFFER {&Tabelle}:HANDLE.
        hFeld   = hBuffer:BUFFER-FIELD('Aktiv') NO-ERROR.
        IF NOT VALID-HANDLE( hFeld ) THEN DO:
            RELEASE {&Tabelle}.
            RETURN 'ERROR'.
        END.
        hFeld:BUFFER-VALUE(0) = STRING(TRUE).
        RELEASE {&Tabelle}.
        LEAVE.
    END.

    RUN refreshRow.