multiple schedules

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

   working with some test code in visual foxpro trying to add an appointment to a schedule.The following gives me the two columns in the dayview but the appointment doesn't show. What am i missing?

loCalendar = THISFORM.olecontrol1

loRess = CREATEOBJECT("codejock.calendarresources.15.1.3")
loSchedules = loCalendar.dataprovider.schedules

loSchedules.addnewschedule("Fred")
lox = CREATEOBJECT("codejock.calendarresource.15.1.3")
lox.NAME = "Fred"
lox.ScheduleIDs.ADD(loSchedules.ITEM(loSchedules.COUNT-1).ID)
loRess.ADD(lox)

loSchedules.addnewschedule("Bert")
lox = CREATEOBJECT("codejock.calendarresource.15.1.3")
lox.NAME = "Bert"
lox.ScheduleIDs.ADD(loSchedules.ITEM(loSchedules.COUNT-1).ID)
loRess.ADD(lox)

loNewEvent = loCalendar.dataprovider.CreateEvent()
loNewEvent.scheduleid = loSchedules.ITEM(1).ID
loNewEvent.starttime = DATETIME()
loNewEvent.endtime = DATETIME()+(30*60)
loNewEvent.subject = "testing"
loCalendar.dataprovider.AddEvent(loNewEvent)
loCalendar.SetMultipleResources(loRess)
loCalendar.populate()
loCalendar.ActiveView.ShowDay(DATE())

thanks

nigel

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
nigelgomm Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 25 June 2012 Location: Canada Status: Offline Points: 3	Post Options Post Reply Quote nigelgomm Report Post Thanks(0) Quote Reply Topic: multiple schedules Posted: 07 July 2014 at 10:35am
	working with some test code in visual foxpro trying to add an appointment to a schedule. The following gives me the two columns in the dayview but the appointment doesn't show. What am i missing? loCalendar = THISFORM.olecontrol1 loRess = CREATEOBJECT("codejock.calendarresources.15.1.3") loSchedules = loCalendar.dataprovider.schedules loSchedules.addnewschedule("Fred") lox = CREATEOBJECT("codejock.calendarresource.15.1.3") lox.NAME = "Fred" lox.ScheduleIDs.ADD(loSchedules.ITEM(loSchedules.COUNT-1).ID) loRess.ADD(lox) loSchedules.addnewschedule("Bert") lox = CREATEOBJECT("codejock.calendarresource.15.1.3") lox.NAME = "Bert" lox.ScheduleIDs.ADD(loSchedules.ITEM(loSchedules.COUNT-1).ID) loRess.ADD(lox) loNewEvent = loCalendar.dataprovider.CreateEvent() loNewEvent.scheduleid = loSchedules.ITEM(1).ID loNewEvent.starttime = DATETIME() loNewEvent.endtime = DATETIME()+(30*60) loNewEvent.subject = "testing" loCalendar.dataprovider.AddEvent(loNewEvent) loCalendar.SetMultipleResources(loRess) loCalendar.populate() loCalendar.ActiveView.ShowDay(DATE()) thanks nigel