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 true gesetzt ist, wird die Rolle gelöscht auch wenn Benutzer der Rolle noch zugewiesen sind. | |||||||||
| 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
CODE
| 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,