ISServicePrice.AddServiceRate

Example

Add the service rate to the service price.

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

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)
  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 aShortCode = Profile.LoadShortCodeByCodeType("NBMS", 3) 'sscChargeRates 
   set aRate = aServicePrice.AddServiceRate(aShortCode)
   aRate.Amount = 123.45
   
   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 & "    " &_
       aRate.Amount & " " & aRate.RateType.Code
   next 'k
 next 'j
next 'i

Profile.MsgBox(aMessage)