IRubricatorAutoPeriodDate.ShiftDateInwardsPeriodLevel

Синтаксис Fore

ShiftDateInwardsPeriodLevel: DimCalendarLevel;

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

ShiftDateInwardsPeriodLevel: Prognoz.Platform.Interop.Dimensions.DimCalendarLevel;

Описание

Свойство ShiftDateInwardsPeriodLevel определяет уровень календарной динамики, для которого проверяется: выходит ли дата за границы периода.

Пример Fore

Для выполнения примера в репозитории предполагается наличие БД временных рядов с идентификатором «TS_DB», содержащим объект импорта с идентификатором «OBJ_IMP». Объект импорта предназначен для импорта недельных данных.

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

Sub UserProc;
Var
    MB: IMetabase;
    RubKey: Integer;
    Obj: IMetabaseObject;
    ImportRequestDef: IImportRequestDefinition;
    ImpParams: IImportRequestProviderParams;
    ImpPeriod: IRubricatorAutoPeriod;
    sDate, eDate: IRubricatorAutoPeriodDate;
Begin
// Получаем объект импорта
    MB := MetabaseClass.Active;
    RubKey := MB.GetObjectKeyById("TS_DB");
    Obj := MB.ItemByIdNamespace("OBJ_IMP", RubKey).Edit;
    ImportRequestDef := Obj As IImportRequestDefinition;
// Редактируем параметры импорта
    ImpParams := ImportRequestDef.ProviderParams;
    ImpPeriod := ImpParams.AutoPeriod;
// Задаем параметры начала импорта данных
    sDate := ImpPeriod.Start;
    sDate.AutoDateType := RubricatorAutoDateType.Exact;
    sDate.ExactDate := DateTime.ComposeDay(2000, 01, 03);
    sDate.ShiftDateInwardsPeriod := True;
    sDate.ShiftDateInwardsPeriodLevel := DimCalendarLevel.Week;
// Задаем параметры окончания импорта данных
    eDate := ImpPeriod.End_;
    eDate.AutoDateType := RubricatorAutoDateType.Exact;
    eDate.ExactDate := DateTime.ComposeDay(2000, 12, 31);
    eDate.ShiftDateInwardsPeriod := True;
    eDate.ShiftDateInwardsPeriodLevel := DimCalendarLevel.Week;
// Сохраняем изменения
    Obj.Save;
End Sub UserProc;

Результат выполнения примера: при импорте данных с помощью объекта «OBJ_IMP» даты начала и окончания импорта будут смещены на одну точку внутрь периода, если они выходят за границы периода импорта.

Пример Fore.NET

Imports Prognoz.Platform.Interop.Cubes;
Imports Prognoz.Platform.Interop.Dimensions;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    RubKey: uinteger;
    Obj: IMetabaseObject;
    ImportRequestDef: IImportRequestDefinition;
    ImpParams: IImportRequestProviderParams;
    ImpPeriod: IRubricatorAutoPeriod;
    sDate, eDate: IRubricatorAutoPeriodDate;
Begin
// Получаем объект импорта
    MB := Params.Metabase;
    RubKey := MB.GetObjectKeyById("TS_DB");
    Obj := MB.ItemByIdNamespace["OBJ_IMP", RubKey].Edit();
    ImportRequestDef := Obj As IImportRequestDefinition;
// Редактируем параметры импорта
    ImpParams := ImportRequestDef.ProviderParams;
    ImpPeriod := ImpParams.AutoPeriod;
// Задаем параметры начала импорта данных
    sDate := ImpPeriod.Start;
    sDate.AutoDateType := RubricatorAutoDateType.radtExact;
    sDate.ExactDate := DateTime.Parse("2000.01.03");
    sDate.ShiftDateInwardsPeriod := True;
    sDate.ShiftDateInwardsPeriodLevel := DimCalendarLevel.dclWeek;
// Задаем параметры окончания импорта данных
    eDate := ImpPeriod.@End;
    eDate.AutoDateType := RubricatorAutoDateType.radtExact;
    eDate.ExactDate := DateTime.Parse("2000.12.31");
    eDate.ShiftDateInwardsPeriod := True;
    eDate.ShiftDateInwardsPeriodLevel := DimCalendarLevel.dclWeek;
// Сохраняем изменения
    Obj.Save();
End Sub;

См. также: