ShowHoursPolicy Command

Purpose

Opens a standard dialog box that is used to distribute system access time for the user.

Parameters of Use

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.

Application Features

None

Example

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.