Calendar - ApplyToCalendar

Print Page | Close Window

ApplyToCalendar - Problem

Printed From: Codejock Forums
Category: Codejock Products
Forum Name: Calendar
Forum Description: Topics Related to Codejock Calendar
URL: http://forum.codejock.com/forum_posts.asp?TID=19216
Printed Date: 27 April 2024 at 8:50pm
Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com

Topic: ApplyToCalendar - Problem

Posted By: Aleksandar
Subject: ApplyToCalendar - Problem
Date 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.