ISProfile.CurrentPOSId

Description

This function returns ID of the current place of service.

Syntax

object.CurrentPOSId()

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

Return Value

int

Returns ID of the current place of service.

Example

Display the name, the code and POS ID of the current place of service.

Dim aCurrentPOSId
Dim aProvider
Dim aCode
Dim aFullName

aCurrentPOSId = Profile.CurrentPOSId 
Set aProvider = Profile.LoadProviderByID(aCurrentPOSId)   
aFullName = aProvider.FullName
aCode = aProvider.Code

Profile.MsgBox (aFullName & " ( " & aCode & "); " & vbNewLine & "POS ID: " &_
  aCurrentPOSId)

Note:

In Profile Client v8 on User Interface Current POS ID cannot be found, but POS can be found in Organisation > People & Places.

Version information

Added in v7.8.0