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

Eigenschaft	Beschreibung
CbDataModule:O
CbUserRole:O	BusinessObject, womit die Benutzerrolle bearbeitet werden kann
Name:C
Tag:N

Methoden

Methode	Beschreibung
CbInsertUserRole(aRoleName:C, aRoleKey:C):C	Funktion zur Erstellung ein Benutzerrolle
CbAddUserToRole(aUserNo:N, aRoleGUID:C)	Funktion zur Rollenzuordnung von existierenden be-Usern
CbPostUserRole()	Methode zum Speichern der Benutzerrolle
CbEditUserRole(aRoleKey:C):L	Funktion zur Bearbeitung ein Benutzerrolle
CbInsertUserGroupRole(aRoleName:C, aRoleKey:C):C	Funktion zur Erstellung einer Gruppen Rolle - aRoleName:C: Name der Rolle - aRoleKey:C: Key der Rolle
CbAddUserToGroupRole(aUserNo:N, aRoleGUID:C)
CbAddUserToGroup(aUserNo:N, aRoleGUID:C)
CbRemoveUserFromGroup(aUserNo:N, aGroupGUID:C)	Entfernt einen User aus einer Gruppen Rolle - aUserNo:N: User - aRoleKey:C: Key der Rolle
CbRemoveUserFromRole(aUserNo:N, aRoleGUID:C)	Entfernt einen User aus einer Rolle - aUserNo:N: User - aRoleKey:C: Key der Rolle
CbEditPackageRole(aRoleKey:C):L	Ermöglicht das editieren von Package-Rollen. Rückgabewert wird auf `` true `` gesetzt, wenn erfolgreich durchgeführt.
CbDeletePackageRole(aRoleKey:C, aForce:L):L	Ermöglicht das entfernen von Package-Rollen. Rückgabewert wird auf `` true `` gesetzt, wenn erfolgreich durchgeführt.
CbInsertPackageRole(aRoleName:C, aRoleKey:C, aPackageKey:C):C	Ermöglicht es eine Rolle zu erstellen die für Packages vorgemerkt sind. Rückgabewert ist der GUID der Rolle. - aRoleName:C: Name der Rolle - aRoleKey:C: Name des Schlüssel - aPackageKey:C: Key des Package der zum Schlüssel hinzugefügt werden soll
CbPostPackageRole()	Methode zum speichern der Package-Rollen
CbAddServicePermissionObject(aServiceName:C, aPackageKey:C):C	Fügt einen neuen Service Rollen-Objekt. Rückgabe: GUID des neuen Objekts
CbAddAldUserToGroup(aLoginId:N, aGroupGUID:C)	Fügt einen Alternative Login zu einer Gruppen Rolle hinzu - aLoginID:N: ID des Alternativen Logins - aRoleKey:C: Key der Rolle
CbAddAldUserToRole(aLoginId:N, aRoleGUID:C)	Fügt einen Alternative Login zu einer Rolle hinzu - aLoginID:N: ID des Alternativen Logins - aRoleKey:C: Key der Rolle
CbRemoveAldUserFromGroup(aLoginId:N, aGroupGUID:C)	Entfernt einen Alternative Login aus einer Gruppen Rolle - aLoginID:N: ID des Alternativen Logins - aRoleKey:C: Key der Rolle
CbRemoveAldUserFromRole(aLoginId:N, aRoleGUID:C)	Entfernt einen Alternative Login aus einer Rolle - aLoginID:N: ID des Alternativen Logins - aRoleKey:C: Key der 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,