GeMIS_WEB/GUI/incl/datgetcurrentrecid.i

    fData = TRUE.

    RUN dataAvailable ( INPUT 'SAME' ).

    FIND FIRST tRowObject NO-LOCK.
    FIND {&Tabelle} 
        &IF '{&TabWhere}' NE ''
        &THEN {&TabWhere}
        &ELSE OF tRowObject
        &ENDIF
        NO-LOCK NO-ERROR.
    IF AVAILABLE {&Tabelle} THEN RETURN RECID({&Tabelle}).
    ELSE                         RETURN ?.