IncludeWeek: Boolean;
The IncludeWeek property determines whether the Weeks level is included into calendar dictionary.
Sub Main;
Var
MB: IMetabase;
CrInfo: IMetabaseObjectCreateInfo;
MObj: IMetabaseObject;
CalDim: ICalendarDimension;
Begin
MB := MetabaseClass.Active;
CrInfo := MB.CreateCreateInfo;
CrInfo.ClassID := MetabaseObjectClass.KE_CLASS_CLNDIM;
CrInfo.Id := "CALENDAR_DIM";
CrInfo.Name := "Calendar dictionary";
CrInfo.Parent := MB.Root;
MObj := MB.CreateObject(CrInfo).Edit;
CalDim := MObj As ICalendarDimension;
CalDim.Hierarchy := 3;
CalDim.IncludeWeek := True;
MObj.Save;
End Sub Main;
After executing the example a calendar dictionary with the CALENDAR_DIM identifier is created in repository root. This dictionary will have only the Weeks level.
See also: