ISProviderVers.AccAlias

Description

Do not use. The property is not supported for the versioned object.

Syntax

object.AccAlias

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

Restriction: This property is readonly.

Return Value

ISProviderAlias

Example

sub main()

  Dim aFilter 
  Dim aProviders
  Dim aDate
  Dim aMessage

  Set aFilter = Profile.CreateProvidersFilter
  aFilter.Category = 2 'pcProvider
  aFilter.Code = "VE3"

  set aProviders = Profile.LoadProvidersByFilter(aFilter)

  aDate = #07/15/2019  11:41:59#
  aMessage = GetProviderCollectionInfo(aProviders, aDate)

  Profile.MsgBox(aMessage)
end sub


function GetProviderCollectionInfo(aProviders, aDate)
  Dim aProvider
  Dim aProviderOnDate
  Dim aInfo
   
  aInfo = ""

  for each aProvider in aProviders
    aInfo = aInfo & vbNewLine & vbNewLine & "PROVIDER: " &_
      aProvider.FullName & vbNewLine

    set aProviderOnDate = aProvider.VersionOnDate(aDate)
    if aProviderOnDate is nothing then    
      aInfo = aInfo & vbNewLine & " - " & aProvider.FullName &_
        " (" & aProvider.Id & ") " & "  -  No Version on this date"
    else
      set aAccAlias = aProvider.AccAlias
      set aAccAliasVers = aProviderOnDate.AccAlias            
      aInfo = aInfo & vbNewLine & "CURRENT VERSION: " & vbNewLine &_
        "Full Name: " & aProvider.FullName & vbNewLine & "ID: " & aProvider.Id &_
        vbNewLine & "Alias: " & aAccAlias.Reference1 & vbNewLine &_
        vbNewLine & "VERSION ON DATE:  " & vbNewLine & "Full Name: " &_
        aProviderOnDate.FullName & vbNewLine & "ID: " & aProviderOnDate.Id &_
        vbNewLine & "Alias: " & aAccAliasVers.Reference1
    end if 
  next   
  GetProviderCollectionInfo = aInfo
end function

Note:

Version information

Added in v7.8.0