ISOrgMember.PosID

Description

ID of the place of service linked to the organisation node.

Syntax

object.PosID

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

Restriction: This property is readonly.

Return Value

int

Example

Display IDs, codes and names of the POSes linked to the organisation nodes.

Dim aFilter
Dim aOrgMember
Dim aOrgMembers
Dim aMessage

Set aFilter = Profile.CreateOrgMembersFilter
set aOrgMembers = Profile.LoadOrgMembers(aFilter)

aMessage = "Org Nodes Count = " & aOrgMembers.Count

for each aOrgMember in aOrgMembers
  if aOrgMember.PosId > 0 then
    set aPos = Profile.LoadProviderById (aOrgMember.PosId)
    aPosNameCode = " - " & aPos.FullName & " (" & aPos.Code & ")" 
  else
    aPosNameCode = " - No POS "
  end if    
  aMessage = aMessage & vbNewLine & "ID of the POS linked to the org node '" &_
     aOrgMember.Name & "'   = " &  aOrgMember.PosID & " " & aPosNameCode & "" 
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Pos ID cannot be found.

Version information

Added in v7.8.0