IMetabaseUpdateRemappings.FindByOldId

Copy example

Sub GetInfo(UpdRemaps: IMetabaseUpdateRemappings; ClassId: Integer; ObjId: String);
Var
    UpdRemap: IMetabaseUpdateRemapping;
Begin
    If Not UpdRemaps.IsEmpty Then
        // Display repeated mapping type
        Debug.Write("Repeated mapping type: ");
        Select Case UpdRemaps.Type
            Case MetabaseUpdateRemappingType.Unknown: Debug.WriteLine("unknown type");
            Case MetabaseUpdateRemappingType.Object: Debug.WriteLine("repository object");
            Case MetabaseUpdateRemappingType.Hierarchy: Debug.WriteLine("alternative hierarchy");
            Case MetabaseUpdateRemappingType.MetafactsAttribute: Debug.WriteLine("time series attributes");
            Case MetabaseUpdateRemappingType.MetavalsAttribute: Debug.WriteLine("observation attributes");
            Case MetabaseUpdateRemappingType.None: Debug.WriteLine("type is not set");
        End Select;
    End If;
    // Search repeated mapping
    UpdRemap := UpdRemaps.FindByOldId(ClassId, ObjId);
    // Check if observation is found
    If UpdRemap <> Null Then
        // If mapping is found, display information about it in the console window
        Debug.WriteLine("New object identifier: " + UpdRemap.NewId);
        Debug.WriteLine("Old object identifier: " + UpdRemap.OldId);
        Debug.WriteLine("New object key: " + UpdRemap.NewKey.ToString);
        Debug.WriteLine("Old object key: " + UpdRemap.OldKey.ToString);
    End If;
End Sub GetInfo;