IRdsCompoundDictionary.Sources

Syntax

Sources: IRdsCompoundDictionarySources;

Description

The Sources property returns a collection of dictionaries that are data sources for this composite MDM dictionary.

Example

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

Sub UserProc;
Var
    MB: IMetabase;
    NSI: IMetabaseObjectDescriptor;
    CrInfo: IMetabaseObjectCreateInfo;
    Dict: IRdsDictionary;
    CompDict: IRdsCompoundDictionary;
    CompSources: IRdsCompoundDictionarySources;
    CompSource: IRdsCompoundDictionarySource;
Begin
    MB := MetabaseClass.Active;
    NSI := MB.ItemById("NSI_1");
    Dict := MB.ItemByIdNamespace("Dict_1", NSI.Key).Bind As IRdsDictionary;
    CrInfo := MB.CreateCreateInfo;
    CrInfo.ClassID := MetabaseObjectClass.KE_CLASS_RDS_COMPDICTIONARY;
    CrInfo.Id := "CompDict_1";
    CrInfo.Name := "Composite MDM dictionary";
    CrInfo.Parent := NSI;
    CompDict := MB.CreateObject(CrInfo).Edit As IRdsCompoundDictionary;
    CompDict.CheckDublicates := True;
    CompSources := CompDict.Sources;
    CompSource := CompSources.Add;
    CompSource.Id := "New_Source";
    CompSource.Name := "New source dictionary";
    CompSource.Source := Dict;
    (CompDict As IMetabaseObject).Save;
End Sub UserProc;

After executing the example a new composite MDM dictionary is created. One source dictionary is added into a composite dictionary. It is prohibited to add duplicates from sources into composite dictionary.

See also:

IRdsCompoundDictionary