ISStockLot.StockItem

Description

The type of stock item that makes up the stock lot.

Syntax

object.StockItem

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

Restriction: This property is readonly.

Return Value

ISStockItem

Example

Display the number of the stock lots loaded on the basis of the selected filter and some information about them, including the description of the stock items that make up the stock lot.

Dim aFilter
Dim aStockItems
Dim aStockItem
Dim aMessage
Dim i

Set aFilter = InventoryUtils.CreateStockLotFilter
aFilter.Batch = 12
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 &_
  " - Batch: " & aStockLot.Batch & vbNewLine &_ 
  " - Expiry: " & aStockLot.Expiry & vbNewLine &_
  " - Note: " & aStockLot.Note & vbNewLine &_
  " - Order Number: " & aStockLot.OrderNum & vbNewLine &_
  " - Quantity: " & aStockLot.Quantity

  if not aStockLot.StockItem is nothing then
    aMessage = aMessage & vbNewLine & " - Stock Item: " &_
      aStockLot.StockItem.Description & " (" & aStockLot.StockItem.Code &_ 
      ")" & vbNewLine
  end if       
next         

Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0