Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: tomca39 am 22.02.03 - 17:37:29

Titel: Editorenrechte durch Rolle
Beitrag von: tomca39 am 22.02.03 - 17:37:29
Hallo,

ich erstelle eine DB zur Verwaltung von Dokumenten. Verschiedene Abteilungen können ihre Dokumente in der DB verwalten bzw anderen zugänglich machen. Soweit kein Problem !!

Nun möchte ich, daß die User nur Dokumente der eigenen Abteilung änderen können auch dann wenn sie diese nicht selbst verfasst haben. ???

Ich habe jeder Abteilung eine Rolle zugewiesen.

Hat jemand ein Idee wie ich dies mit einer Formel oder einem Script lösen kann ? ;)

Tom
Titel: Re:Editorenrechte durch Rolle
Beitrag von: eknori (retired) am 22.02.03 - 18:48:54
Guckst du hier

http://www.eknori.de/downloads.htm

und dann nach untenblättern bis

"Leser und Autorenfelder unter KOntrolle"

damit kriegst du das schnell in den Griff
Titel: Re:Editorenrechte durch Rolle
Beitrag von: tomca39 am 24.02.03 - 18:00:04
Hallo,

danke für die schnelle Antwort, leider nicht ganz das was ich suche.

Ich möchte mit einer Formel oder Script prüfen ob ein User Mitglied einer Gruppe ( Rolle) ist und somit die Berechtigung hat ein Dokument zu ändern. Beim Erstellen eines Dokuments gibt der User seine Abteilung an.
Beim Editieren möchte ich prüfen ob der akutelle User auch Mitglied der Rolle ist, von der das Dokument erstellt wurde.
Wenn ja, darf er ändern wenn nicht Fehler !!!
Tom
Titel: Re:Editorenrechte durch Rolle
Beitrag von: ata am 24.02.03 - 18:31:36
... wenn er keine Autorenrolle hat, kann er schon gar nicht in den editiermodus kommen - oder verstehe ich dich da irgendwie falsch - das System entscheidet doch bereits...

ata
Titel: Re:Editorenrechte durch Rolle
Beitrag von: doliman am 24.02.03 - 20:31:50
Hi,

ich habe das Problem, dass trotz Authors und Readers-Felder der Benutzer in den Editmodus wechseln kann. Er kann zwar das Dokument nicht speichern aber es ist trotzdem verwirrend wenn dieser in Editmode gehen kann.
Warum und wie weis ich nicht. Ich habe aber mit folgendem Script im QueryModeChange der Maske mir beholfen:

Dim session As New NotesSession
Dim db As NotesDatabase
Dim level As Integer
Set db = session.CurrentDatabase
level = db.CurrentAccessLevel

if level>=3 then
    continue= true
else
    continue = false
end if

level: liefer folgendes zurück:
ACLLEVEL_NOACCESS (0)
ACLLEVEL_DEPOSITOR (1)
ACLLEVEL_READER (2)
ACLLEVEL_AUTHOR (3)
ACLLEVEL_EDITOR (4)
ACLLEVEL_DESIGNER (5)
ACLLEVEL_MANAGER (6)

Jetzt wird mit den entsprechenden Einträgen in den Reader und Author Feldern die Maske nicht mehr im Editmodus geöffnet.