ISStockLevelFilter.StockItem

Example

Display the information about the stock items and linked stock levels.

Dim aFilter
Dim aStockItems
Dim aStockItem
Dim aMessage
Dim i, j
Dim aStockLevels
Dim aStockLevel

Set aFilter = InventoryUtils.CreateStockItemFilter
aFilter.SKU = "TEST1"  
set aStockItems = InventoryUtils.LoadStockItems(aFilter)

aMessage = "Stock Items Count = " & aStockItems.Count

for i = 0 to aStockItems.Count - 1
  set aStockItem = aStockItems.Item(i)
  aMessage = aMessage & vbNewLine & "-------------------------------" & vbNewLine &_
    " - Description: " & aStockItem.Description 

  set aFilter = InventoryUtils.CreateStockLevelFilter
  aFilter.StockItem = aStockItem
  set aStockLevels = InventoryUtils.LoadStockLevels(aFilter)

  aMessage = aMessage & vbNewLine & "Stock Levels Count = " & aStockLevels.Count
  for j = 0 to aStockLevels.Count - 1
    set aStockLevel = aStockLevels.Item(j)
    aMessage = aMessage & vbNewLine &_
      " - Maximum: " & aStockLevel.Maximum & vbNewLine &_
      " - Minimum: " & aStockLevel.Minimum & vbNewLine &_
      " - Note: " & aStockLevel.Note & vbNewLine &_
      " - Reorder: " & aStockLevel.Reorder & vbNewLine 

    if not aStockLevel.Location is nothing then
      aMessage = aMessage & " - Location: " &_
        aStockLevel.Location.Description & " (" & aStockLevel.Location.Code &_ 
        ")" & vbNewLine
    end if       
  next 'j         

next 'i                          

Profile.MsgBox(aMessage)