Изменение границ периода отображения данных и порядка календаря

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

Подключите ссылки на следующие системные сборки:

Express;
Metabase (только для Fore).

Пример Fore

Sub UserProc;
Var
    MB: IMetabase;
    CrInfo: IMetabaseObjectCreateInfo;
    MObj: IMetabaseObject;
    Exp: IEaxAnalyzer;
    WB: ILaner;
    CalDim: ICalendarDimension;
Begin
    MB := MetabaseClass.Active;
    //Открываем рабочую книгу на редактирование
    MObj := MB.ItemById("OBJ123").Edit;
    Exp := MObj As IEaxAnalyzer;
    WB := Exp.Laner;
    //Изменение периода отображения календаря
    WB.StartDate := DateTime.Parse("1990.02.01");
    WB.EndDate := DateTime.Parse("2015.05.01");
    //Установим обратный порядок отображения календаря
    WB.ReverseOrder := True;
    MObj.Save;
End Sub UserProc;

После выполнения примера будет установлен новый период отображения данных - с 1 февраля 1990 по 1 мая 2015 года. Будет установлен обратный порядок отображения календаря.

Пример Fore.NET

Указанная процедура является точкой входа Main в модуле Program .NET-сборки. В данный модуль должны быть импортированы сборки Express, Metabase из системной сборки Prognoz.Platform.Interop.

Public Shared Sub Main(Params: StartParams);

Var
    MB: IMetabase;
    CrInfo: IMetabaseObjectCreateInfo;
    MObj: IMetabaseObject;
    Exp: IEaxAnalyzer;
    WB: ILaner;
Begin
    MB := Params.Metabase;
    //Открываем рабочую книгу на редактирование
    MObj := MB.ItemById["OBJ123"].Edit();
    Exp := MObj As IEaxAnalyzer;
    WB := Exp.Laner;
    //Изменение периода отображения календаря
    WB.StartDate := DateTime.Parse("1990.02.01");
    WB.EndDate := DateTime.Parse("2015.05.01");
    //Установим обратный порядок отображения календаря
    WB.ReverseOrder := True;
    MObj.Save();
End Sub;

Результат выполнения примера аналогичен результату примера на Fore.

См. также:

Примеры | ILaner