ISInventoryUtils.CreateInventoryAuditFilter

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)