ISStockItem.Supplier

Example

Display the number of the stock items loaded on the basis of the selected filter, some information about them, including the full name of the supplier for the stock items.

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.Supplier is nothing then
    aMessage = aMessage & "The supplier: " & aStockItem.Supplier.FullName
  end if
  
next         

Profile.MsgBox(aMessage)