TbeCbPermissionBusinessController
TbeCbPermissionBusinessController
Die Klasse dient zur Erstellung und Bearbeitung von Benutzerrollen und zur Rollenzuordnung von existierenden be-Usern.
Die Klasse steht nur im DEVELOPER-Modus zur Verfügung.
Eigenschaften:
Eigenschaften | Beschreibung |
|---|---|
CbUserRole:O | BusinessObject, womit die Benutzerrolle bearbeitet werden kann |
Funktionen und Methoden | Beschreibung | |||||||||
|---|---|---|---|---|---|---|---|---|---|---|
CbInsertUserRole:C | Funktion zur Erstellung ein Benutzerrolle | |||||||||
Parameter | Beschreibung | |||||||||
aRoleName:C | Name der Rolle | |||||||||
aRoleKey:C | Key der Rolle | |||||||||
CbEditUserRole:L | Funktion zur Bearbeitung ein Benutzerrolle | |||||||||
Parameter | Beschreibung | |||||||||
aRoleKey:C | Key der Rolle | |||||||||
CbPostUserRole | Methode zum Speichern der Benutzerrolle | |||||||||
CbAddUserToRole | Funktion zur Rollenzuordnung von existierenden be-Usern | |||||||||
CbInsertUserGroupRole():C | Funktion zur Erstellung einer Gruppen Rolle
| |||||||||
CbAddUserToGroup / CbAddUserToGroupRole():C | Fügt einen Benutzer einer Gruppen Rolle hinzu
| |||||||||
CbInsertPackageRole:C | Ermöglicht es eine Rolle zu erstellen die für Packages vorgemerkt sind. Rückgabewert ist der GUID der Rolle.
| |||||||||
CbEditPackageRole:L | Ermöglicht das editieren von Package-Rollen. Rückgabewert wird auf | |||||||||
Parameter | Beschreibung | |||||||||
aRoleKey:C | Name des Package-Schlüssel | |||||||||
CbDeletePackageRole:L | Ermöglicht das entfernen von Package-Rollen. Rückgabewert wird auf | |||||||||
Parameter | Beschreibung | |||||||||
aRoleKey:C | Name des Package-Schlüssel | |||||||||
aForce:L | Wenn auf | |||||||||
CbPostPackageRole | Methode zum speichern der Package-Rollen | |||||||||
CbRemoveUserFromGroup | Entfernt einen User aus einer Gruppen Rolle
| |||||||||
CbRemoveUserFromRole | Entfernt einen User aus einer Rolle
| |||||||||
CbAddServicePermissionObject | Fügt einen neuen Service Rollen-Objekt. Rückgabe: GUID des neuen Objekts | |||||||||
Parameter | Beschreibung | |||||||||
aServiceName:C | Service-Name | |||||||||
aPackageKey:C | Toolbox-Package-Schlüssel | |||||||||
CbAddAldUserToGroup | Fügt einen Alternative Login zu einer Gruppen Rolle hinzu
| |||||||||
CbAddAldUserToRole | Fügt einen Alternative Login zu einer Rolle hinzu
| |||||||||
CbRemoveAldUserFromGroup | Entfernt einen Alternative Login aus einer Gruppen Rolle
| |||||||||
CbRemoveAldUserFromRole | Entfernt einen Alternative Login aus einer Rolle
| |||||||||
Beispiel
| oDM, aPermissionBC, cGUIDString |
aPermissionBC := CreateObject('TbeCbPermissionBusinessController', 'aPermissionBC', nil ,nil),
oDM := CreateObject('TBeDbGet', 'DM', nil, nil),
startseq
aPermissionBC.CbDataModule := oDM,
aPermissionBC.CbDataModule.CbTransaction_Begin(),
//****************************************************************************
// Anlegen einer Rolle
//****************************************************************************
cGUIDString := aPermissionBC.CbInsertUserRole('NEUE ROLLE2', 'NEUE_ROLLE_KEY2'),
// aPermissionBC.CbUserRole.CbIsActive := false, // DEFAULT = true
// aPermissionBC.CbUserRole.CbDescription := 'NEUE ROLLE', // DEFAULT = LEER
// aPermissionBC.CbUserRole.CbRoleKey := 'NEUER KEY', // DEFAULT = der gesetze Rollenname von CreateUserRole
// aPermissionBC.CbUserRole.CbOnlyForAreas := 'MSK/ZGR', // DEFAULT = Rolle für Maske und Zugriff
// aPermissionBC.CbUserRole.CbOnlyForAreas := 'MSK', // Rolle ist nur für Maske
// aPermissionBC.CbUserRole.CbOnlyForAreas := 'ZGR', // Rolle ist nur für Zugriffe
aPermissionBC.CbPostUserRole(),
//****************************************************************************
// Benutzer wird der erstellten Rolle hinzugefuegt
//****************************************************************************
aPermissionBC.CbAddUserToRole(65, cGUIDString),
//****************************************************************************
// erstellte Rolle wird bearbeitet
//****************************************************************************
if aPermissionBC.CbEditUserRole('NEUE_ROLLE_KEY2') then
aPermissionBC.CbUserRole.CbIsActive := false,
// aPermissionBC.CbUserRole.CbDescription := 'GEANDERTE ROLLE',
// aPermissionBC.CbUserRole.CbRoleKey := 'GEANDERTE KEY',
// aPermissionBC.CbUserRole.CbOnlyForAreas := 'MSK/ZGR',
// aPermissionBC.CbUserRole.CbOnlyForAreas := 'MSK',
// aPermissionBC.CbUserRole.CbOnlyForAreas := 'ZGR',
aPermissionBC.CbPostUserRole(),
endif,
aPermissionBC.CbDataModule.CbTransaction_Commit(),
always
DestroyObject(oDM),
DestroyObject(aPermissionBC),
stopseq,