FirstDayOfWeek: DayOfWeekSet;
Свойство FirstDayOfWeek определяет первый день недели.
Sub UserProc;
Var
MB: IMetabase;
CrInfo: IMetabaseObjectCreateInfo;
ClnDim: ICalendarDimension;
WeekLvl: ICalendarWeekLevel;
Begin
MB := MetabaseClass.Active;
// Создание календарного справочника
CrInfo := MB.CreateCreateInfo;
CrInfo.ClassID := MetabaseObjectClass.KE_CLASS_CLNDIM;
CrInfo.Id := "CALENDAR_DIM";
CrInfo.Name := "Календарный справочник";
CrInfo.Parent := MB.Root;
ClnDim := MB.CreateObject(CrInfo).Edit As ICalendarDimension;
// Настройка параметров календарного справочника
ClnDim.Hierarchy := 3;
ClnDim.StartYear := 2015;
ClnDim.EndYear := 2016;
ClnDim.IncludeYears := True;
ClnDim.IncludeWeek := True;
ClnDim.IncludeDays := True;
WeekLvl := ClnDim.WeekLevel;
WeekLvl.FirstDayOfWeek := DayOfWeekSet.Sunday;
(ClnDim As IMetabaseObject).Save;
End Sub UserProc;
При выполнении примера в корневом каталоге репозитория будет создан календарный справочник с идентификатором «CALENDAR_DIM». В иерархии справочника будут присутствовать уровни «Годы», «Недели» и «Дни». Первым днем уровня «Недели» будет воскресение:
См. также: