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. Наименование добавляемого ряда;
Level. Календарная динамика добавляемого ряда;
ScenarioKey. Сценарий, по которому добавляется ряд;
Index. Индекс позиции, в которую необходимо добавить ряд.
Метод AddCalculateSerieAsLocal добавляет новый ряд данных.
Если параметр ScenarioKey имеет значение «-1», то ряд создается по сценарию «Факт».
Если параметр Index имеет значение «-1», то ряд добавляется в конец коллекции рядов.
Для выполнения примера в репозитории предполагается наличие рабочей книги с идентификатором «WORKBOOK_SERIES», содержащей несколько рядов.
Добавьте ссылки на системные сборки: Dimensions, Express, Laner, Metabase.
Sub UserProc;
Var
mb: IMetabase;
WbkObj: IMetabaseObject;
EaxAn: IEaxAnalyzer;
Laner: ILaner;
Series: ILanerSeries;
SerieCalc: ILanerCalculateSerie;
Begin
// Получаем рабочую книгу
mb := MetabaseClass.Active;
WbkObj := mb.ItemById("WORKBOOK_SERIES").Edit;
EaxAn := WbkObj As IEaxAnalyzer;
Laner := EaxAn.Laner;
// Получаем ряды рабочей книги
Series := Laner.Series;
// Добавляем пустой ряд
SerieCalc := Series.AddCalculateSerieAsLocal("Новый ряд", DimCalendarLevel.Year, -1, 1);
// Сохраняем изменения
WbkObj.Save;
End Sub UserProc
В результате выполнения примера в рабочую книгу после первого ряда будет добавлен новый ряд, который не содержит данных. Обязательные атрибуты данного ряда не будут определены.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
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
// Получаем рабочую книгу
mb := Params.Metabase;
WbkObj := mb.ItemById["WORKBOOK_SERIES"].Edit();
EaxAn := WbkObj As IEaxAnalyzer;
Laner := EaxAn.Laner;
// Получаем ряды рабочей книги
Series := Laner.Series;
// Добавляем пустой ряд
SerieCalc := Series.AddCalculateSerieAsLocal("Новый ряд", DimCalendarLevel.dclYear, -1 As uinteger, 1);
// Сохраняем изменения
WbkObj.Save();
End Sub;
См. также: