ISWaitList.PrivacyRole

Example

Display the number of the case wait lists loaded on the basis of the selected filter, the dates when they were opened and closed, the name of the privacy role.

Dim aFilter
Dim aCaseWaitList
Dim aCaseWaitLists
Dim aMessage

Set aFilter = Profile.CreateCaseWaitListFilter
aFilter.PosID = Profile.CurrentPOSId 
set aCaseWaitLists = Profile.LoadCaseWaitLists(aFilter) 

aMessage = "The number of the wait lists with the specified POS ID (" &_
  aFilter.PosID  & ") is " & aCaseWaitLists.Count
for i = 0 to aCaseWaitLists.Count - 1
  set aCaseWaitList = aCaseWaitLists.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ") " & _
    "From " & aCaseWaitList.OpenedOn & " To" & aCaseWaitList.ClosedOn
    if not aCaseWaitList.PrivacyRole is nothing then
      aMessage = aMessage & " Privacy Role: " & _
        aCaseWaitList.PrivacyRole.RoleName
    end if  
next      

Profile.MsgBox(aMessage)