Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: wuwu am 12.05.05 - 09:12:50
-
Hallo,
wir haben eine Datenbank in der Anfragen erfasst werden, durch verschiedene Bereiche im Unternehmen wandern und schließlich vom Vertrieb abgeschlossen werden (Status = 99).
Berechtigungskonzept der DB über Autorenfelder, jeder der mit der Anfrage zu tun bzw. geschickt bekommt darf ändern!
Anforderung ist jetzt, wenn die Anfrage vom Vertrieb abgeschlossen wird (Status = 99) dann sollte das Dokument nicht mehr bearbeitbar sein:
Dim Rollen As Variant
Const NotesMacro$="@UserRoles"
Rollen = Evaluate(NotesMacro$)
'Abfrage: Wenn der Status <> 99 ist sollte das Dokument zum bearbeiten gehen, anosnten nur das AZ & Admin!!!
If source.FieldGetText("Status") <> 99 Or (source.FieldGetText("Status") = 99 And (Rollen(0) = "[Admin]" Or Rollen(0) = "[AZ]"))Then
Continue = True
Dieser Code funktioniert im QueryModeChange, aber im QueryOpen nicht, wo baue ich den Code jetzt ein damit er wenn er direkt in der Ansicht auf bearebiten geht, das das Bearbeiten unterbunden wird!
Mfg & Danke
Horst
-
Hallo,
ich denke zu dem Thema passt ganz gut der Beitrag aus den AtNotes Best Practices "EditMode für bestimmte Dokumente verwehren" (http://www.atnotes.de/index.php?topic=20455.0).
Grüße
Jens P.
-
Hallo Jens,
genau das hab ich gesucht, auf Best Practices habe ich in dem moment nicht geschaut, sorry!
Danke
Mfg Horst