Domino 9 und frühere Versionen > Entwicklung

Ereigniss mit @Command abbrechen

(1/2) > >>

TomLudwig:
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...

Axel:
Hi,

mir ist da kein Weg bekannt.


Axel

TomLudwig:
Ich find aber keinen Weg auf die Rollen des Benutzers der das Ereigniss ausgelöst hat per LS zuzugreifen.

Das muss doch irgendwie gehen...

Glombi:

--- Zitat von: TomLudwig am 29.07.04 - 13:36:50 ---Ich find aber keinen Weg auf die Rollen des Benutzers der das Ereigniss ausgelöst hat per LS zuzugreifen.

Das muss doch irgendwie gehen...

--- Ende Zitat ---
Das geht so:

dim userroles as Variant
userroles = Evaluate( |@UserRoles| )

Damit bekommst Du in einem Array die Rollen des Users.

Andreas

Axel:

--- Zitat von: TomLudwig am 29.07.04 - 13:36:50 ---Ich find aber keinen Weg auf die Rollen des Benutzers der das Ereigniss ausgelöst hat per LS zuzugreifen.

Das muss doch irgendwie gehen...

--- Ende Zitat ---

Hi,

das ist kein Problem. Ich hab mir mal so eine Funktion geschrieben.


--- Zitat ---%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


--- Ende Zitat ---

Beisp.:

...
If RoleEnabled("[NoCheck]") Then
  'Rolle gesetzt
Else
  'Rolle nicht gesetzt
End If
...


Axel

Navigation

[0] Themen-Index

[#] Nächste Seite