Thursday, 20 May 2010

Janus Scheduler Multiple Owners

It is possible in Janus Scheduler to have multiple owners, as shown in this example.
To achieve this:

Dim owner1 As New ScheduleAppointmentOwner
owner1.Key = "Studio 1"
owner1.Text = "Studio 1"
Me.Schedule1.Owners.Add(owner1)

Dim owner2 As New ScheduleAppointmentOwner
owner2.Key = "Studio 2"
owner2.Text = "Studio 2"
Me.Schedule1.Owners.Add(owner2)

Dim owner3 As New ScheduleAppointmentOwner
owner3.Key = "Studio 3"
owner3.Text = "Studio 3"
Me.Schedule1.Owners.Add(owner3)



Populating a schedule with multiple owners:

Private Sub SchedTest_Load(ByVal sender As Object, ByVale As System.EventArgs) Handles Me.Load

CreateAppointmentOwners()

Me.Jtktf01TableAdapter1.FillByAssigned(Me.TaC20081.jtktf01)

With Schedule1

.Date = "04/24/2008"

.View = Janus.Windows.Schedule.ScheduleView.DayView

.SetDataBinding(TaC20081, "jtktf01")

.OwnerMember = "grpcode"

.StartTimeMember = "schdate"

.EndTimeMember = "schdate"

.TextMember = "invno"

End With

End Sub

No comments: