GeMIS_WEB/GUI/Tools/Berechtigung.p

DEF VAR cBenutzer   AS CHAR INIT 'wari'         NO-UNDO.
DEF VAR cProgramm   AS CHAR INIT 'v-artst'      NO-UNDO.

DEF TEMP-TABLE tBerecht LIKE Berecht.

EMPTY TEMP-TABLE tBerecht.

FIND FIRST Berecht NO-LOCK
        WHERE Berecht.Benutzer = cBenutzer
        AND   Berecht.Programm = cProgramm.
CREATE  tBerecht.
BUFFER-COPY Berecht TO tBerecht.

FOR EACH Benutzer:
    FIND FIRST Berecht NO-LOCK
            WHERE Berecht.Benutzer = Benutzer.Benutzer
            AND   Berecht.Programm = cProgramm NO-ERROR.
    IF AVAILABLE Berecht THEN NEXT.
    CREATE  Berecht.
    BUFFER-COPY tBerecht
        EXCEPT  Benutzer
        TO      Berecht
        ASSIGN  Berecht.Benutzer = Benutzer.Benutzer.
END.