ISStockLot.Expiry

Description

The expiry date of the stock lot.

Syntax

object.Expiry

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

Restriction: This property is readonly.

Return Value

DateTime

Example

Display the number of the stock lots loaded on the basis of the selected filter and some information about them, including their expiry dates.

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 &_
  " - Batch: " & aStockLot.Batch & 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 Expiry can be found in Maintain > Inventory > Stock Lots > Expiry.

Version information

Added in v7.8.0