IMetabaseDefinition.CheckCustomEvents

Syntax

CheckCustomEvents: Boolean;

CheckCustomEvents: Boolean;

Description

The CheckCustomEvents property determines whether custom events on working in repository will be monitored using web service.

Comments

The property is set to False by default, and the custom events are not monitored. On setting the value to True, events will be monitored, to do it, repository must contain MetabaseSpecialObject.MetabaseCustomEvents special object. The unit containing the IMetabaseCustomEvents interface implementation is specified as object.

NOTE. Events are monitored only on working with repository from web service.

Example

Executing the example requires that the repository contains a module with the MOD_CUSTOM_EVENTS identifier. The unit contains the class that is inherited from the IMetabaseCustomEvents interface or the ForeMetabaseCustomEvents class.

Add links to the Metabase system assembly.

Sub UserProc;
Var
    Mb: IMetabase;
    MbDef: IMetabaseDefinition;
    Desc: IMetabaseObjectDescriptor;
Begin
    Mb := MetabaseClass.Active;
    MbDef := Mb.Definition;
    Desc := Mb.ItemById("MOD_CUSTOM_EVENTS");
    Mb.SpecialObject(MetabaseSpecialObject.MetabaseCustomEvents) := Desc;
    MbDef.CheckCustomEvents := True;
    MbDef.Save;
End Sub UserProc;

Imports Prognoz.Platform.Interop.Metabase;

Public Shared Sub Main(Params: StartParams);
Var
    Mb: IMetabase;
    MbDef: IMetabaseDefinition;
    Desc: IMetabaseObjectDescriptor;
Begin
    Mb := Params.Metabase;
    MbDef := Mb.Definition;
    Desc := Mb.ItemById["MOD_CUSTOM_EVENTS"];
    Mb.SpecialObject[MetabaseSpecialObject.msoMetabaseCustomEvents] := Desc;
    MbDef.CheckCustomEvents := True;
    MbDef.Save();
End Sub;

On executing the example, the handler of custom events that will be processes on working from web service will be set up for the repository.

See also:

IMetabaseDefinition