IRubricatorFactData.IsEmpty

Синтаксис

IsEmpty: Boolean;

Описание

Свойство IsEmpty определяет, установлен ли для временного ряда признак пустоты.

Комментарии

Признак пустоты временного ряда зависит от значения атрибута показателей «Пустой» (идентификатор - «EMPT»).

Если у временного ряда все значения в БД на актуальную ревизию являются пустыми (отсутствуют или равны Null), то у него устанавливается признак пустоты. Новый временной ряд считается пустым, пока в него не сохранили данные.

Для обновления признака пустоты временных рядов используйте метод IRubricatorInstance.RegenerateEmpty.

Пример

Для выполнения примера предполагается наличие базы данных временных рядов с идентификатором «FC_IS_EMPTY». Добавьте ссылки на системные сборки «Metabase», «Cubes».

Sub UserProc;
Var
    mb: IMetabase;
    RubObj: IMetabaseObject;
    Rubr: IRubricator;
    RubrInst: IRubricatorInstance;
    FactsLookup: IRubricatorFactsLookup;
    LookupRes: Array Of Integer;
    Key: integer;
    FactD: IRubricatorFactData;
Begin
    mb := MetabaseClass.Active;
    RubObj := mb.ItemById("FC_IS_EMPTY").Edit;
    Rubr := RubObj As IRubricator;
    If Not Rubr.HasEmptyAttribute Then
        Rubr.HasEmptyAttribute := True;
        RubObj.Save;
    End If;
    RubrInst := RubObj.Open(Null) As IRubricatorInstance;
    RubrInst.RegenerateEmpty(Null);
    FactsLookup := RubrInst.CreateFactsLookup;
   FactsLookup.WhereIsDeleted := TriState.OnOption;
    LookupRes := FactsLookup.LookupFactors;
    If LookupRes <> Null Then
        For Each Key In LookupRes Do
            FactD := RubrInst.GetFactData(Key);
            Debug.WriteLine("Ключ = " + Key.ToString + " Пустой = " + FactD.IsEmpty.ToString);
        End For;
    Else
        Debug.WriteLine("Показатели не найдены");
    End If;
End Sub UserProc;

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

См. также:

IRubricator