IMetaDictionaryLookup.DeleteMarkAttribute

Синтаксис

DeleteMarkAttribute: String;

Описание

Свойство DeleteMarkAttribute определяет атрибут, содержащий признак того, что запись удалена.

Пример

Для выполнения примера предполагается наличие в репозитории базы данных временных рядов с идентификатором OBJ_FC.

Добавьте ссылки на системные сборки: Metabase, Cube, Rds, Dimensions.

Sub UserProc;
Var
    MB: IMetabase;
    RubDesc: IMetabaseObjectDescriptor;
    RubrIn: IRubricatorInstance;
    DictInst: IMetaDictionaryInstance;
    MetaDLookup: IMetaDictionaryLookup;
    Atts: IMetaAttributes;
    DeleteMark: String;
    i: Integer;
    Res: Array Of Integer;
Begin
    MB := MetabaseClass.Active;
    RubDesc := MB.ItemById("OBJ_FC");
    RubrIn := RubDesc.Open(Null) As IRubricatorInstance;
    DictInst := RubrIn.Facts;
    MetaDLookup := DictInst.CreateLookup("");
    Atts := DictInst.Dictionary.Attributes;
    DeleteMark := Atts.FindByTag(MetaAttributeTag.DeleteMark).Id;
    MetaDLookup.DeleteMarkAttribute := DeleteMark;
    MetaDLookup.WhereIsDeleted := TriState.OnOption;
    i := MetaDLookup.LookupKeys("FACTOR").Length;
    Res := New Integer[i];
    Res := MetaDLookup.LookupKeys("FACTOR");
    For i := 0 To Res.Length - 1 Do
        Debug.WriteLine(Res[i].ToString);
    End For;
End Sub UserProc;

После выполнения примера будет определен атрибут, содержащий признак того, что запись удалена. Затем будет произведен поиск всех удаленных показателей, в окно консоли будут выведены их ключи.

См. также:

IMetaDictionaryLookup