IMetabaseUpdateRemappings.FindByOldId

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

Sub GetInfo(UpdRemaps: IMetabaseUpdateRemappings; ClassId: Integer; ObjId: String);
Var
    UpdRemap: IMetabaseUpdateRemapping;
Begin
    If Not UpdRemaps.IsEmpty Then
        // Выводим тип повторного сопоставления
        Debug.Write("Тип повторного сопоставления: ");
        Select Case UpdRemaps.Type
            Case MetabaseUpdateRemappingType.Unknown: Debug.WriteLine("неизвестный тип");
            Case MetabaseUpdateRemappingType.Object: Debug.WriteLine("объект репозитория");
            Case MetabaseUpdateRemappingType.Hierarchy: Debug.WriteLine("альтернативная иерархия");
            Case MetabaseUpdateRemappingType.MetafactsAttribute: Debug.WriteLine("атрибуты временных рядов");
            Case MetabaseUpdateRemappingType.MetavalsAttribute: Debug.WriteLine("атрибуты наблюдений");
            Case MetabaseUpdateRemappingType.None: Debug.WriteLine("тип не задан");
        End Select;
    End If;
    // Выполняем поиск повторного сопоставления
    UpdRemap := UpdRemaps.FindByOldId(ClassId, ObjId);
    // Проверяем, найдено ли сопоставление
    If UpdRemap <> Null Then
        // Если сопоставление найдено, то выводим информацию о нём в окно консоли
        Debug.WriteLine("Идентификатор нового объекта: " + UpdRemap.NewId);
        Debug.WriteLine("Идентификатор старого объекта: " + UpdRemap.OldId);
        Debug.WriteLine("Ключ нового объекта: " + UpdRemap.NewKey.ToString);
        Debug.WriteLine("Ключ старого объекта: " + UpdRemap.OldKey.ToString);
    End If;
End Sub GetInfo;