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:
Post a Comment