ISServicePrice.Locations

Example

Display the number of the services loaded on the basis of the selected filter and some information about them, including locations of the service prices.

Dim aFilter
Dim aServices
Dim aService
Dim aMessage          
Dim aServicePrice
Dim aLocation
Dim aLocationStr
Dim i, j

Set aFilter = Profile.CreateServicesFilter
aFilter.Description = "G.P. Office Visit"

set aServices = Profile.LoadServicesByFilter(aFilter)

aMessage = "Services Count = " & aServices.Count & vbNewLine

for i = 0 to aServices.Count - 1
  set aService = aServices.Item(i)

  aMessage = aMessage & vbNewLine & aService.Description 
  set aServicePrice = aService.GetServicePrice
  if aServicePrice is nothing then
    Profile.MsgBox("No Service Price")
    exit sub            
  end if
  aLocationStr = ""
  for j = 0 to aServicePrice.Locations.Count - 1
    set aLocation = Profile.LoadShortCode(aServicePrice.Locations.Item(j)) 
    aLocationStr = aLocationStr & aLocation.Description & ", "
  next 'j  
  
  aMessage = aMessage & vbNewLine & "-----------------------------" & vbNewLine &_
    "Agency Code: " & aServicePrice.AgencyCode & vbNewLine &_
    "Amount: " & aServicePrice.Amount & vbNewLine &_
    "Custom Fee Per Unit: " & aServicePrice.CustomFeePerUnit & vbNewLine &_
    "Default Quantity: " & aServicePrice.DefaultQuantity & vbNewLine &_
    "Start Date: " & aServicePrice.StartDate & vbNewLine &_
    "End Date: " & aServicePrice.EndDate & vbNewLine &_
    "Distance: " & aServicePrice.Distance & vbNewLine &_
    "Locations Count: " & aServicePrice.Locations.Count & vbNewLine &_
    "Locations: " & aLocationStr
next 'i
                                              
Profile.MsgBox(aMessage)