This function creates the filter for loading stock levels.
object.CreateStockLevelFilter()
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISInventoryUtils interface |
Display some information about the stock levels loaded on the basis of the selected filter.
Dim aFilter
Dim aStockLevels
Dim aStockLevel
Dim aMessage
Dim i
Set aFilter = InventoryUtils.CreateStockLevelFilter
aFilter.LocationID = 990
set aStockLevels = InventoryUtils.LoadStockLevels(aFilter)
aMessage = aMessage & vbNewLine & "Stock Levels Count = " & aStockLevels.Count
for i = 0 to aStockLevels.Count - 1
set aStockLevel = aStockLevels.Item(i)
aMessage = aMessage & vbNewLine &_
" - Maximum: " & aStockLevel.Maximum & vbNewLine &_
" - Minimum: " & aStockLevel.Minimum & vbNewLine &_
" - Note: " & aStockLevel.Note & vbNewLine &_
" - Reorder: " & aStockLevel.Reorder & vbNewLine
next
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface Stock Levels can be found in
.