This function creates the filter for loading services.
object.CreateCaseServiceFilter()
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISProfile interface |
Display the number of the loaded case services and the reasons for each of them.
Dim aFilter
Dim aCaseServices
Dim aCaseService
Dim aMessage
Set aFilter = Profile.CreateCaseServiceFilter
aFilter.PosID = Profile.CurrentPOSId
set aCaseServices = Profile.LoadCaseServices(aFilter)
aMessage = "Case Services Count = " & aCaseServices.Count
for i = 0 to aCaseServices.Count - 1
set aCaseService = aCaseServices.Item(i)
aMessage = aMessage & vbNewLine & aCaseService.Reason
next
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface Case Services can be found in
.