ISServicesFilter.DescriptionCriteria

Description

This filter property is used to load services by the specified description criteria.

Syntax

object.DescriptionCriteria

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

Return Value

TSTextCriteria

Example

Display the number of the services loaded on the basis of the selected filter and some information about them.

Dim aFilter
Dim aService
Dim aServices
Dim aMessage
Dim i

Set aFilter = Profile.CreateServicesFilter
aFilter.Description = "Inj"
aFilter.DescriptionCriteria = 2 'stcTextContains
set aServices = Profile.LoadServicesByFilter(aFilter)

aMessage = "Services Count = " & aServices.Count & vbNewLine
for i = 0 to aServices.Count - 1
  set aService = aServices.Item(i)
  aMessage = aMessage & vbNewLine & "----------------------------" & vbNewLine &_
    "Description: " & aService.Description & vbNewLine &_
    "Code: " & aService.Code & vbNewLine &_
    "Added: " & aService.Added & vbNewLine &_
    "Changed: " & aService.Changed & vbNewLine &_
    "Status: " & aService.Status & vbNewLine &_
    "ID: " & aService.ID & vbNewLine &_
    "Output Code: " & aService.OutputCode & vbNewLine &_
    "Default Delivery Time: " & aService.DefaultDeliveryTime & vbNewLine            
next      

Profile.MsgBox(aMessage)

Note:

Version information

Added in v8.3.0