IEaxWorkbook.Laner

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

Sub UserProc;
Var
    MB: IMetabase;
    CrInfo: IMetabaseObjectCreateInfo;
    MObj: IMetabaseObject;
    Exp: IEaxAnalyzer;
    Source: IMetabaseObjectDescriptor;
    WB: IEaxWorkbook;
    Context: ILanerContext;
    Laner: ILaner;
Begin
    // Получаем репозиторий
    MB := MetabaseClass.Active;
    // Задаем базовые параметры создания рабочей книги
    CrInfo := MB.CreateCreateInfo;
    CrInfo.ClassID := MetabaseObjectClass.KE_CLASS_WORKBOOK;
    CrInfo.Id := MB.GenerateId("NEW_WORKBOOK");
    CrInfo.Name := "Новая рабочая книга";
    CrInfo.Parent := MB.ItemById("WORKBOOKS");
    // Создаем объект репозитория «Рабочая книга»
    MObj := MB.CreateObject(CrInfo).Edit;
    Exp := MObj As IEaxAnalyzer;
    WB := Exp As IEaxWorkbook;
    // Задаем источник данных рабочей книги 
    Source := MB.ItemById("TSDB");
    Laner := WB.Laner;
    Laner.RubricatorInstance := Source.Open(Null) As IRubricatorInstance;
    // Настраиваем контекст 
    WB.UseLanerContext := True;
    Context := WB.LanerContext;
    Context.AllowExternalStubs := True;
    Context.AllowSmartHighlighting := True;
    Context.AllowSynchronization := True;
    //Сохраняем созданный объект репозитория
    MObj.Save;
End Sub UserProc;