ISWaitList.TypeObj

Description

The type of the contact as the short code of type 'Contact'.

Syntax

object.TypeObj

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

Return Value

ISShortCode

Example

Display the number of the case wait lists loaded on the basis of the selected filter, their types, 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
    if not aCaseWaitList.TypeObj is nothing then
      aMessage = aMessage & " Type Object: " & _
        aCaseWaitList.TypeObj.Description
    end if  
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Type Object can be found in Organisation > Work Centre > Wait List > Edit Wait List Entry > General > Type.

Version information

Added in v7.8.0