AddCalculateSerieAsLocal(
SerieName: String;
Level: DimCalendarLevel;
[ScenarioKey: Integer = -1;]
[Index: Integer = -1]
): ILanerCalculateSerie;
AddCalculateSerieAsLocal(
SerieName: string;
Level: Prognoz.Platform.Interop.Dimensions.DimCalendarLevel;
ScenarioKey: integer;
Index: integer
): Prognoz.Platform.Interop.Laner.ILanerCalculateSerie;
SerieName. The name of the series to be added.
Level. The calendar frequency of the series to be added.
ScenarioKey. The scenario of adding the series.
Index. Index of the position, into which the series must be added.
The AddCalculateSerieAsLocal method adds a new data series.
If the ScenarioKey parameter has the -1 value, a series is created by the Fact scenario.
If the Index parameter has the -1 value, a series is added to the end of the series collection.
Executing the example requires a workbook with the WORKBOOK_SERIES identifier that contains several series.
Add links to the Dimensions, Express, Laner and Metabase system assemblies.
Sub UserProc;
Var
mb: IMetabase;
WbkObj: IMetabaseObject;
EaxAn: IEaxAnalyzer;
Laner: ILaner;
Series: ILanerSeries;
SerieCalc: ILanerCalculateSerie;
Begin
// Get workbook
mb := MetabaseClass.Active;
WbkObj := mb.ItemById("WORKBOOK_SERIES").Edit;
EaxAn := WbkObj As IEaxAnalyzer;
Laner := EaxAn.Laner;
// Get workbook series
Series := Laner.Series;
// Add empty series
SerieCalc := Series.AddCalculateSerieAsLocal("New series", DimCalendarLevel.Year, -1, 1);
// Save changes
WbkObj.Save;
End Sub UserProc
After executing this example, a new series that contains no data is added to the workbook after the first series. The mandatory attributes of this series are not determined.
The requirements and result of the Fore.NET example execution match with those in the Fore example.
Imports Prognoz.Platform.Interop.Dimensions;
Imports Prognoz.Platform.Interop.Express;
Imports Prognoz.Platform.Interop.Laner;
…
Public Shared Sub Main(Params: StartParams);
Var
mb: IMetabase;
WbkObj: IMetabaseObject;
EaxAn: IEaxAnalyzer;
Laner: ILaner;
Series: ILanerSeries;
SerieCalc: ILanerCalculateSerie;
Begin
// Get workbook
mb := Params.Metabase;
WbkObj := mb.ItemById["WORKBOOK_SERIES"].Edit();
EaxAn := WbkObj As IEaxAnalyzer;
Laner := EaxAn.Laner;
// Get workbook series
Series := Laner.Series;
// Add empty series
SerieCalc := Series.AddCalculateSerieAsLocal("New series", DimCalendarLevel.dclYear, -1 As uinteger, 1);
// Save changes
WbkObj.Save();
End Sub;
See also: