Создание составного календарного справочника

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

Sub UserProc;
Var
    createInfo: IMetabaseObjectCreateInfo;
    calendar: ICompoundCalendar;
    Des: IMetabaseObjectDescriptor;
    Mb: IMetabase;
    objCalend: IMetabaseObject;
    Source: ICompoundDimensionSource;
    dimModel: IDimensionModel;
    dimModel1: IDimensionModel;
    Cinstance: ICompoundDimensionInstance;
    Instance: IDimInstance;
    el: IDimElements;
    i, j: Integer;
Begin
    Mb := MetabaseClass.Active;
    createInfo := Mb.CreateCreateInfo;
    createInfo.ClassId := MetabaseObjectClass.KE_CLASS_COMPOUNDCLNDIM;
    createInfo.Name := "CompoundCalendar";
    createInfo.Id := createInfo.Name;
    createInfo.Permanent := True;
    createInfo.Parent := Mb.Root;
    Des := mb.CreateObject(createInfo);
    objCalend := Des.Edit;
    calendar := objCalend As ICompoundCalendar;
    source := calendar.Sources.Add(1);
    dimModel := Mb.ItemById("CALEND_1").Bind As IDimensionModel;
    source.Dimensions.Add(dimModel);
    source := calendar.Sources.Add(2);
    dimModel1 := Mb.ItemById("CALEND_2").Bind As IDimensionModel;
    source.Dimensions.Add(dimModel1);
    objCalend.Save;
    Cinstance := objCalend.Open(Null) As ICompoundDimensionInstance;
    Instance := Cinstance As IDimInstance;
    memo1.Lines.Add("Количество эл-ов " + Instance.Elements.Count.ToString);
    el := Instance.Elements;
    j := Instance.Attributes.FindById("NAME").Attribute.Key;
    For i := 0 To el.Count - 1 Do
        Debug.WriteLine("Элемент " + (i + 1).ToString + ": " + (el.AttributeValue(i, j) As String));
    End For;
End Sub UserProc;