Объединение рядов в группу

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

Sub UserProc;
Var
    MB: IMetabase;
    CrInfo: IMetabaseObjectCreateInfo;
    MObj: IMetabaseObject;
    Exp: IEaxAnalyzer;
    WB: ILaner;
    TSDB: IRubricator;
    MetaAtt: IMetaAttribute;
    AttrVals: ILanerMetaAttributeValues;
    AttrVal: ILanerMetaAttributeValue;
    GroupSer: ILanerGroupSerie;
Begin
    MB := MetabaseClass.Active;
    //Открываем рабочую книгу на редактирование
    MObj := MB.ItemById("OBJ123").Edit;
    Exp := MObj As IEaxAnalyzer;
    //Возвращаем рабочую книгу
    WB := Exp.Laner;
    WB.BeginUpdate;
    //Возвращаем базу данных, на основе которой построена рабочая книга
    TSDB := WB.RubricatorInstance.Rubricator;
    //Создаем коллекцию значений атрибутов
    AttrVals := WB.Series.CreateMetaAttributeValues;
    //Получаем из базы данных временных рядов атрибут с указанным идентификатором
    MetaAtt := TSDB.Facts.Attributes.FindById("TERRID");
    //Добавляем атрибут в коллекцию атрибутов
    AttrVal := AttrVals.Add(MetaAtt);
    //Устанавливаем значение атрибута
    AttrVal.Value := 1;
    //Добавляем в рабочую книгу группу рядов, у которых значение атрибута TERRID равняется «1» 
    GroupSer := WB.Series.AddGroupSerie(TSDB, AttrVals);
    //Раскрываем группу рядов
    GroupSer.Expanded := True;
    WB.EndUpdate;
    MObj.Save;
End Sub UserProc;