ISWaitList.Outcome

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 outcome description.

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.Outcome is nothing then
      aMessage = aMessage & " Outcome: " & aCaseWaitList.Outcome.Description
    end if  
next      

Profile.MsgBox(aMessage)