ISInventoryAuditRecord.StockItem

Description

Stock item is the key structure which represents an object being tracked in the Inventory.

Syntax

object.StockItem

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

Restriction: This property is readonly.

Return Value

ISStockItem

Example

Display the number of the inventory audit records loaded on the basis of the selected filter and some information about them, including the description of the stock item, its code and SKU.

Dim aFilter
Dim aInventoryAudits
Dim aInventoryAudit
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

  if aInventoryAudit.StockItem is nothing then
    aMessage = aMessage & vbNewLine & vbNewLine & "No Stock Item"            
  else
    aMessage = aMessage & vbNewLine & "          Stock Item: " &_
      aInventoryAudit.StockItem.Description & " (Code: " &_
      aInventoryAudit.StockItem.Code & ", SKU: " & aInventoryAudit.StockItem.SKU &_
      ")" & vbNewLine 
  end if
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Stock Items can be found in Organisation > Control Centre > Manage > Inventory Audit > Stock Item.

Version information

Added in v7.8.0