IRdsImportSchema.AddCrossVersions

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

Sub UserProc;
Var
    MB: IMetabase;
    Obj: IMetabaseObject;
    Dict: IRdsDictionary;
    DictInst: IRdsDictionaryInstance;
    Schema: IRdsImportSchema;
    Attrs: IRdsAttributes;
    Elements: IRdsDictionaryElements;
    Hist: IRdsDictionaryElementHistory;
    InDate, OutDate, Name, i, j: Integer;
Begin
    // Получим текущий репозиторий
    MB := MetabaseClass.Active;
    // Получим версионный справочник НСИ
    Obj := MB.ItemById("NSI_DICT").Edit;
    Dict := Obj As IRdsDictionary;
    // Получим данные справочника НСИ
    DictInst := Dict.Open(Null) As IRdsDictionaryInstance;
    // Получим коллекцию атрибутов
    Attrs := Dict.Attributes;
    // Получим ключ атрибута «Дата начала»
    InDate := Attrs.InDate.Key;
    // Получим ключ атрибута «Дата окончания»
    OutDate := Attrs.OutDate.Key;
    // Получим ключ атрибута «Наименование»
    Name := Attrs.Name.Key;
    // Получим коллекцию элементов справочника
    Elements := DictInst.Elements;
    // Выведем в консоль наименования элементов и значения их атрибутов до применения схемы импорта
    Debug.WriteLine("Версии элементов до применения схемы импорта");
    For i := 1 To Elements.Count - 1 Do
        Hist := Elements.Item(i).History;
        Debug.WriteLine(Elements.Item(i).Name);
            For j := 0 To Hist.Count - 1 Do
                Debug.Write("Дата начала: " + Hist.Attribute(j, InDate));
                Debug.Write(" Дата окончания: " + Hist.Attribute(j, OutDate));
                Debug.WriteLine(" Значение на данном интервале: " + Hist.Attribute(j, Name));
            End For;
    End For;
    // Получим схему импорта
    Schema := Dict.ImportSchemas.FindById("IMPORTSCHEMA");
    // Определим признак добавления новых версий элемента с пересекающимися периодами
    Schema.AddCrossVersions := True;
    // Импортируем данные из схемы импорта
    DictInst.ImportData(Schema);
    // Выведем в консоль наименования элементов и значения их атрибутов после применения схемы импорта
    Debug.WriteLine("Версии элементов после применения схемы импорта");
    For i := 1 To Elements.Count - 1 Do
        Hist := Elements.Item(i).History;
        Debug.WriteLine(Elements.Item(i).Name);
            For j := 0 To Hist.Count - 1 Do
                Debug.Write("Дата начала: " + Hist.Attribute(j, InDate));
                Debug.Write(" Дата окончания: " + Hist.Attribute(j, OutDate));
                Debug.WriteLine(" Значение на данном интервале: " + Hist.Attribute(j, Name));
            End For;
    End For;
    // Сохраним изменения
    Obj.Save;
End Sub UserProc;