IRdsDictionaryFilterConditions.Assign

Синтаксис Fore

Assign(Value: IRdsDictionaryFilterConditions);

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

Assign(Value: Prognoz.Platform.Interop.Rds.IRdsDictionaryFilterConditions)

Параметры

Value. Коллекция фильтров, параметры которой будут скопированы.

Описание

Метод Assign выполняет копирование параметров коллекции фильтров.

Пример Fore

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

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

Sub UserProc;
Var
    mb: IMetabase;
    RdrRepoDescr: IMetabaseObjectDescriptor;
    RdsDictObj: IMetabaseObject;
    DictInst: IRdsDictionaryInstance;
    DictBatch: IRdsDictionaryBatch;
    DelBatch: IRdsDictionaryBatchDelete;
    BatchFilters: IRdsDictionaryFilterConditions;
    FilterCopy: IRdsDictionaryFilterConditions;
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;
    BatchFilters.Assign(FilterCopy);
    DelBatch.Execute;
    RdsDictObj.Save;
End Sub UserProc;

После выполнения примера будет создан пакет для удаления элементов, параметры фильтрации которого будут скопированы из объекта «FilterCopy». Затем пакет будет выполнен.

См. также: