ICalendarDimension.BlockInUse

Syntax

BlockInUse(LevelIndex: Integer; BlockIndex: Integer): Boolean;

Parameters

LevelIndex — level index.

BlockIndex — block index.

Table: Indexes of calendar dictionary block.

Block index	Block name
0	Root.
1	Year.
2	Half-year.
3	Quarters.
4	Months.
5	Days.
6	Nine months.

Description

The BlockInUse property determines whether level block index of which is passed by the BlockIndex parameter is used on creating dictionary hierarchy, depending on the current dictionary hierarchy. This property is used if the 1st or 2nd type hierarchy is set for the dictionary. Hierarchy type is determined in the Hierarchy property.

Example

Executing the example assumes that the repository contains a calendar dictionary with the CALENDAR_DIM identifier.

Sub Main;

Var

MB: IMetabase;

MObj: IMetabaseObject;

CalDim: ICalendarDimension;

i, j: Integer;

Begin

MB:=MetabaseClass.Active;

MObj:=MB.ItemById("CALENDAR_DIM").Edit;

CalDim:=MObj As ICalendarDimension;

For i:=0 To CalDim.LevelCount-1 Do

j:=CalDim.LevelIndex(i);

CalDim.LevelInUse(j):=True;

If (j=6) Or (j=7) Then

CalDim.BlockInUse(j,2):=True;

End If;

End For;

MObj.Save;

End Sub Main;

After executing the example all levels are enabled in the calendar dictionary. If hierarchy of the 1st or 2nd type is set in the dictionary, the Half-years level is enabled.