The number of the wait lists within the collection.
object.Count
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISWaitLists interface |
int
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)
In Profile Client v8 on User Interface Wait Lists can be found in
.