ISExternalProvider.ReferenceSystem

Description

The registration reference system of the external provider.

Syntax

object.ReferenceSystem

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

Return Value

string

Example

Display the registration reference system of the external provider.

Dim aExtProvider 
Dim aCode
Dim aMessage

aCode = "1"
Set aExtProvider = Profile.LoadExternalProvider(aCode)

if aExtProvider.ID = 0  then 
  aMessage = "No external provider with the specified code" 
else
  aMessage = aMessage & vbNewLine &_
    "Full Name:" & vbTab & "Reference System:" & vbNewLine & vbNewLine &_
    aExtProvider.FullName & vbTab & aExtProvider.ReferenceSystem
end if
 
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Reference System can be found in Organisation > External Providers > Basic > Reference > Ref. System field.

Version information

Added in v7.8.0