ISStockLotFilter.StockItem

Example

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

Dim aFilter
Dim aStockLot
Dim aStockLots
Dim aStockItems
Dim aStockItem
Dim aMessage
Dim i, j

Set aFilter = InventoryUtils.CreateStockItemFilter
aFilter.Code = "BB"
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 
next 

set aFilter = InventoryUtils.CreateStockLotFilter
aFilter.StockItem = aStockItem
set aStockLots = InventoryUtils.LoadStockLots(aFilter)

aMessage = "Stock Lots Count = " & aStockLots.Count
for j = 0 to aStockLots.Count - 1
  set aStockLot = aStockLots.Item(j)
  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)