IRdsNotConvertibleReasonDuplicatedId.DuplicatedId

Syntax

DuplicatedId: String;

Description

The DuplicatedId property returns duplicate identifier.

Comments

To get object keys, use the IRdsNotConvertibleReasonDuplicatedId.Keys property.

Example

Executing the example requires an MDM repository with the 16008 key that contains MDM dictionaries required to convert to table MDM dictionaries.

Add links to the Metabase, Rds system assemblies.

Sub UserProc;
Var
    RDS_DB: IRdsDatabase;
    Converter: IRdsDictionaryConverter;
    List: IRdsDictionaryConverterList;
    NotConv: IMetabaseObjectDescriptors;
    pReasons: IRdsNotConvertibleReasons;
    pReason: IRdsNotConvertibleReason;
    ReasonDuplicatedId: IRdsNotConvertibleReasonDuplicatedId;
    i, j, k: Integer;
Begin
    RDS_DB := MetabaseClass.Active.Bind(16008) As IRdsDatabase;
    Converter := New RdsDictionaryConverter.Create;
    List := Converter.AllRdsDatabase(RDS_DB);
    NotConv := List.NotConvertibleDictionaries;
    For i := 0 To NotConv.Count - 1 Do
    pReasons := List.GetNotConvertibleReasons(NotConv.Item(i).Key);
        For j := 0 To pReasons.Count - 1 Do
            pReason := pReasons.Item(j);
            ReasonDuplicatedId := pReason As IRdsNotConvertibleReasonDuplicatedId;
            Debug.Write("Duplicate identifier: ");
            Debug.WriteLine(ReasonDuplicatedId.DuplicatedId);
            Debug.Write("Keys: ");
            For k := 0 To ReasonDuplicatedId.Keys.Length - 1 Do
                Debug.WriteLine(ReasonDuplicatedId.Keys[k]);
            End For;
        End For;
    End For;
End Sub UserProc;

After executing the example the console window displays duplicate identifiers and corresponding object keys.