ISInventoryUtils.LoadStockItems

Description

This function returns stock items loaded on the basis of the selected filter.

Syntax

object.LoadStockItems(aFilter)

Part	Attribute	Type	Description
`object`	Required	ISInventoryUtils	The `object` always implements the ISInventoryUtils interface
`aFilter`	In, Required	ISStockItemFilter	The object that defines conditions for filtering

Return Value

ISCollection

Returns stock items loaded on the basis of the selected filter.

Example

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

Dim aStockItems
Dim aStockItem
Dim aFilter
Dim aInventoryAudits
Dim aInventoryAudit
Dim i
Dim aMessage

Set aFilter = InventoryUtils.CreateStockItemFilter
aFilter.Code = "BB"
set aStockItems = InventoryUtils.LoadStockItems(aFilter)
set aStockItem = aStockItems.Item(i)

set aFilter = InventoryUtils.CreateInventoryAuditFilter
aFilter.StockItem = aStockItem
set aInventoryAudits = InventoryUtils.LoadInventoryAudits(aFilter) 

aMessage = "Inventory Audit Records Count = " & aInventoryAudits.Count
for i = 0 to aInventoryAudits.Count - 1
  set aInventoryAudit = aInventoryAudits.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ") " &_
    "Date: " & aInventoryAudit.Date &vbNewLine &_
    "Note: " & aInventoryAudit.Note & vbNewLine &_
    "Order Number: " & vbNewLine & aInventoryAudit.OrderNum &_
    "Quantity: " & aInventoryAudit.Quantity
next

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Stock Items can be found in Maintain > Inventory > Stock Items.

Version information