ISService.GetPrice

Description

This function returns the service price of the specified service.

Syntax

object.GetPrice(aRateCode, aDateTime)

Part	Attribute	Type	Description
`object`	Required	ISService	The `object` always implements the ISService interface
`aRateCode`	In, Required	string	The code of the rate
`aDateTime`	In, Required	DateTime	The date of the service price

Return Value

Decimal

Example

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

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

Set aFilter = Profile.CreateServicesFilter
aFilter.Description = "Eye Injury"
set aServices = Profile.LoadServicesByFilter(aFilter)

aMessage = "Services Count = " & aServices.Count & vbNewLine
for i = 0 to aServices.Count - 1
  set aService = aServices.Item(i)   
  aMessage = vbNewLine & aMessage & "The service '" & aService.Description & "'" &_
    vbNewLine  
  set aServicePrice = aService.GetServicePrice
  if aServicePrice is nothing then
    aMessage = "No service price set"
  else
    aMessage = aMessage & vbNewLine & "The standart price for the service '" &_
    aService.Description & "' is " & aServicePrice.StandardPrice & vbNewLine 
  end if
next                       

Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0