IRubricatorFactorIO.CalendarSubstituteKey

Синтаксис Fore

CalendarSubstituteKey: Integer;

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

CalendarSubstituteKey: uinteger;

Описание

Свойство CalendarSubstituteKey определяет ключ календарного справочника, используемого для извлечения/сохранения данных.

Пример Fore

Для выполнения примера в репозитории предполагается наличие базы данных временных рядов с идентификатором «FC_COMM» и календарного справочника с идентификатором «CALENDARSETUP». Добавьте ссылки на системные сборки «Metabase», «Dimensions», «Cubes», «Matrix».

Sub UserProc;
Var
    mb: IMetabase;
    Inst: IRubricatorInstance;
    Cub: ICubeInstance;
    Dest: ICubeInstanceDestination;
    Exe: ICubeInstanceDestinationExecutor;
    Mat: IMatrix;
    FactorIO: IRubricatorFactorIO;
    CalendarObj: IMetabaseObjectDescriptor;
Begin
    mb := MetabaseClass.Active;
    Inst := mb.ItemById("FC_COMM").Open(Null) As IRubricatorInstance;
    Cub := Inst As ICubeInstance;
    Dest := Cub.Destinations.DefaultDestination;
    Exe := Dest.CreateExecutor;
    FactorIO := Exe As IRubricatorFactorIO;
    CalendarObj := mb.ItemById("CALENDARSETUP");
    FactorIO.CalendarSubstituteKey := CalendarObj.Key;
    Exe.PrepareExecute(Null);
    Exe.PerformExecute;
    Mat := Exe.Matrix;
End Sub UserProc;

После выполнения примера в переменной «Mat» будет находиться матрица, содержащая данные базы данных временных рядов «FC_COMM». Данные базы будут извлечены по параметрам календаря «CALENDARSETUP».

Пример Fore.NET

Imports Prognoz.Platform.Interop.Dimensions;
Imports Prognoz.Platform.Interop.Cubes;
Imports Prognoz.Platform.Interop.Matrix;
…
Public Shared Sub Main(Params: StartParams);
Var
    mb: IMetabase;
    Inst: IRubricatorInstance;
    Cub: ICubeInstance;
    Dest: ICubeInstanceDestination;
    Exe: ICubeInstanceDestinationExecutor;
    Mat: IMatrix;
    FactorIO: IRubricatorFactorIO;
    CalendarObj: IMetabaseObjectDescriptor;
Begin
    mb := Params.Metabase;
    Inst := mb.ItemById["FC_COMM_26"].Open(Null) As IRubricatorInstance;
    Cub := Inst As ICubeInstance;
    Dest := Cub.Destinations.DefaultDestination;
    Exe := Dest.CreateExecutor();
    FactorIO := Exe As IRubricatorFactorIO;
    CalendarObj := mb.ItemById["CALENDARSETUP"];
    FactorIO.CalendarSubstituteKey := CalendarObj.Key;
    Exe.PrepareExecute(Null);
    Exe.PerformExecute(False);
    Mat := Exe.Matrix;
End Sub;

См. также: