ISInventoryAuditRecord.StockLot

Description

Stock lot is the structure which represents a collection of stock items at a location and share the same batch and expiry information.

Syntax

object.StockLot

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

Return Value

ISStockLot

Example

Display the number of the inventory audit records loaded on the basis of the selected filter and some information about them, including the data about the stock lots.

Dim aFilter
Dim aInventoryAudit, aInventoryAudits
Dim aStockLot
Dim i
Dim aMessage 

Set aFilter = InventoryUtils.CreateInventoryAuditFilter
aFilter.DateFrom = #09/09/2019# 
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 & vbNewLine

  if aInventoryAudit.StockLot is nothing then
    aMessage = aMessage & vbNewLine & vbNewLine & "No Stock Lot"            
  else
    set aStockLot = aInventoryAudit.StockLot 
    aMessage = aMessage & vbNewLine & "      Stock Lot" & vbNewLine &_
      "Batch: " & aStockLot.Batch & vbNewLine &_
      "Expiry: " & aStockLot.Expiry  & vbNewLine &_
      "Note: " & aStockLot.Note  & vbNewLine &_
      "Order Number: " & aStockLot.OrderNum  & vbNewLine &_
      "Quantity: " & aStockLot.Quantity & vbNewLine 
  
  end if
next      

Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0