ISProvider.SetDefaultPOS

Example

Set the main place of service for the provider.

sub main
  Dim aFilter 
  Dim aProviders, aProvider
  Dim aPos
  Dim aMessage

  Set aPos = Profile.LoadProvider("COLUMBIA")
  set aFilter = Profile.CreateProvidersFilter
  aFilter.Category = 2 'pcProvider
  aFilter.Code = "AAAPROV"  
  
  set aProviders = Profile.LoadProvidersByFilter(aFilter)

  aMessage = aMessage & vbNewLine &_
    "The number of the providers of the specified category is " &_
    aProviders.Count

  aMessage = aMessage & vbNewLine & vbNewLine &_
    "BEFORE:" & GetProvidersPosInf(aProviders) 

  for each aProvider in aProviders
    aProvider.SetDefaultPOS(aPos.Id)
    aProvider.Save  
  next
 
  aMessage = aMessage & vbNewLine & vbNewLine &_
    "AFTER:" & GetProvidersPosInf(aProviders)

  Profile.MsgBox (aMessage)
end sub


function GetProvidersPosInf(aProviders)
  Dim aProvider
  Dim aPosId
  Dim aPOS
  Dim aMessage
  for each aProvider in aProviders    
    aPosId = aProvider.POSId
    set aPOS = Profile.LoadProviderById(aPOSId) 
  
    aMessage = aMessage & vbNewLine & aProvider.FullName &_
      " belongs to the POS " & aPOS.FullName  
  next 'aProvider
  GetProvidersPosInf = aMessage
end function