IMetabaseCustomClassOperationWeb.IsCore

Syntax

IsCore: Boolean;

Description

The IsCore property returns whether an operation should be handled in a class without visual dependencies.

Comments

The property returns True if the operation should be handled in a class without visual dependencies. The class is set in the IMetabaseCustomClass.ImplementationCoreClass property. The class handles the standard operations PASTE and DELETE.

The property returns False for the operations that can be handled on a web form. The web form is set in the IMetabaseCustomClassOperationWeb.Handler property.

Example

Executing the example requires that repository custom metadata contains at least one custom class.

Add a link to the Metabase system assembly.

Sub UserProc;
Var
    Mb: IMetabase;
    CustomClassExtender: IMetabaseCustomExtender;
    CustomClass: IMetabaseCustomClass;
    StdOperationsWeb: IMetabaseCustomClassStandardOperationsWeb;
    OperationsWeb: IMetabaseCustomClassOperationsWeb;
    Operation: IMetabaseCustomClassOperationWeb;
    i, c: Integer;
Begin
    Mb := MetabaseClass.Active;
    // Get custom class container
    CustomClassExtender := Mb.SpecialObject(MetabaseSpecialObject.CustomExtender).Edit As IMetabaseCustomExtender;
    // First custom class
    CustomClass := CustomClassExtender.Classes.Item(0);
    Debug.WriteLine("Custom class: " + CustomClass.Name + '(' + CustomClass.Id + ')');
    StdOperationsWeb := CustomClass.StandardOperationsWeb;
    OperationsWeb := CustomClass.OperationsWeb;
    // View list of operations
    Debug.WriteLine("---Standard operations for web application---");
    c := StdOperationsWeb.Count;
    For i := 0 To c - 1 Do
        Operation := StdOperationsWeb.Item(i);
        Debug.WriteLine(Operation.Name + " (" + Operation.Id + "). Handle in the class: " + Operation.IsCore.ToString);
    End For;
    Debug.WriteLine("---Custom operations for web application---");
    c := OperationsWeb.Count;
    For i := 0 To c - 1 Do
        Operation := OperationsWeb.Item(i);
        Debug.WriteLine(Operation.Name + " (" + Operation.Id + "). Handle in the class: " + Operation.IsCore.ToString);
    End For;
End Sub UserProc;

After executing the example the development environment console displays a list of standard and custom operations available for the first custom class during the work in the web application.

See also:

IMetabaseCustomClassOperationWeb