ICubeMetaUpdateDictionaryRemapings.Count

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

Sub UserProc;
Var
    Mb: IMetabase;
    RubUpdateEx: ICubeMetaUpdateEx;
    XmlDoc: IXMLDOMDocument3;
    Element: IXmlDomElement;
    DictRemapings: ICubeMetaUpdateDictionaryRemapings;
    DictRemap: ICubeMetaUpdateDictionaryRemaping;
    i: Integer;
Begin
    Mb := MetabaseClass.Active;
    RubUpdateEx := New CubeMetaUpdateClass.Create As ICubeMetaUpdateEx;
    XmlDoc := New DOMDocument60.Create;
    XmlDoc.load("C:\FC_COPY.XML");
    Element := XmlDoc.selectSingleNode("root") As IXmlDomElement;
    RubUpdateEx.LoadFromXml(Element, Mb);
    DictRemapings := RubUpdateEx.DictionaryRemapings;
    For i := 0 To DictRemapings.Count - 1 Do
        DictRemap := DictRemapings.Item(i);
        Debug.WriteLine("Объект-источник:" + DictRemap.SourceId);
        Debug.WriteLine("Объект-приёмник:" + DictRemap.Target.Id);
        Debug.WriteLine("-----------");
    End For;
End Sub UserProc;