ISService.GetServicePrice

Description

This function returns the price for the service.

Syntax

object.GetServicePrice()

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

Return Value

ISServicePrice

Returns the price for the service.

Example

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

Dim aFilter
Dim aService
Dim aServices
Dim aMessage
Dim aServicePrice

Set aFilter = Profile.CreateServicesFilter
aFilter.Description = "11 Year MMR"
set aServices = Profile.LoadServicesByFilter(aFilter)

for each aService in aServices
  set aServicePrice = aService.GetServicePrice
  if aServicePrice is nothing then
    aMessage = vbNewLine & "No Service Price"
  else
    aMessage = vbNewLine & "Standard Price: " & aServicePrice.StandardPrice
  end if
next

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Service Price can be found in Maintain > Services > Edit > Financial.

Version information

Added in v8.3.0