Ereigniss mit @Command abbrechen

[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]

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

[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...

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

[TomLudwig]

Es funktioniert...

ich liebe dieses Forum *schleim*