ISWaitLists.Item

Description

Each of the wait lists within the collection.

Syntax

object.Item(aItem)

Part	Attribute	Type	Description
`object`	Required	ISWaitLists	The `object` always implements the ISWaitLists interface
`aItem`	In, Required	int	The index of the wait list

Restriction: This property is readonly.

Return Value

ISWaitList

Example

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

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
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Wait Lists can be found in Organisation > Work Centre > Wait List.

Version information

Added in v7.8.0