ISWaitList.ProfileForm

Description

The form attached to the wait list through its type short code.

Syntax

object.ProfileForm

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

Return Value

ISProfileForm

Example

Display the number of the wait lists loaded on the basis of the selected filter, reasons, the profile forms and their captions.

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) & ") " & aCaseWaitList.Reason
    if not aCaseWaitList.ProfileForm is nothing then
      aMessage = aMessage & " Profile Form: " & _
        aCaseWaitList.ProfileForm.Caption
    end if  
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Profile Form can be found Maintain > Short Codes > Wait List Type > Form Template.

Version information

Added in v8.4.0