ISWaitList.BCase

Example

Display the number of the wait lists loaded on the basis of the selected filter, their reasons and the titles of the cases.

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) & ") " & _
    "The reason of the wait list entry is " & aCaseWaitList.Reason
  if not aCaseWaitList.BCase is nothing then
    aMessage = aMessage & vbNewLine & "The title of the case is '" &_
      aCaseWaitList.BCase.CaseTitle & " '"
  end if       
next      

Profile.MsgBox(aMessage)