ISStockItemFilter.SKU

Example

Display the number of the stock items loaded on the basis of the selected filter and some information about them.

Dim aFilter
Dim aStockItems
Dim aStockItem
Dim aMessage
Dim i

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 &_
  "Description: " & aStockItem.Description & vbNewLine &_
  "Code: " & aStockItem.Code & vbNewLine &_  
  "Note: " & aStockItem.Note & vbNewLine &_
  "Pack Count: " & aStockItem.PackCount & vbNewLine &_
  "SKU: " & aStockItem.SKU & vbNewLine &_
  "Supplier Ref: " & aStockItem.SupplierRef & vbNewLine

  if not aStockItem.Group is nothing then
    aMessage = aMessage & "Group: " & aStockItem.Group.Description & " (" &_
      aStockItem.Group.Code & ")"
  end if 
next          

Profile.MsgBox(aMessage)