ISInventoryUtils.CreateStockItemFilter

Description

This function creates the filter for loading stock items.

Syntax

object.CreateStockItemFilter()

Part	Attribute	Type	Description
`object`	Required	ISInventoryUtils	The `object` always implements the ISInventoryUtils interface

Return Value

ISStockItemFilter

Returns the filter for loading stock items.

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

Added in v7.8.0