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
