ISProvidersFilter.ReferenceSystem

Description

This filter property is used to load the collection of providers with the specified reference system.

Syntax

object.ReferenceSystem

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

Return Value

ISShortCode

Example

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("CMC", "Reference System")
set aFilter = Profile.CreateProvidersFilter

aFilter.ReferenceSystem = aShortCode

set aProviders = Profile.LoadProvidersByFilter(aFilter)

aMessage = vbNewLine & "The number of the providers " &_
  "with the specified reference system (" & aFilter.ReferenceSystem.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)

Note:

In Profile Client v8 on User Interface Reference System can be found in Organisation > People & Places > People and Places > Open the selected Provider > Basic > Reference > Reference System field.

Version information

Added in v7.8.0