This filter property is used to load the collection of providers with the specified area of interest.
object.AreaOfInterest
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISProvidersFilter interface |
Display the number of the providers loaded on the basis of the selected filter, their full names and IDs.
Dim aFilter
Dim aShortCode
Dim aProviders
Dim aProvider
Dim aMessage
set aShortCode = Profile.LoadShortCodebyCodeSCTName("TESTINT", "Areas of Interest")
set aFilter = Profile.CreateProvidersFilter
aFilter.AreaOfInterest = aShortCode
Set aProviders = Profile.LoadProvidersByFilter(aFilter)
aMessage = vbNewLine & "The number of the providers " &_
"with the specified area of interest (" & aFilter.AreaOfInterest.Description &_
") is " & aProviders.Count
aMessage = aMessage & vbNewLine & vbNewLine &_
"Full Name:" & vbTab & "ID:"
for each aProvider in aProviders
aMessage = aMessage & vbNewLine &_
aProvider.FullName & vbTab &_
aProvider.ID
next
Profile.MsgBox (aMessage)
In Profile Client v8 on User Interface Area Of Interest can be found in
.