ISInventoryAuditRecord.Location

Example

Display the number of the inventory audit records, some information about them, including the stock locations.

Dim aFilter
Dim aInventoryAudits
Dim aInventoryAudit
Dim aMessage
Dim i

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 not aInventoryAudit.Location is nothing then
    aMessage = aMessage & "      Location: " & aInventoryAudit.Location.Code 
  end if   
next

Profile.MsgBox(aMessage)