ISProvider.ReferenceSystem

Description

The reference system of the provider.

Syntax

object.ReferenceSystem

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

Return Value

ISShortCode

Example

Display the provider's reference system.

Dim aFilter 
Dim aProviders
Dim aProvider
Dim aReferenceSystem
Dim aMessage

Set aFilter = Profile.CreateProvidersFilter

aFilter.Category = 2 'pcProvider  

set aProviders = Profile.LoadProvidersByFilter(aFilter)
aMessage = aMessage & vbNewLine &_
  "The number of the providers is " & aProviders.Count

for each aProvider in aProviders 
  set aReferenceSystem = aProvider.ReferenceSystem 
  if aReferenceSystem is nothing then 
     aMessage = aMessage & vbNewLine & ""
  else
    aMessage = aMessage & vbNewLine &_
      aProvider.FullName & vbTab &_
      aReferenceSystem.Description
  end if  
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 > Reference > Reference System field.

Version information

Added in v7.8.0