This filter property is used to load the collection of PPPUs which belong to the place of service with the specified ID.
object.PosID
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISProvidersFilter interface |
int
Display the number of the PPPUs loaded on the basis of the selected filter, their full names and IDs.
Dim aFilter
Dim aPOS
Dim aProviders
Dim aProvider
Dim aMessage
Set aPOS = Profile.LoadProviderById(Profile.CurrentPOSId)
set aFilter = Profile.CreateProvidersFilter
aFilter.PosID = aPOS.Id
set aProviders = Profile.LoadProvidersByFilter(aFilter)
aMessage = vbNewLine &_
"The number of the providers with the specified POS ID (" &_
aFilter.PosID & ") is " & aProviders.Count
aMessage = aMessage & vbNewLine & vbNewLine &_
"Full Name:" & vbTab & "ID:"
for each aProvider in aProviders
aMessage = aMessage & vbNewLine &_
aProvider.FullName & vbTab &_
aProvider.ID
next
Profile.MsgBox (aMessage)
In Profile Client v8 on User Interface POS ID cannot be found.