ISServiceRate.Amount

Example

Display some information about rates, including their amount and type.

Dim aFilter
Dim aServices
Dim aService
Dim aMessage
Dim aServicePrices
Dim aServicePrice
Dim aRates
Dim aRate
Dim i, j, k

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"

  for j = 0 to aServicePrices.Count - 1
    set aServicePrice = aServicePrices.Item (j)
    set aRates = aServicePrice.GetRates 
   
    aMessage = aMessage & vbNewLine & "  Service Rates Count: " & aRates.Count
    for k = 0 to aRates.Count - 1
       set aRate = aRates.Item(k) 
       aMessage = aMessage & vbNewLine & "    Rate Amount: " & aRate.Amount &_
         "; rate type: " & aRate.RateType.Code 
    next 'k
  next 'j
next 'i

Profile.MsgBox(aMessage)