ISServicePrices.Item

Example

Display the number of the service prices and some information about them.

Dim aFilter
Dim aServices
Dim aService
Dim aMessage
Dim aServicePrices
Dim aServicePrice
Dim i

Set aFilter = Profile.CreateServicesFilter
aFilter.Description = "Pinch Skin Graft"

set aServices = Profile.LoadServicesByFilter(aFilter)

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

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

  set aServicePrices = aService.GetServicePrices

  aMessage = aMessage & vbNewLine & aService.Description &_
    " has " & aServicePrices.Count & " service prices"
  set aServicePrice = aService.GetServicePrice
  if aServicePrice is nothing then
    aMessage =  vbNewLine & "No Service Price"
  else
    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
   end if

next 

Profile.MsgBox(aMessage)