IRdsDictionary.NonUniqueKeys

Syntax

NonUniqueKeys: IRdsNonUniqueKeys;

Description

The NonUniqueKeys property returns a collection of MDM dictionary non-unique keys.

Comments

Use the IRdsDictionary.UniqueKeys property to get collection of MDM dictionary unique keys.

Example

Executing the example requires the MDM repository with the NSI_1 identifier that contains an MDM dictionary with the DICT_1 identifier.

Add links to the Metabase, Rds, Dal system assemblies.

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Dict: IRdsDictionary;
    Attrs: IRdsAttributes;
    Attr: IRdsAttribute;
    Keys: IRdsNonUniqueKeys;
    Key: IRdsNonUniqueKey;
Begin
    MB := MetabaseClass.Active;
    MObj := MB.ItemByIdNamespace("DICT_1", MB.ItemById("NSI_1").Key).Edit;
    Dict := MObj As IRdsDictionary;
    // Create new attribute
    Attrs := Dict.Attributes;
    Keys := Dict.NonUniqueKeys;
    Attr := Attrs.Add;
    Attr.DataType := DbDataType.String;
    Attr.Id := "GosNomer";
    Attr.Name := "State number";
    // Create non-unique key
    Key := Keys.Add;
    Key.Id := "Index_1";
    Key.Name := "Index 1";
    Key.Contains(Attr) := True;
    // Save changes
    (Key.Dictionary As IMetabaseObject).Save;
End Sub UserProc;

After executing the example a custom attribute is created in the MDM dictionary. An MDM dictionary non-unique key is created by this attribute.

See also:

IRdsDictionary