Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: TomLudwig am 29.07.04 - 13:33:03
-
Hallo,
eine Frage, kann ich ein Ereignis wie z.B. PostDragAndDrop oder der gleichen mit @Commands auch abbrechen. (Das was ich in LS mit Continue=False mache)
Vorgestellt hab ich mir sowas in der Richtung:
@If(@IsMember("[CanDelete]";@UserRoles); @True; @False)
danke...
-
Hi,
mir ist da kein Weg bekannt.
Axel
-
Ich find aber keinen Weg auf die Rollen des Benutzers der das Ereigniss ausgelöst hat per LS zuzugreifen.
Das muss doch irgendwie gehen...
-
Ich find aber keinen Weg auf die Rollen des Benutzers der das Ereigniss ausgelöst hat per LS zuzugreifen.
Das muss doch irgendwie gehen...
Das geht so:
dim userroles as Variant
userroles = Evaluate( |@UserRoles| )
Damit bekommst Du in einem Array die Rollen des Users.
Andreas
-
Ich find aber keinen Weg auf die Rollen des Benutzers der das Ereigniss ausgelöst hat per LS zuzugreifen.
Das muss doch irgendwie gehen...
Hi,
das ist kein Problem. Ich hab mir mal so eine Funktion geschrieben.
%REM
===================================================================
Funktion: RoleEnabled
---------------------------------------------------------------------------------------------------------------------------------------
Beschreibung :
Diese Funktion prüft ob eine bestimmte Rolle einem User zugeordnet ist. Funktioniert
auch wenn die Rolle einer Gruppe zugeordnet ist, in der der User Mitglied ist.
----------------------------------------------------------------------------------------------------------------------------------------
Parameter und Rückgabe:
Parameter:
Bezeichnung Typ Beschreibung
sRole String Name der Rolle
Rückgabe:
True (1) wenn Rolle gesetzt, sonst False
----------------------------------------------------------------------------------------------------------------------------------------
Benötigte Routinen und Bibliotheken:
Routine Bibliothek
----------------------------------------------------------------------------------------------------------------------------------------
Erstellt am 01.02.2001 durch Axel Matthies
----------------------------------------------------------------------------------------------------------------------------------------
Letzte Änderung am:
===================================================================
%END REM
Function RoleEnabled(sRole As String) As Integer
Dim vResult As Variant
vResult = Evaluate(|@IsMember("| & sRole & |"; @UserRoles)|)
If vResult(0) = 1 Then
RoleEnabled = 1
Else
RoleEnabled = 0
End If 'If vResult(0) = 1
End Function
Beisp.:
...
If RoleEnabled("[NoCheck]") Then
'Rolle gesetzt
Else
'Rolle nicht gesetzt
End If
...
Axel
-
Es funktioniert...
ich liebe dieses Forum *schleim*
:)