Schedules with custom data provider

In my case (ms Foxpro) I can see 2 different options :

 I call .dataprovider.Create() before starts and I use createevent() instead createeventEx().

I don’t know if helps, but, here is the code ...

This.xtremecalendar.dataprovider.Create()   && I used in INIT event

This.xtremecalendar.dataprovider.removeallevents()

This.xtremecalendar.populate()

Select (ccursor)

Scan

      oevent = This.xtremecalendar.Object.dataprovider.createevent()

      with oevent

            .starttime        = starttime

            .endtime          = endtime

            .subject          = Alltrim(subject)

            .body             = body

            .Label          = Label

            .busystatus     = busystatus

            .importance     = importance

            .privateflag    = Private

            .meetingflag    = meeting

            .customproperties.property('ukey') = ukey

      endwith

      This.xtremecalendar.Object.dataprovider.addevent( oevent )

Endscan

Ops :)    In this case I think it’s a little more complicated:

Again talking in FOXPRO way :

1 . You need to create a CalendarResources collection :

calResourceS = createobject("Codejock.CalendarResourceS.11.2.2")

2. Create a calendar Resource object for each Schedule that you want

Sche1 = createobject("Codejock.CalendarResource.11.2.2")

and for each Schedule created, set some properties :

Sche1.name = “title for schedule1”

Sche1.setDataProvider2(“memory”, false)
 dataProvider1 = sche1.dataProvider 
 dataProvider1.create()

Sche1.ScheduleIDs.Add(nID1) ‘ One for each ID for Schedule
Sche1.ScheduleIDs.Add(nID2) ‘ One for each ID for Schedule

 
Sche2 = createobject("Codejock.CalendarResource.11.2.2")

Sche2.name = “title for schedule1”
Sche2.setDataProvider2(“memory”, false)
 dataProvider2 = sche1.dataProvider 
 dataProvider2.create()

Sche1.ScheduleIDs.Add(nID3) ‘ One for each ID for Schedule

Sche3…Sche4…

3.  Add the schedule to Schedule collections
 CalResourceS.Add( Sche1 )
 CalResourceS.Add( Sche2 )
 CalResourceS.Add( ScheN )

4 Inform the control that you want multiples resource :
 .SetMultipleResources( CalResourceS )

5 Each event must be populated in the righ dataprovider

If a then
 dataP =.MultipleResources.Item(0).DataProvider
else
 dataP =.MultipleResources.Item(1).DataProvider
end if

Set objEvent = dataP.CreateEvent()
…
…
dataP.AddEvent objEvent

Ok That worked! For anyone who is interrested, the working code: