IRdsCompoundDictionarySource.Source

Синтаксис

Source: IRdsDictionary;

Описание

Свойство Source определяет справочник НСИ, используемый в качестве источника данных для данного составного справочника.

Пример

Для выполнения примера предполагается наличие репозитория НСИ - "NSI_1". В данном репозитории содержится два справочника: 1) обычный справочник НСИ с идентификатором "Dict_1"; 2) составной справочник НСИ с идентификатором "CompDict_1".

Sub Main;

Var

MB: IMetabase;

MObj: IMetabaseObject;

Dict: IRdsDictionary;

CompDict: IRdsCompoundDictionary;

CompSources: IRdsCompoundDictionarySources;

CompSource: IRdsCompoundDictionarySource;

Begin

MB := MetabaseClass.Active;

MObj := MB.ItemByIdNamespace("CompDict_1", MB.ItemById("NSI_1").Key).Edit;

Dict := MB.ItemByIdNamespace("Dict_1", MB.ItemById("NSI_1").Key).Bind As IRdsDictionary;

CompDict := MObj As IRdsCompoundDictionary;

CompSources := CompDict.Sources;

CompSource := CompSources.Add;

CompSource.Id := "New_Source";

CompSource.Name := "Новый справочник-источник";

CompSource.Source := Dict;

MObj.Save;

End Sub Main;

После выполнения примера в составной справочник будет добавлен новый источник. В качестве источника данных выступает справочник НСИ "Dict_1".

См. также:

IRdsCompoundDictionarySource