IRdsDictionaryFilterConditions.AddAttribute

Синтаксис Fore

AddAttribute(AttributeId: String): IRdsAttribute;

Синтаксис Fore.NET

AddAttribute(AttributeId: string): Prognoz.Platform.Interop.Rds.IRdsAttribute;

Параметры

AttributeId. Идентификатор атрибута справочника НСИ.

Описание

Метод AddAttribute добавляет фильтр в коллекцию по указанному идентификатору атрибута.

AddAttribute после выполнения возвращает добавленный фильтр. Фильтр добавляется в конец коллекции, при этом значение свойства IRdsDictionaryFilterConditions.Count увеличивается на единицу.

Пример Fore

Для выполнения примера предполагается наличие репозитория НСИ с идентификатором «RDS_REPO», содержащим неверсионный справочник НСИ с идентификатором «DICT». Справочник содержит атрибут логического типа с идентификатором «ACTUAL».

Также необходимо добавить ссылки на системные сборки «Metabase», «Rds».

Sub UserProc;
Var
    mb: IMetabase;
    RdrRepoDescr: IMetabaseObjectDescriptor;
    RdsDictObj: IMetabaseObject;
    DictInst: IRdsDictionaryInstance;
    DictBatch: IRdsDictionaryBatch;
    DelBatch: IRdsDictionaryBatchDelete;
    BatchFilters: IRdsDictionaryFilterConditions;
    Filter: IRdsDictionaryFilterCondition;
Begin
    mb := MetabaseClass.Active;
    RdrRepoDescr := mb.ItemById("RDS_REPO");
    RdsDictObj := mb.ItemByIdNamespace("DICT", RdrRepoDescr.Key).Edit;
    DictInst := RdsDictObj.Open(Null) As IRdsDictionaryInstance;
    DictBatch := DictInst.CreateBatch(RdsDictionaryBatchType.Delete);
    DelBatch := DictBatch As IRdsDictionaryBatchDelete;
    BatchFilters := DelBatch.Filter;
    Filter := BatchFilters.AddAttribute("ACTUAL");
    Filter.Value := False;
    DelBatch.Execute;
    RdsDictObj.Save;
End Sub UserProc;

После выполнения примера будет создан пакет, предназначенный для удаления элементов. Для пакета будет создан фильтр по значению атрибута «ACTUAL». Затем пакет будет выполнен.

См. также: