ISWaitList.PosID

Description

The place of service with the specified ID which wait lists belong to.

Syntax

object.PosID

Part	Attribute	Type	Description
`object`	Required	ISWaitList	The `object` always implements the ISWaitList interface

Return Value

int

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 POS ID cannot be found, but Wait Lists can be found in Organisation > Work Centre > Wait List.

Version information

Added in v7.8.0