ISProviderVers.TypeDescription

Example

Display the full name, ID and textual description for the type of the provider in the selected provider version.

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 = #06/10/2019  15:37: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            
      aInfo = aInfo & vbNewLine & "CURRENT VERSION: " & vbNewLine &_
        "Full Name: " & aProvider.FullName & vbNewLine & "ID: " & aProvider.Id &_
        vbNewLine & "Type Description: " & aProvider.TypeDescription & vbNewLine & vbNewLine &_
        "VERSION ON DATE:  " & vbNewLine & "Full Name: " &_
        aProviderOnDate.FullName & vbNewLine & "ID: " & aProviderOnDate.Id &_
        vbNewLine & "Type Description: " & aProviderOnDate.TypeDescription
    end if 
  next   
  GetProviderCollectionInfo = aInfo
end function