UserName: Boolean;
UserName: boolean;
Свойство UserName определяет, задал ли пользователь наименование временного ряда.
Допустимые значения:
True. Наименование временного ряда задано пользователем;
False. Наименование временного ряда сгенерировано автоматически.
Для выполнения примера в репозитории предполагается наличие рабочей книги с идентификатором «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.
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;
См. также: