ISService.GetServicePrices

Description

This function returns the service prices of the specified service.

Syntax

object.GetServicePrices()

Part	Attribute	Type	Description
`object`	Required	ISService	The `object` always implements the ISService interface

Return Value

ISServicePrices

Returns the service prices of the specified service.

Example

Display the number of the services and some information about the linked prices.

Dim aFilter
Dim aServices
Dim aService
Dim aServicePrices
Dim i

Set aFilter = Profile.CreateServicesFilter
aFilter.Description = "Injection1"
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 & "Prices Count = " & aServicePrices.Count & vbNewLine 
next 
    
for each aServicePrice in aServicePrices
  set aServicePrice = aServicePrices.Item(i)
  aMessage = aMessage & vbNewLine & "The standart price for the service " &_
    aService.Description & " is " & aServicePrice.StandardPrice
next                         

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Service Prices can be found in Maintain > Services > Edit the selected service > Financial.

Version information

Added in v8.3.0