ICalendarDimension.CompareLevels

Синтаксис Fore

CompareLevels(Level1: DimCalendarLevel; Level2: DimCalendarLevel): CalendarCompareLevelsResult;

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

CompareLevels(Level1: Prognoz.Platform.Interop.Dimensions.DimCalendarLevel;Level2: Prognoz.Platform.Interop.Dimensions.DimCalendarLevel): Prognoz.Platform.Interop.Dimensions.CalendarCompareLevelsResult;

Параметры

Level1, Level2. Уровни календаря.

Описание

Метод CompareLevels используется для определения результата сравнения уровней календаря.

Пример Fore

Для выполнения примера предполагается наличие календарного справочника с идентификатором «D_CALENDAR» с настроенными уровнями календаря.

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

Sub UserProc;
Var
    mb: IMetabase;
    mbObj: IMetabaseObject;
    Cal : ICalendarDimension;
    Res : CalendarCompareLevelsResult;
    StrRes: String;
Begin
    mb := MetabaseClass.Active;
    mbObj :=mb.ItemById("D_CALENDAR").Bind;
    Cal := mbObj As ICalendarDimension;
    Res := Cal.CompareLevels(DimCalendarLevel.Quarter,DimCalendarLevel.Month);
    StrRes:=(Res As Variant) As String;
    Select Case StrRes
            Case "-2": Debug.WriteLine("Non-applicable");
            Case "-1": Debug.WriteLine("Less");
            Case "0": Debug.WriteLine("Equal");
            Case "1": Debug.WriteLine("Greater");
    End Select;
End Sub UserProc;

После выполнения примера в окно консоли будет выведен результат сравнения указанных уровней календаря.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.Dimensions;
…
Public Shared Sub Main(Params: StartParams);
Var
    mb: IMetabase;
    mbObj: IMetabaseObject;
    Cal : ICalendarDimension;
    Res : CalendarCompareLevelsResult;
    StrRes: String;
Begin
    mb := Params.Metabase;
    mbObj :=mb.ItemById["D_CALENDAR"].Bind();
    Cal := mbObj As ICalendarDimension;
    Res := Cal.CompareLevels(DimCalendarLevel.dclQuarter,DimCalendarLevel.dclMonth);
    StrRes:=(Res As object) As String;
    Select Case StrRes
            Case "-2": System.Diagnostics.Debug.WriteLine("Non-applicable");
            Case "-1": System.Diagnostics.Debug.WriteLine("Less");
            Case "0": System.Diagnostics.Debug.WriteLine("Equal");
            Case "1": System.Diagnostics.Debug.WriteLine("Greater");
    End Select;
End Sub;

См. также:

ICalendarDimension