ISProvider.MemberOfPOS

Description

The list of places of service the provider is a member of.

Syntax

object.MemberOfPOS

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

Restriction: This property is readonly.

Return Value

ISProviders

Example

Display the list of places of service the provider is a member of.

Dim aFilter 
Dim aProvider
Dim aProviderList
Dim aPOSList
Dim aPOS
Dim aMemberOfPOSInfo
Dim aMessage

Set aFilter = Profile.CreateProvidersFilter
aFilter.Category = 2 'pcProvider
set aProviderList = Profile.LoadProvidersByFilter(aFilter)

aMessage = aMessage & vbNewLine &_
  "The number of the providers is " & aProviderList.Count & vbNewLine

for each aProvider in aProviderList
  set aPOSList = aProvider.MemberOfPOS
  
  aMessage = aMessage & vbNewLine & aProvider.FullName & " is a member of " &_
    aPOSList.Count & " POS(es)"
 
  aMemberOfPOSInfo = ""  
  for each aPOS in aPOSList
    aMemberOfPOSInfo = aMemberOfPOSInfo & aPOS.FullName & ", "
  next
  
  if aMemberOfPOSInfo <> "" then
    aMessage = aMessage & vbNewLine & "    " & aMemberOfPOSInfo
  end if    
    
next
 
Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface Member Of POS can be found in Organisation > People&Places > People and Places > Open the selected Provider > Member Of.

Version information

Added in v7.8.0