Sources: IRdsCompoundDictionarySources;
Свойство Sources возвращает коллекцию справочников, являющихся источниками данных для данного составного справочника НСИ.
Для выполнения примера предполагается наличие репозитория НСИ - "NSI_1", содержащего справочник НСИ с идентификатором "Dict_1".
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 := "Составной справочник НСИ";
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 := "Новый справочник-источник";
CompSource.Source := Dict;
(CompDict As IMetabaseObject).Save;
End Sub UserProc;
После выполнения примера будет создан новый составной справочник НСИ. В составной справочник будет добавлен один справочник-источник данных. Добавление дубликатов из источников в составной справочник будет запрещено.
См. также: