ISInventoryUtils.LoadStockLots

Description

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

Syntax

object.LoadStockLots(aFilter)

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

Return Value

ISCollection

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

Example

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

Dim aFilter
Dim aStockLots
Dim aStockLot
Dim aMessage
Dim i

Set aFilter = InventoryUtils.CreateStockLotFilter
aFilter.LocationID = 990
set aStockLots = InventoryUtils.LoadStockLots(aFilter)

aMessage = "Stock Lots Count = " & aStockLots.Count
for i = 0 to aStockLots.Count - 1
  set aStockLot = aStockLots.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ") " &_
  "Details: " & vbNewLine &_
  " - Expiry: " & aStockLot.Expiry & vbNewLine &_
  " - Note: " & aStockLot.Note & vbNewLine &_
  " - Order Number: " & aStockLot.OrderNum & vbNewLine &_
  " - Quantity: " & aStockLot.Quantity
next   

Profile.MsgBox(aMessage)

Note:

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

Version information