ISInventoryUtils.LoadInventoryAudits

Description

This function returns the inventory audit records loaded on the basis of the selected filter.

Syntax

object.LoadInventoryAudits(aFilter)

Part Attribute Type Description
object Required
The object always implements the ISInventoryUtils interface
aFilter In, Required
The object that defines conditions for filtering

Return Value

ISCollection

Returns the inventory audit records loaded on the basis of the selected filter.

Example

Display the number of the inventory audit records loaded on the basis of the selected filter and some information about them.

Dim aFilter
Dim aInventoryAudits
Dim aInventoryAudit
Dim i
Dim aMessage

Set aFilter = InventoryUtils.CreateInventoryAuditFilter
aFilter.DateFrom = #10/22/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
next

Profile.MsgBox(aMessage)
Note:

See also

Version information

Added in v7.8.0