ILanerSerie.UserName

Синтаксис Fore

UserName: Boolean;

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

UserName: boolean;

Описание

Свойство UserName определяет, задал ли пользователь наименование временного ряда.

Комментарии

Допустимые значения:

Пример Fore

Для выполнения примера в репозитории предполагается наличие рабочей книги с идентификатором «WBK».

Добавьте ссылки на системные сборки «Express», «Laner», «Metabase».

Sub UserProc;
Var
    mb: Imetabase;
    Eax: IEaxAnalyzer;
    Laner: ILaner;
    Series: ILanerSeries;
    i: Integer;
    Serie: ILanerSerie;
Begin
    mb := MetabaseClass.Active;
    Eax := mb.ItemById("WBK").Bind As IEaxAnalyzer;
    Laner := Eax.Laner;
    Series := Laner.Series;
    Debug.WriteLine("Наименования рядов:");
    For i := 0 To Series.Count - 1 Do
        Serie := Series.Item(i);
        Debug.Write(Serie.Name);
        If Serie.UserName Then
            Debug.WriteLine(" (задано пользователем)");
        Else
            Debug.WriteLine(" (сгенерировано автоматически)");
        End If;
    End For;
End Sub UserProc;

Результат выполнения примера: в окно консоли выведены наименования рядов рабочей книги и способ создания наименования.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.Express;
Imports Prognoz.Platform.Interop.Laner;

Public Shared Sub Main(Params: StartParams);
Var
    mb: Imetabase;
    Eax: IEaxAnalyzer;
    Laner: ILaner;
    Series: ILanerSeries;
    i: Integer;
    Serie: ILanerSerie;
Begin
    mb := Params.Metabase;
    Eax := mb.ItemById["WBK"].Bind() As IEaxAnalyzer;
    Laner := Eax.Laner;
    Series := Laner.Series;
    System.Diagnostics.Debug.WriteLine("Наименования рядов:");
    For i := 0 To Series.Count - 1 Do
        Serie := Series.Item[i];
        System.Diagnostics.Debug.Write(Serie.Name);
        If Serie.UserName Then
            System.Diagnostics.Debug.WriteLine(" (задано пользователем)");
        Else
            System.Diagnostics.Debug.WriteLine(" (сгенерировано автоматически)");
        End If;
    End For;
End Sub;

См. также:

ILanerSerie