ISInventoryAuditRecord.Note

Example

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

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 Audits 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.Patient is nothing then
  aMessage = aMessage & vbNewLine & vbNewLine & "No Patient"            
else
  aMessage = aMessage & vbNewLine & aInventoryAudit.Patient.SurnameFirstName
end if
next      

Profile.MsgBox(aMessage)