Lizenzierung und Berechtigungen #

Funktionen zur Prüfung von Modullizenzen, Plugin-Lizenzen und Benutzerberechtigungen.

UserAccess #

UserAccess(ObjectType: String, ObjectName: String): Variant

Prüft die Zugriffsberechtigung des aktuellen Benutzers auf ein bestimmtes Objekt.

If ellib.UserAccess("DATAOBJECT", "Eulanda.Artikel") Then
  MsgBox "Zugriff auf Artikel erlaubt"
End If

ModuleLicenced(ModuleCode: String): Boolean

Prüft, ob ein bestimmtes EULANDA-Modul lizenziert ist.

If ellib.ModuleLicenced("SHOPIFY") Then
  MsgBox "Shopify-Modul ist lizenziert"
End If

PluginLicenced(PluginNumber: Integer): Boolean

Prüft, ob ein bestimmtes Plugin lizenziert ist.

If ellib.PluginLicenced(1234) Then
  MsgBox "Plugin ist freigeschaltet"
End If

UIModuleLicenced(ModuleCode: String): Boolean

Wie ModuleLicenced, zeigt aber bei fehlender Lizenz automatisch eine Fehlermeldung an. Gibt True zurück, wenn lizenziert.

' Zeigt automatisch eine Meldung, wenn nicht lizenziert
If ellib.UIModuleLicenced("SHOPIFY") Then
  ' ... Modul-Code ausführen ...
End If

CheckModuleLicenced(ModuleCode: String)

Wirft einen Fehler (Err.Raise), wenn das Modul nicht lizenziert ist. Sinnvoll am Anfang eines Scripts, um die Ausführung sofort abzubrechen.

ellib.CheckModuleLicenced "SHOPIFY"
' Ab hier ist sicher, dass das Modul lizenziert ist

ModuleLicencedMsg(ModuleCode: String): String

Gibt einen lokalisierten Fehlertext zurück, falls das Modul nicht lizenziert ist. Bei vorhandener Lizenz wird ein Leerstring zurückgegeben.

Dim msg
msg = ellib.ModuleLicencedMsg("SHOPIFY")
If msg <> "" Then
  MsgBox msg
  ' z.B.: "Das Modul 'Shopify' ist nicht lizenziert."
End If