Opens a standard dialog box that is used to distribute system access time for the user.
Command parameters are passed in the Data property. Executing the command requires to specify the following value in this property:
Value type | Description |
IMetabaseUser, ISecuritySubject |
User for whom it is necessary to set up access time permissions. |
None
To execute the example, make sure that the security manager contains the USER user.
Add links to the Metabase, Ui system assemblies.
Sub UserProc;
Var
Mb: IMetabase;
MbSec: IMetabaseSecurity;
User: ISecuritySubject;
Target: IUiCommandTarget;
Context: IUiCommandExecutionContext;
Lic: Object;
Begin
MB := MetabaseClass.Active;
// Get license to work with security manager
Lic := Mb.RequestLicense(UiLicenseFeatureType.Adm);
MbSec := MB.Security;
User := MbSec.ResolveName("USER");
Target := WinApplication.Instance.GetPluginTarget("Adm");
Context := Target.CreateExecutionContext;
Context.Data := User;
Target.Execute("ShowHoursPolicy", Context);
// Save changes
MbSec.Apply;
// Check in license
Lic := Null;
End Sub UserProc;
After executing the example a dialog box opens to control access by time for the USER user.
See also: