ApplyToCalendar - Problem

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Hello to everybody,

I download ActiveX 2001 15.1.3 version and I want to make a Calendar in Multiple Schedules View.

I work in OpenEdge Enviroment.

I followed examples from Net, I mean I first Add 2 resources then 2 schedules and etc ...

This my source:

ASSIGN chCalendar   = chCtrlFrame:CalendarControl.   

chCalendarResourcesManager:AddResource('Peter',TRUE) .
chCalendarResourcesManager:AddResource('Aleks',TRUE) .

chCalendarResourcesManager:AddDataProvider ("",6).

chDataProvider = chCalendarResourcesManager:GetDataProvider("").
chSchedules = chDataProvider:Schedules.

chSchedules:AddNewSchedule("Peter").
chSchedules:AddNewSchedule("Aleks").
chDataProvider:Save().

chResource = chCalendarResourcesManager:Resource(0).
chResource:Resource:SetDataProvider(chDataProvider, false).

ASSIGN ScheduleId = chSchedules:ITEM(0):Id.
chResource:Resource:ScheduleIDs:Add(ScheduleId).
chResource:GenerateName = True.

ASSIGN ScheduleId = chSchedules:ITEM(1):Id.
chResource:Resource:ScheduleIDs:Add(ScheduleId).
chResource:GenerateName = True.

 chCalendarResourcesManager:ApplyToCalendar ( chCalendar ) . 

 And here I got error message: "The Parameter is Incorect"

Am I missing something or ?
Could Someone help me?

Thanks in advance.

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
Aleksandar Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 23 November 2011 Status: Offline Points: 2	Post Options Post Reply Quote Aleksandar Report Post Thanks(0) Quote Reply Topic: ApplyToCalendar - Problem Posted: 23 November 2011 at 6:57am
	Hello to everybody, I download ActiveX 2001 15.1.3 version and I want to make a Calendar in Multiple Schedules View. I work in OpenEdge Enviroment. I followed examples from Net, I mean I first Add 2 resources then 2 schedules and etc ... This my source: ASSIGN chCalendar = chCtrlFrame:CalendarControl. chCalendarResourcesManager:AddResource('Peter',TRUE) . chCalendarResourcesManager:AddResource('Aleks',TRUE) . chCalendarResourcesManager:AddDataProvider ("",6). chDataProvider = chCalendarResourcesManager:GetDataProvider(""). chSchedules = chDataProvider:Schedules. chSchedules:AddNewSchedule("Peter"). chSchedules:AddNewSchedule("Aleks"). chDataProvider:Save(). chResource = chCalendarResourcesManager:Resource(0). chResource:Resource:SetDataProvider(chDataProvider, false). ASSIGN ScheduleId = chSchedules:ITEM(0):Id. chResource:Resource:ScheduleIDs:Add(ScheduleId). chResource:GenerateName = True. ASSIGN ScheduleId = chSchedules:ITEM(1):Id. chResource:Resource:ScheduleIDs:Add(ScheduleId). chResource:GenerateName = True. chCalendarResourcesManager:ApplyToCalendar ( chCalendar ) . And here I got error message: "The Parameter is Incorect" Am I missing something or ? Could Someone help me? Thanks in advance.