ISProvider.GetPOSStockLocations

Description

This function returns stock locations currently linked to the specified place of service.

Syntax

object.GetPOSStockLocations()

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

Return Value

ISShortCodes

Returns the stock locations currently linked to the specified place of service.

Example

Display the stock locations currently linked to the specified place of service.

Dim aFilter 
Dim aProviders
Dim aProvider
Dim aStockLocation
Dim aStockLocationInfo
Dim aStockLocShortCode
Dim aMessage

Set aFilter = Profile.CreateProvidersFilter
aFilter.Category = 3 'pcPOS 
set aProviders = Profile.LoadProvidersByFilter(aFilter)

aMessage = aMessage & vbNewLine &_
  "The number of the providers is " & aProviders.Count

for each aProvider in aProviders
  set aStockLocation = aProvider.GetPOSStockLocations
  aMessage = aMessage & vbNewLine & aProvider.FullName & " has " &_
    aStockLocation.Count & " stock locations"
    
  aStockLocationInfo = ""  
  for each aStockLocShortCode in aStockLocation
    aStockLocationInfo = aStockLocationInfo & aStockLocShortCode.Description & ", "
  next
    
  if aStockLocationInfo <> "" then
    aMessage = aMessage & vbNewLine & "    " & aStockLocationInfo
  end if   
next
 
Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface POS Stock Locations can be found in Organisation > People&Places > People and Places > Open the selected POS > Members > Stock Locations.

Version information

Added in v7.10.3