IMetabaseCustomClass.StandardOperations

Копировать пример

Sub UserProc;
Var
    Mb: IMetabase;
    CustomClassExtender: IMetabaseCustomExtender;
    CustomClass: IMetabaseCustomClass;
    StdOperations: IMetabaseCustomClassStandardOperations;
    Operations: IMetabaseCustomClassOperations;
    Operation: IMetabaseCustomClassOperation;
    i, c: Integer;
Begin
    Mb := MetabaseClass.Active;
    // Получение контейнера пользовательских классов
    CustomClassExtender := Mb.SpecialObject(MetabaseSpecialObject.CustomExtender).Edit As IMetabaseCustomExtender;
    // Первый пользовательский класс
    CustomClass := CustomClassExtender.Classes.Item(0);
    StdOperations := CustomClass.StandardOperations;
    Operations := CustomClass.Operations;
    // Просмотр списка операций
    Debug.WriteLine("---Стандартные операции---");
    c := StdOperations.Count;
    For i := 0 To c - 1 Do
        Operation := StdOperations.Item(i);
        Debug.WriteLine(Operation.Name + " (" + Operation.Id + ')')
    End For;
    Debug.WriteLine("---Пользовательские операции---");
    c := Operations.Count;
    For i := 0 To c - 1 Do
        Operation := Operations.Item(i);
        Debug.WriteLine(Operation.Name + " (" + Operation.Id + ')')
    End For;
End Sub UserProc;